added announce

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 18dbf2acd8130fd491f3a708fdc8028bcf73fbe3..ddfefc6e082af843a86e5e14e188400bb761ab43 100644 (file)
--- 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
@@ -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