X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fvar.pl;h=05c1f5892d99fa4666499d751e77a69b0d5a96ce;hb=1a9286080b21d5b65f97cab08d8a493abafad8f1;hp=b8d81d264fae7fa9bc3146d95c3de7f95d9c9b3a;hpb=f030d84dbd09d4f4d2814da3d828e5461cb2cf46;p=spider.git diff --git a/cmd/set/var.pl b/cmd/set/var.pl index b8d81d26..05c1f589 100644 --- a/cmd/set/var.pl +++ b/cmd/set/var.pl @@ -5,7 +5,7 @@ # # Copyright (c) 1999 - Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; @@ -14,9 +14,9 @@ return (1, $self->msg('e9')) unless $line; my ($var, $rest) = split /=|\s+/, $line, 2; $rest =~ s/^=\s*//; -Log('DXCommand', $self->call . " set $var = $rest" ); +Log('DXCommand', $self->call . " set $var = " . dd($rest) ); eval "$var = $rest"; -return (1, $@ ? $@ : "Ok, $var = $rest" ); +return (1, $@ ? $@ : "Ok, $var = " . dd($rest) );