1N/A print "1..0 # Skip Need File::Spec to run this test\n"; 1N/Aif( $^O eq 'VMS' && $] <= 5.00503 ) { 1N/A print "1..0 # Skip test will hang on older VMS perls\n"; 1N/A print "1..0 # Skip exit status broken on Mac OS\n"; 1N/A# Utility testing functions. 1N/Aprint "# Ahh! I see you're running VMS.\n" if $IsVMS; 1N/A # VMS can't use its own $^X in a system call until almost 5.8 1N/A # Quiet noisy 'SYS$ABORT'. 'hushed' only exists in 5.6 and up, 1N/A # but it doesn't do any harm on eariler perls.