diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-02-05 11:35:20 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-02-05 12:13:39 -0500 |
commit | db8086f1ea09275c236fcf4e8b77eb3f0dfb6741 (patch) | |
tree | e2d52d6f2189e7837ce149eb6abc1a7ebaba3102 /Porting/cmpVERSION.pl | |
parent | 99b868c158706f13b5c131e0b386563f4b882f3e (diff) | |
download | perl-db8086f1ea09275c236fcf4e8b77eb3f0dfb6741.tar.gz |
cmpVERSION STDERR messages for test failures.
Better known as t/porting/cmp_version
Diffstat (limited to 'Porting/cmpVERSION.pl')
-rwxr-xr-x | Porting/cmpVERSION.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index a97f8c74da..efe362309b 100755 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -183,7 +183,9 @@ foreach my $pm_file (sort keys %module_diffs) { print "ok $count - SKIP Can't parse \$VERSION in $pm_file\n" if $tap; } elsif (!defined $pm_version || $pm_version eq 'undef') { - print "not ok $count - in $pm_file version was $orig_pm_version, now unparsable\n" if $tap; + my $nok = "not ok $count - in $pm_file version was $orig_pm_version, now unparsable\n"; + print $nok if $tap; + print STDERR "# $nok\n"; } elsif ($pm_version ne $orig_pm_version) { # good print "ok $count - $pm_file\n" if $tap; } else { @@ -195,7 +197,9 @@ foreach my $pm_file (sort keys %module_diffs) { and grep $pm_version eq $_, @{$skip_versions{$pm_file}}) { print "ok $count - SKIP $pm_file version $pm_version\n"; } else { - print "not ok $count - $pm_file version $pm_version\n"; + my $nok = "not ok $count - $pm_file version $pm_version\n"; + print $nok; + print STDERR "# $nok"; } } else { push @diff, @{$module_diffs{$pm_file}}; |