There :)
Now there aren't any errors:
I believe/hope you are kidding here, but for the sake of those following along at home:
There are no error messages printed in the following code because the eval() calls are assigned to a signal handler which is never getting called (no warnings are thrown by the code). Adding a 'print "Inside warnings handler...\n";' to the subroutine shows this well, as it never gets printed.
James
#!/usr/bin/perl -w
use strict; use warnings;
my @strings = ( q('a poorly 'nested' string'), q('a poorly 'nested::test' string') );
do { local $SIG{__WARN__} = sub {
print "Inside warnings handler...\n";
foreach (@strings) { eval; print $@ if $@; } }; };
print "\n\nProgram exited normally...\n\n";
__END__
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
