#----------------------------- |
#% kill -l |
#HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE |
# |
#ALRM TERM CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM |
# |
#PROF WINCH POLL PWR |
#----------------------------- |
#% perl -e 'print join(" ", keys %SIG), "\n"' |
#XCPU ILL QUIT STOP EMT ABRT BUS USR1 XFSZ TSTP INT IOT USR2 INFO TTOU |
# |
#ALRM KILL HUP URG PIPE CONT SEGV VTALRM PROF TRAP IO TERM WINCH CHLD |
# |
#FPE TTIN SYS |
#----------------------------- |
#% perl -MConfig -e 'print $Config{sig_name}' |
#ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM |
# |
#TERM URG STOP TSTP CONT CHLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH |
# |
#INFO USR1 USR2 IOT |
#----------------------------- |
use Config; |
defined $Config {sig_name} or die "No sigs?" ; |
$i = 0; |
# Config prepends fake 0 signal called "ZERO". |
foreach $name ( split ( ' ' , $Config {sig_name} ) ) |
{ |
$signo { $name } = $i ; |
$signame [ $i ] = $name ; |
$i ++; |
} |
#----------------------------- |