Commit | Line | Data |
---|---|---|
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 |
20 | BEGIN { |
21 | @INC = '..' if -f '../TestInit.pm'; | |
f8b8ba60 | 22 | @INC = '.' if -f './TestInit.pm'; |
18388fdb | 23 | } |
7eccb5a9 | 24 | use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute |
c8aeb9c6 | 25 | use strict; |
76733a60 | 26 | |
3d7c117d | 27 | require './t/test.pl'; |
fb7d5399 NC |
28 | my $source = find_git_or_skip('all'); |
29 | chdir $source or die "Can't chdir to $source: $!"; | |
c8aeb9c6 | 30 | |
a954e3df | 31 | system "$^X Porting/cmpVERSION.pl --tap"; |