[MacPerl] signal handling

[Vicki Brown <vlb@cfcl.com>]

Can MacPerl do signal handling?  I thought perhaps cmd-. was equivalent to an
interrupt, but while $SIG{INT} = 'IGNORE' works on Unix, it does not appear to
work on the Mac.  I also tried KILL to no avail.  Is cmd-. a trappable signal
on the Mac or am I stuck?

	#!/usr/local/bin/perl
    # should not be interruptable while - print
	$| = 1;
	$SIG{INT} = 'IGNORE';
	for ($i = 0; $i < 10; $i ++) {
	    print("-");
	    sleep(1);
	}
	$SIG{INT} = 'DEFAULT';
	for ($i = 0; $i < 10; $i ++) {
	    print("+");
		sleep(1);
	}
	print("!\n");



      |\      _,,,---,,_    Vicki Brown - vlb@cfcl.com
ZZZzz /,`.-'`'    -.  ;-;;,_  http://www.cfcl.com/~vlb
     |,4-  ) )-,_. ,\ (  `'-' P.O. Box 1269  San Bruno  CA  94066
    '---''(_/--'  `-'\_)  Ooit'n Normaal Mens Ontmoet? En... Beviel't?
                      Ever met a normal person? So... did you like it?



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch