Re: win32, ctrl-c, sleep, and signals

#!/usr/bin/perl
use strict;
use warnings;

$SIG{INT} = 'handleit';

while (1) {
  print "still here...\n";
  sleep 30;
}

sub handleit {
  print "I caught it.";
  exit(1);
}
[download]

I tried the above code in windows it works for me.

"Keep pouring your ideas"

Comment on Re: win32, ctrl-c, sleep, and signals Download Code

Replies are listed 'Best First'.
Re^2: win32, ctrl-c, sleep, and signals by displeaser (Hermit) on May 30, 2006 at 15:36 UTC
I've tried it on w2k and I get the same issue. If I control C before the first print it exits without the die message. Weird.	[reply]
Re^3: win32, ctrl-c, sleep, and signals by jesuashok (Curate) on May 30, 2006 at 15:42 UTC
Hi The reason could be die raises a signal. so Inside a signal handler, If a signal getting raised it will lead to misleading result. that is what happened in your code. Remove the die and use exit there. I have updated my node accordingly. use the same code and try in your important. That will work. "Keep pouring your ideas"	[reply]
Re^4: win32, ctrl-c, sleep, and signals by SirBones (Friar) on May 30, 2006 at 16:45 UTC
That will work. Afraid not. :-) Still doesn't work for me. Peculiar. Thanks for trying it. Ken "This bounty hunter is my kind of scum: Fearless and inventive." --J.T. Hutt	[reply]