You might try explicitly setting a more meaningful line number and name via the #line directive (similar to what many incarnations of cpp grok):
my $line = 99; for my $n ( qw/foo bar baz/ ) { my $code = <<"EOT"; #line $line "$n" die "aieee!" EOT eval $code; if( $@ ) { print "Died: $@\n"; } } __END__ Died: aieee! at foo line 99. Died: aieee! at bar line 99. Died: aieee! at baz line 99.
See Plain Old Comments (Not!) in perlsyn for more details.
The cake is a lie.
The cake is a lie.
The cake is a lie.
In reply to Re: Error ... at (eval 75) line 7974.
by Fletch
in thread Error ... at (eval 75) line 7974.
by syphilis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |