RE: Catch ctrl-c

[Jan Dubois]

On Mon, 08 May 2006, Ng, Bill wrote:
> I've said this before ... I'm using build 817 and SIG{INT} isn't
> catching anything. Same exact code works fine on my Linux box and on
> Win32 using 5.8.4.

Are you really sure you are running 817 and not 816?  $SIG{INT} and
$SIG{BREAK} work as expected for me with 817:

#!perl
use strict;
use warnings;
$| = 1;

foreach my $signal (qw(INT BREAK HUP)) {
    $SIG{$signal} = sub { warn "$signal"; exit };
}

while () {
    print ".";
    sleep 1;
}
__END__

Ctrl-C raises INT and Crtl-Break raises BREAK just fine.

Cheers,
-Jan


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs