1#!./perl -w 2 3# Test that there are no missing Maintainers in Maintainers.pl 4 5BEGIN { 6 # This test script uses a slightly atypical invocation of the 'standard' 7 # core testing setup stanza. 8 # The existing porting tools which manage the Maintainers file all 9 # expect to be run from the root 10 # XXX that should be fixed 11 12 chdir '..' unless -d 't'; 13 @INC = qw(lib Porting); 14 require './t/test.pl'; 15} 16 17use Config; 18if ( $Config{usecrosscompile} ) { 19 skip_all( "Odd failures during cross-compilation" ); 20} 21 22if ( $Config{ccflags} =~ /-DPERL_EXTERNAL_GLOB/) { 23 skip_all "Maintainers doesn't currently work for '-DPERL_EXTERNAL_GLOB'"; 24} 25 26if ($^O eq 'VMS') { 27 skip_all "home-grown glob doesn't handle fancy patterns"; 28} 29 30use strict; 31use warnings; 32use Maintainers qw(show_results process_options finish_tap_output); 33 34{ 35 local @ARGV = qw|--checkmani|; 36 show_results(process_options()); 37} 38 39{ 40 local @ARGV = qw|--checkmani lib/ ext/|; 41 show_results(process_options()); 42} 43 44finish_tap_output(); 45 46# EOF 47