X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=928981abd0effd850d4d301db6ccc41673c9726a;hp=18dbf2acd8130fd491f3a708fdc8028bcf73fbe3;hb=2546ef0cfaaca39e65985e414258071a636979af;hpb=fdc1150da7dbd9c1094d8df7a4744fb917017ed2

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 18dbf2ac..928981ab 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -352,10 +352,10 @@ sub eval_file {
   my @r;
   my $c = qq{ \@r = \$self->$package(\@_); };
   dbg('eval', "cluster cmd = $c\n");
-  eval  $c; ;
+  eval  $c;
   if ($@) {
     delete_package($package);
-	return (0, "Syserr: Eval err $@ on cached $package");
+	return (1, "Syserr: Eval err $@ on cached $package");
   }
 
   #take a look if you want