| Subject: | system() reports incorrect line number |
Using autodie qw(:system) reports the wrong line number in autodie 1.99
Eg, in the following (buggy) program:
#!/usr/bin/perl -w
use strict;
use autodie qw(:default :system);
system(qw(cp -v -r t/* ../perl/t/lib/autodie/));
__END__
the following is reported:
Show quoted text
---cut here---
cp: cannot stat `t/*': No such file or directory
"cp" unexpectedly returned exit value 1 at (eval 7) line 13
at /usr/lib/perl5/5.8/autodie/exception.pm line 438
---cut here---
The references to eval and autodie/exception.pm are the guts of autodie,
and should not be mentioned. The actual script where the error occured
*should* be mentioned.