Perl's getc issue in SIGINT handler in perl 5.14.2

Asked Mar 09 '12 at 07:42

Active Mar 09 '12 at 08:39

Viewed 163 times

Here is my testing environment:

root@redhat89195 bin]# ./perl -v
This is perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-thread-multi
.....

Code snippet:

$SIG{INT}=sub{
         print "1234\n";
         print getc(STDIN);
         print "4444\n";
};

print "5678\n";
print getc(STDIN);

after running the program, "5678" is printed first, then waiting for inputs, then I enter "eeee" followed by "ctrl-c", then the handler continuously prints "1234" and "4444" with skipping getc function in the handler, then it hangs waiting inputs (I guess it is the getc outside the handler which is still waiting inputs), I enter "q", it prints "q".

So my question is:

why doesn't the getc function in the handler work out? It seems the issue doesn't exist in other perl releases.
How can it be solved to make the getc function in the handler work out?

edited Mar 09 '12 at 08:39

asked Mar 09 '12 at 07:42

aaron french

Is that ` on your last line suppose to be included? – Øyvind Skaar Mar 09 '12 at 08:27
also, are you missing a semi-colon after the block? – Øyvind Skaar Mar 09 '12 at 08:28
corrected, thanks for your comments. – aaron french Mar 09 '12 at 08:40
I would have edited your question, but I don't have the privileges.. also, you never know, maybe they where the cause of your problems ;) – Øyvind Skaar Mar 09 '12 at 08:47
You could try POSIX::getc(*STDIN), but I bet you get the same result.. – Øyvind Skaar Mar 09 '12 at 09:48

Perl's getc issue in SIGINT handler in perl 5.14.2

0 Answers0