home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / perl / os2perl / alarm.pl < prev    next >
Encoding:
Text File  |  1991-06-17  |  372 b   |  19 lines
  1. sub handler {
  2.   local($sig) = @_;
  3.   print "Caught a SIG$sig -- shutting down\n";
  4.   exit(0);
  5. }
  6.  
  7. $SIG{'ALRM'} = 'handler';
  8.  
  9. $SIG{'INT'} = 'handler';    # Ctrl-C pressed
  10. $SIG{'BREAK'} = 'handler';    # Ctrl-Break pressed
  11. $SIG{'TERM'} = 'handler';    # Killed by another process
  12.  
  13. print "Starting execution ...\n";
  14. alarm(10);
  15.  
  16. while ( <> ) {
  17. }
  18. print "Normal exit.\n";
  19.