1if ( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) { 2 print "1..0 # Skip: t/TEST needs numbers\n"; 3 exit; 4} 5 6print <<END; 71..6 8ok 9ok 10ok 11ok 12ok 13ok 14END 15