This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
docs: clarify effect of $^H, %^H, ${^WARNING_BITS}
[perl5.git] / t / porting / cmp_version.t
CommitLineData
c8aeb9c6
A
1#!./perl -w
2
c8aeb9c6
A
3# Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com
4#
5# Adapted from Porting/cmpVERSION.pl by Abigail
76733a60 6# Changes folded back into that by Nicholas
1b67236f
JH
7#
8# If some modules fail this, you need a version bump (_001, etc.)
9# AND you should probably also nudge the upstream maintainer for
10# example by filing a bug, with a patch attached and linking to
11# the core change.
8ecf5aeb
DM
12#
13# This test script works by finding the last non-RC tagged commit,
14# which it assumes was the last release, then for each module:
15# if it has changed since that commit, but its version number is still the
16# same as that commit, report it.
17#
18# There's also a module exclusion list in Porting/cmpVERSION.pl.
c8aeb9c6 19
18388fdb
NC
20BEGIN {
21 @INC = '..' if -f '../TestInit.pm';
f8b8ba60 22 @INC = '.' if -f './TestInit.pm';
18388fdb 23}
7eccb5a9 24use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
c8aeb9c6 25use strict;
76733a60 26
3d7c117d 27require './t/test.pl';
fb7d5399
NC
28my $source = find_git_or_skip('all');
29chdir $source or die "Can't chdir to $source: $!";
c8aeb9c6 30
a954e3df 31system "$^X Porting/cmpVERSION.pl --tap";