diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:36:42 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:36:42 +0000 |
| commit | 8bab8b19946f98d4be49345ca9c42e56674b65fb (patch) | |
| tree | bd62d7b5d463fab205d08914b30ba647eb3c8bc8 /gnu/usr.bin/perl/lib/vars.pm | |
| parent | 483d4e680bd2a6db14835b1b4d65be33488d532b (diff) | |
merge in perl 5.6.1 with our local changes
Diffstat (limited to 'gnu/usr.bin/perl/lib/vars.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/vars.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/vars.pm b/gnu/usr.bin/perl/lib/vars.pm index 0ace55169c4..39a15bd312b 100644 --- a/gnu/usr.bin/perl/lib/vars.pm +++ b/gnu/usr.bin/perl/lib/vars.pm @@ -10,6 +10,7 @@ require 5.002; require Carp if $] < 5.00450; use warnings::register; +require strict; sub import { my $callpack = caller; @@ -26,6 +27,8 @@ sub import { Carp::croak("Can't declare individual elements of hash or array"); } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { warnings::warn("No need to declare built-in vars"); + } elsif ( $^H &= strict::bits('vars') ) { + Carp::croak("'$ch$sym' is not a valid variable name under strict vars"); } } *{"${callpack}::$sym"} = |