diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-09-01 08:13:51 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-01 08:14:02 -0700 |
commit | b4155db21af9a8f817d175591c873bccbd919871 (patch) | |
tree | f2ee0d3ff83971ab876a29a71bfe74cc742883d0 /t/op/magic.t | |
parent | 9da346da98617273964d333ee33ca5cdbddae4a1 (diff) | |
download | perl-b4155db21af9a8f817d175591c873bccbd919871.tar.gz |
[perl #97492] Tests & delta for defined ${"::!"}
Diffstat (limited to 't/op/magic.t')
-rw-r--r-- | t/op/magic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 3969673742..dd6d28e1bd 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; - plan (tests => 145); + plan (tests => 147); } # Test that defined() returns true for magic variables created on the fly, @@ -19,7 +19,7 @@ BEGIN { for (qw( SIG ^OPEN ^TAINT ^UNICODE ^UTF8LOCALE ^WARNING_BITS 1 2 3 4 5 6 7 8 9 42 & ` ' : ? ! _ - [ ^ ~ = % . ( ) < > \ / $ | + ; ] ^A ^C ^D - ^E ^F ^H ^I ^L ^N ^O ^P ^S ^T ^V ^W ^UTF8CACHE + ^E ^F ^H ^I ^L ^N ^O ^P ^S ^T ^V ^W ^UTF8CACHE ::12345 main::98732 )) { my $v = $_; # avoid using any global vars here: |