xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/die (revision 0:68f95e015346)

use if ($^O eq 'VMS'), vmsish => 'hushed';
exit 1;  # exit because die() can be noisy