note
cengineer
Not sure if it's a Solaris specific thing, but I used this on Linux with perl 5.8.8 and it works fine:<br><br>
<code>
use sigtrap qw(handler sig_handler INT TERM QUIT PIPE);
use Switch;
sub sig_handler {
my($sig) = shift;
print "Caught signal $sig\n";
switch($sig) {
case ["INT","TERM","QUIT"] {
print "Exiting";
exit(0);
}
case "PIPE" {
print "Continuing\n";
}
}
}</code>
612021
612021