1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!./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
BEGIN {
@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 --exclude --tap";
|
