hinrik · June 27, 2010 08:01
diff --git a/gistfile1.txt b/gistfile1.txt
 $ perl -e'$SIG{INT} = sub { warn "foo\n" }; sleep 30'
 ^Cfoo
 $ perl -e'$SIG{INT} = sub { warn "foo\n" }; require Net::DNS; sleep 30'
 ^CSignal SIGINT received, but no signal handler set.

 The above was on Perl 5.13.2. It works fine on 5.10.1 with the same version of Net::DNS (0.66). Also, after greping through Net::DNS's source, it doesn't look like it ever modifies $SIG{INT}. Possible Perl bug?
	$ perl -e'$SIG{INT} = sub { warn "foo\n" }; sleep 30'
	^Cfoo
	$ perl -e'$SIG{INT} = sub { warn "foo\n" }; require Net::DNS; sleep 30'
	^CSignal SIGINT received, but no signal handler set.

	The above was on Perl 5.13.2. It works fine on 5.10.1 with the same version of Net::DNS (0.66). Also, after greping through Net::DNS's source, it doesn't look like it ever modifies $SIG{INT}. Possible Perl bug?