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";