die_last_minute

来自「source of perl for linux application,」· 代码 · 共 11 行

print <<DUMMY_TEST;
ok 1
ok 2
ok 3
ok 4
1..4
DUMMY_TEST

use if $^O eq 'VMS', vmsish => 'hushed';
exit 1;