1. Added an efficiency thing for AUTOLOADed accessors from OO Perl by Conway.

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6f82b0d0bdebdeecaba15df94448e7a57d7bda59..1ecbc094a704487fd96c3998a560eb493d02f976 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -340,7 +340,7 @@ $SIG{KILL} = 'DEFAULT';     # as if it matters....
 # catch the rest with a hopeful message
 for (keys %SIG) {
        if (!$SIG{$_}) {
-               dbg('chan', "Catching SIG $_");
+#              dbg('chan', "Catching SIG $_");
                $SIG{$_} = sub { my $sig = shift;       DXDebug::confess("Caught signal $sig");  }; 
        }
 }