X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=ddfefc6e082af843a86e5e14e188400bb761ab43;hp=928981abd0effd850d4d301db6ccc41673c9726a;hb=0824a94355e5fb2b4c379bb013d66466725629f5;hpb=2546ef0cfaaca39e65985e414258071a636979af diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 928981ab..ddfefc6e 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -342,7 +342,7 @@ sub eval_file { } if ($@) { delete_package($package); - return (0, "Syserr: Eval err $@ on $package"); + return (1, "Syserr: Eval err $@ on $package"); } #cache it unless we're cleaning out each time