summaryrefslogtreecommitdiff
path: root/Porting/cmpVERSION.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2016-02-05 11:35:20 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2016-02-05 12:13:39 -0500
commitdb8086f1ea09275c236fcf4e8b77eb3f0dfb6741 (patch)
treee2d52d6f2189e7837ce149eb6abc1a7ebaba3102 /Porting/cmpVERSION.pl
parent99b868c158706f13b5c131e0b386563f4b882f3e (diff)
downloadperl-db8086f1ea09275c236fcf4e8b77eb3f0dfb6741.tar.gz
cmpVERSION STDERR messages for test failures.
Better known as t/porting/cmp_version
Diffstat (limited to 'Porting/cmpVERSION.pl')
-rwxr-xr-xPorting/cmpVERSION.pl8
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}};