1#!./perl -w 2 3# What does this test? 4# This tests that files referenced in Porting/makerel exist 5# This is important because otherwise the missing files will 6# only be discovered when actually attempting a release 7# 8# It's broken - how do I fix it? 9# EIther make sure that the file referenced by Porting/makerel exists 10# or delete the line in Porting/makerel referencing that file 11 12use Config; 13BEGIN { 14 @INC = '..' if -f '../TestInit.pm'; 15} 16use TestInit qw(T); # T is chdir to the top level 17 18require './t/test.pl'; 19 20plan('no_plan'); 21 22my $makerel = 'Porting/makerel'; 23 24open my $m, '<', $makerel or die "Can't open '$makerel': $!"; 25my @files; 26while (<$m>) { 27 if( /\@writables = /../\)/ ) { 28 if( /^\s+(\S+)/ ) { 29 my $file = $1; 30 push @files, $file; 31 ok(-f $file, "File $file exists"); 32 }; 33 } 34} 35 36close $m or die $!; 37 38# EOF 39