in reply to Error ... at (eval 75) line 7974.
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Error ... at (eval 75) line 7974.
by syphilis (Archbishop) on Apr 14, 2009 at 08:09 UTC | |
by BrowserUk (Patriarch) on Apr 14, 2009 at 11:59 UTC | |
by syphilis (Archbishop) on Apr 15, 2009 at 08:28 UTC | |
by clayne (Initiate) on Feb 12, 2011 at 23:39 UTC |
In Section
Seekers of Perl Wisdom