Commit | Line | Data |
---|---|---|
543eec9e JP |
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 | ||
7 | use Test::More tests => 1; | |
8 | ||
9 | BEGIN { | |
10 | $SIG{__DIE__} = sub { | |
11 | warn @_; | |
12 | BAIL_OUT( q[Couldn't use module; can't continue.] ); | |
13 | }; | |
14 | } | |
15 | ||
543eec9e | 16 | BEGIN { |
05402f6b | 17 | use version 0.9907; |
543eec9e JP |
18 | } |
19 | ||
20 | pass "Didn't get caught by the wrong DIE handler, which is a good thing"; |