Are you suggesting that the script I posted does not pass a compile check? It does on my machine.
Yep.
The "bug" I'm talking about is how eval() prints what looks like die() messages (though it keeps running) when it tries to compile the third line. There's a detailed discussion of this in the message where I posted my output, if you would like more information.
I know.
Do you claim the following is your un-molested code?
use strict; use warnings;
my @strings = ( q(my $bad_syntax = ,
q('a poorly 'nested' string'),
q('a poorly 'nested::test' string') );foreach (@strings) {
print "\nCode: $_\n";
{
print "\nDisabling warnings...\n";
no warnings;
print "Calling eval()...\n";
eval;
}
print "eval() complete.\n\n";
if ($@) {
print "Handling error...\n";
print "Caught error: $@";
}
}__END__
???
perl -c shows:
syntax error at y line 8, near "q('a poorly 'nested::test' string') );"
(Might be a runaway multi-line () string starting on line 6)
BEGIN not safe after errors--compilation aborted at y line 14.This is perl, v5.8.0 built for sun4-solaris -Sx-
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
