Re: Eval Reasons?

[WC -Sx- Jones]

There  :)

Now there aren't any errors:

#!/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 {
        foreach (@strings) {
                eval;
                print $@ if $@;
        }
    };
};
print "\n\nProgram exited normally...\n\n";

__END__

-Sx-

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