if ( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) {
print "1..0 # Skip: t/TEST needs numbers\n";
exit;
}
print <<END;
1..6
ok
ok
ok
ok
ok
ok
END
if ( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) {
print "1..0 # Skip: t/TEST needs numbers\n";
exit;
}
print <<END;
1..6
ok
ok
ok
ok
ok
ok
END