This queue is for tickets about the Method-Signatures CPAN distribution.

Report information
The Basics
Id:
119912
Status:
new
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
tomas.zemres [...] gmail.com
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
20160315
Fixed in:
(no value)

Attachments
test-Method-Signatures-wrong-line-numbers.t test-Method-Signatures-wrong-line-numbers.txt



Subject: Wrongly reported line numbers when if a new line is before keyword "func".
When I use: my $code_ref = func () { }; Then following lines in file are "shifted", i.e. they reports wrong line number. See attached test file (*.t) and test output (*.txt).
Subject: test-Method-Signatures-wrong-line-numbers.t
use Test::Spec; use Method::Signatures; print STDERR "perl version: $^V\n"; print STDERR "package version: $Method::Signatures::VERSION\n"; describe 'test Method::Signatures bug' => sub { it "correctly reports line numbers after assign anonymous function" => sub { my $before_line = __LINE__; my $get_line = func () { __LINE__ }; my $after_line = __LINE__; is( $get_line->(), $before_line + 2 ); is( $after_line, $before_line + 3 ); is( "this is line ".__LINE__, "this is line 14"); }; }; runtests();
Subject: test-Method-Signatures-wrong-line-numbers.txt
Test Summary Report ------------------- perllib/Method/Signatures/t/Netsafe.t (Wstat: 768 Tests: 3 Failed: 3) Failed tests: 1-3 Non-zero exit status: 3 Files=1, Tests=3, 0 wallclock secs ( 0.04 usr 0.00 sys + 0.16 cusr 0.00 csys = 0.20 CPU) Result: FAIL perl version: v5.20.3 package version: 20160315 # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 14. # got: '11' # expected: '12' # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 15. # got: '12' # expected: '13' # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 16. # got: 'this is line 16' # expected: 'this is line 14' # Looks like you failed 3 tests of 3.
Note that "this is line 14" is on line 17, so that there should be "this is line 17", but tested code says wrongly "this is line 16".


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.