Re: Eval Errors

[James Edward Gray II]

On Feb 23, 2004, at 2:21 PM, James Edward Gray II wrote:

#!/usr/bin/perl

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__
No responses.  Is that a bad sign?  <laughs>

Is it possible I've found a bug in perl and should submit it?

How about a simpler question:  Did anyone run the above code under 
5.8.3?  Was the output the same as I posted, or different?  I haven't 
upgraded yet, but I need to verify that it's still the same in the 
latest version if I'm going to submit it.

Thanks again.

James

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>