1#!./perl -w 2 3# Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com 4# 5# Adapted from Porting/cmpVERSION.pl by Abigail 6# Changes folded back into that by Nicholas 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. 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. 19 20BEGIN { 21 @INC = '..' if -f '../TestInit.pm'; 22 @INC = '.' if -f './TestInit.pm'; 23} 24use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute 25use strict; 26 27require './t/test.pl'; 28my $source = find_git_or_skip('all'); 29chdir $source or die "Can't chdir to $source: $!"; 30 31system "$^X Porting/cmpVERSION.pl --tap"; 32