diff options
author | Leon Timmermans <fawaka@gmail.com> | 2021-01-12 23:47:55 +0100 |
---|---|---|
committer | Leon Timmermans <fawaka@gmail.com> | 2021-06-02 01:38:31 +0200 |
commit | 55f5e7656892bb5ab03f4f19defe887167db7236 (patch) | |
tree | cae18826d99951815bc6cc949fad48de091b9c13 /t | |
parent | 307a07c2d5f032a3d666d0548847166330d702b4 (diff) | |
download | perl-55f5e7656892bb5ab03f4f19defe887167db7236.tar.gz |
Call magic on all elements on %SIG delocalization
Diffstat (limited to 't')
-rw-r--r-- | t/op/magic.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index c2180afb9d..0d8e32a543 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; require './test.pl'; set_up_inc( '../lib' ); - plan (tests => 196); # some tests are run in BEGIN block + plan (tests => 197); # some tests are run in BEGIN block } # Test that defined() returns true for magic variables created on the fly, @@ -852,6 +852,11 @@ SKIP: { } } +{ + local %SIG = (%SIG, ALRM => sub {}) +}; +is $SIG{ALRM}, undef; + # test case-insignificance of %ENV (these tests must be enabled only # when perl is compiled with -DENV_IS_CASELESS) SKIP: { |