| Subject: | Specifying 'perl_version' results in X-Test-Reporter-Perl not being set |
Compare :
$ perl5.16.1 -MTest::Reporter -e 'my $perl = shift;
Test::Reporter->new(grade => "pass", distribution => "Foo-Bar-1.23",
$perl ? (perl_version => $perl) : ())->write(*STDOUT)' | grep
X-Test-Reporter-Perl
X-Test-Reporter-Perl: v5.16.1
with :
$ perl5.16.1 -MTest::Reporter -e 'my $perl = shift;
Test::Reporter->new(grade => "pass", distribution => "Foo-Bar-1.23",
$perl ? (perl_version => $perl) : ())->write(*STDOUT)'
/Users/vince/perl/builds/bin/perl5.8.9 | grep X-Test-Reporter-Perl
Use of uninitialized value $perl_version in concatenation (.) or string
at
/Users/vince/perl/builds/clang/5.16.1/lib/site_perl/5.16.1/Test/Reporter.pm
line 328.
X-Test-Reporter-Perl:
A fix would be to make the perl_version() set
$self->{_perl_version}{_version} (note that _normalize_perl_version()
can't do it as is, since its gets the version number from $^V).
Vincent