Re^4: Stopping execution of an eval statement


Perl Monk, Perl Meditation
	PerlMonks

Re^4: Stopping execution of an eval statement

by slloyd (Hermit)

on Jul 25, 2005 at 12:37 UTC ( [id://477785]=note: print w/replies, xml )

Need Help??

in reply to Re^3: Stopping execution of an eval statement
in thread Stopping execution of an eval statement

Thank you for the clarafication. I modified the code slightly to show this a bit better. Run the following code. Then hit CTRL-C once to abort the eval statement, then wait and then hit CTRL-C to exit completely.

use strict;
$|=1;
sub long { 1 while 1 }
$SIG{INT} = sub { die "got int\n" };
print "SIG{INT}=$SIG{INT}\n";
eval {long};
print "got err: $@\n" if $@;
print "Loop after first eval\n";
while(1){
    select(undef,undef,undef,.25);
    }
print "OK I am a done\n";
__END__
[download]

http://www.basgetti.com