projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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{$_}) {
# 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"); };
}
}
$SIG{$_} = sub { my $sig = shift; DXDebug::confess("Caught signal $sig"); };
}
}