1#!./perl 2 3# What does this test? 4# This test executes Porting/pod_rules.pl and reports the result of that 5# program. 6# 7# Why do we test this? 8# Among other reasons, to check the well-formed-ness of these files: 9# MANIFEST 10# win32/Makefile 11# win32/pod.mak 12# Makefile.SH 13# vms/descrip_mms.template 14# 15# It's broken - how do I fix it? 16# If MANIFEST fails the 'up to date' test, it will probably also fail 17# t/porting/manifest.t as well. Follow instructions in that file for 18# correcting the MANIFEST. When that file passes, the MANIFEST check in this 19# file will probably pass as well. If not, it may be that the entry in 20# MANIFEST is no longer in sync with the entry in perl.pod. 21 22BEGIN { 23 # We need to be at the top level dir. 24 if (-f 'test.pl' && -f 'harness') { 25 chdir '..'; 26 } 27 @INC = qw(lib .); # Special @INC. 28 require './t/test.pl'; 29} 30 31use strict; 32 33use Config; 34if ( $Config{usecrosscompile} ) { 35 skip_all( "Not all files are available during cross-compilation" ); 36} 37 38my $result = runperl(switches => ['-f', '-Ilib'], 39 progfile => 'Porting/pod_rules.pl', 40 args => ['--tap'], 41 nolib => 1, 42 ); 43 44print $result; 45