mirror of
https://github.com/Perl/perl5.git
synced 2026-01-27 01:44:43 +00:00
f8b8ba603b
I’m used to typing ‘./perl -Ilib t/porting/cmp_version.t’; it’s annoy- ing to have to add ‘-I.’. (Obviously no perldelta entry necessary.)
32 lines
1.0 KiB
Perl
32 lines
1.0 KiB
Perl
#!./perl -w
|
|
|
|
# Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com
|
|
#
|
|
# Adapted from Porting/cmpVERSION.pl by Abigail
|
|
# Changes folded back into that by Nicholas
|
|
#
|
|
# If some modules fail this, you need a version bump (_001, etc.)
|
|
# AND you should probably also nudge the upstream maintainer for
|
|
# example by filing a bug, with a patch attached and linking to
|
|
# the core change.
|
|
#
|
|
# This test script works by finding the last non-RC tagged commit,
|
|
# which it assumes was the last release, then for each module:
|
|
# if it has changed since that commit, but its version number is still the
|
|
# same as that commit, report it.
|
|
#
|
|
# There's also a module exclusion list in Porting/cmpVERSION.pl.
|
|
|
|
BEGIN {
|
|
@INC = '..' if -f '../TestInit.pm';
|
|
@INC = '.' if -f './TestInit.pm';
|
|
}
|
|
use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
|
|
use strict;
|
|
|
|
require './t/test.pl';
|
|
my $source = find_git_or_skip('all');
|
|
chdir $source or die "Can't chdir to $source: $!";
|
|
|
|
system "$^X Porting/cmpVERSION.pl --tap";
|