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 8BEGIN { 9 @INC = '..' if -f '../TestInit.pm'; 10} 11use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute 12use strict; 13 14require 't/test.pl'; 15my $source = find_git_or_skip('all'); 16chdir $source or die "Can't chdir to $source: $!"; 17 18system "$^X Porting/cmpVERSION.pl --exclude --tap"; 19