?????????? ????????? - ??????????????? - /home/.cpan/build/Storable-3.25-0/t/sig_die.t
???????
#!./perl # # Copyright (c) 2002 Slaven Rezic # # You may redistribute only under the same terms as Perl 5, as specified # in the README file that comes with the distribution. # sub BEGIN { unshift @INC, 't'; unshift @INC, 't/compat' if $] < 5.006002; require Config; import Config; if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { print "1..0 # Skip: Storable was not built\n"; exit 0; } } use strict; use Test::More tests => 1; my @warns; $SIG{__WARN__} = sub { push @warns, shift }; $SIG{__DIE__} = sub { require Carp; warn Carp::longmess(); warn "Evil die!" }; require Storable; Storable::dclone({foo => "bar"}); is(join("", @warns), "", "__DIE__ is not evil here");
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????