| Subject: | M:S:S can corrupt line numbers for unrelated parts of the file |
$ cat bug/lineno
#!perl
use Method::Signatures::Simple;
func id_2
(
$x
)
{
$x
}
die; # line 10
__END__
$ perl bug/lineno
Died at bug/lineno line 8.
The line numbers reported by perl are wrong. I have a second program
showing the same symptoms; the causes may be unrelated, though, so I'm
including it:
$ cat bug/lineno2
#!perl
use warnings;
use strict;
use Method::Signatures::Simple;
{
my $uniq = 0;
method fresh_name() {
$self->prefix . $uniq++
}
} # line 13
method prefix() {
$self->{prefix}
}
my $aref = [];
my $oops = %{ $aref }; # line 20
print "got $oops\n";
__END__
$ perl bug/lineno2
Not a HASH reference at bug/lineno2 line 13.