This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix win32 with Ming.org GCC 3.4.5 build
[perl5.git] / cpan / version / t / 05sigdie.t
CommitLineData
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
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
543eec9e 16BEGIN {
dddb2275 17 use version 0.9918;
543eec9e
JP
18}
19
20pass "Didn't get caught by the wrong DIE handler, which is a good thing";