Commit | Line | Data |
e0408fa0 |
1 | #!./perl |
2 | # |
3 | # Copyright (c) 2002 Slaven Rezic |
4 | # |
5 | # You may redistribute only under the same terms as Perl 5, as specified |
6 | # in the README file that comes with the distribution. |
7 | # |
8 | |
9 | sub BEGIN { |
10 | if ($ENV{PERL_CORE}){ |
11 | chdir('t') if -d 't'; |
12 | @INC = ('.', '../lib'); |
13 | } else { |
14 | unshift @INC, 't'; |
15 | } |
16 | require Config; import Config; |
17 | if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { |
18 | print "1..0 # Skip: Storable was not built\n"; |
19 | exit 0; |
20 | } |
21 | } |
22 | |
23 | use strict; |
24 | BEGIN { |
25 | if (!eval q{ |
26 | use Test::More; |
27 | 1; |
28 | }) { |
29 | print "1..0 # skip: tests only work with Test::More\n"; |
30 | exit; |
31 | } |
32 | } |
33 | |
34 | BEGIN { plan tests => 1 } |
35 | |
36 | my @warns; |
37 | $SIG{__WARN__} = sub { push @warns, shift }; |
38 | $SIG{__DIE__} = sub { require Carp; warn Carp::longmess(); warn "Evil die!" }; |
39 | |
40 | require Storable; |
41 | |
42 | Storable::dclone({foo => "bar"}); |
43 | |
44 | is(join("", @warns), "", "__DIE__ is not evil here"); |