source: trunk/essentials/dev-lang/perl/t/lib/sample-tests/die

Last change on this file was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 86 bytes
Line 
1use if ($^O eq 'VMS'), vmsish => 'hushed';
2exit 1; # exit because die() can be noisy
Note: See TracBrowser for help on using the repository browser.