xref: /openbsd/gnu/usr.bin/perl/cpan/version/t/05sigdie.t (revision fc61954a)
1#! /usr/local/perl -w
2# Before `make install' is performed this script should be runnable with
3# `make test'. After `make install' it should work as `perl test.pl'
4
5#########################
6
7use Test::More tests => 1;
8
9BEGIN {
10    $SIG{__DIE__}   = sub {
11	warn @_;
12	BAIL_OUT( q[Couldn't use module; can't continue.] );
13    };
14}
15
16BEGIN {
17    use version 0.9909;
18}
19
20pass "Didn't get caught by the wrong DIE handler, which is a good thing";
21