diff options
| author | Tony Cook <tony@develop-help.com> | 2017-02-01 16:31:02 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-09-26 14:39:52 +1000 |
| commit | eda3f954e1ab1728381b70aa008fe2226fd05de2 (patch) | |
| tree | 7a14ee08412e3f1e4e9a7a83f08994922b4e78c4 /lib/vars.t | |
| parent | 4e3855f131e01fb258a8cb812abd6a50fc7fc48b (diff) | |
| download | perl-eda3f954e1ab1728381b70aa008fe2226fd05de2.tar.gz | |
(perl #130674) don't modify $^H in vars.pm
This could remove non-vars strictness from the caller.
Diffstat (limited to 'lib/vars.t')
| -rw-r--r-- | lib/vars.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/vars.t b/lib/vars.t index 3075f8e5ff..9b9822ca28 100644 --- a/lib/vars.t +++ b/lib/vars.t @@ -8,7 +8,7 @@ BEGIN { $| = 1; -print "1..27\n"; +print "1..28\n"; # catch "used once" warnings my @warns; @@ -103,3 +103,10 @@ print "${e}ok 26\n"; $e = !(grep(/^Global symbol "\%w" requires explicit package name/, @errs)) && 'not '; print "${e}ok 27\n"; + +{ + no strict; + eval 'use strict "refs"; my $zz = "abc"; use vars qw($foo$); my $y = $$zz;'; + $e = $@ ? "" : "not "; + print "${e}ok 28 # use vars error check modifying other strictness\n"; +} |