This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Synch cpan/version/* and other files with CPAN version 0.9921.
[perl5.git] / cpan / version / t / 05sigdie.t
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
16 BEGIN {
17     use version 0.9921;
18 }
19
20 pass "Didn't get caught by the wrong DIE handler, which is a good thing";