make ~$x give warning is $x isn't initialised.

[p5sagit/p5-mst-13.2.git] / t / lib / sample-tests / die

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