This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move version from lib/ to cpan/
[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
17 BEGIN {
18     use version 0.9902;
19 }
20
21 pass "Didn't get caught by the wrong DIE handler, which is a good thing";