diff options
| author |   millert <millert@openbsd.org> | 2001-05-24 18:34:40 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2001-05-24 18:34:40 +0000 |
| commit | c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639 (patch) | |
| tree | 3be355f56e8f30e0beb22d375a75a1e8ca129d25 /gnu/usr.bin/perl/lib/Tie/Hash.pm | |
| parent | stock perl 5.6.1 (diff) | |
| download | wireguard-openbsd-c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639.tar.xz wireguard-openbsd-c5dcfd37a3164fb53e0dfad8933a4e7c5f31c639.zip | |
merge in perl 5.6.1 with our local changes
Diffstat (limited to 'gnu/usr.bin/perl/lib/Tie/Hash.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Tie/Hash.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/Tie/Hash.pm b/gnu/usr.bin/perl/lib/Tie/Hash.pm index c6ec3d4f5c6..2244711669a 100644 --- a/gnu/usr.bin/perl/lib/Tie/Hash.pm +++ b/gnu/usr.bin/perl/lib/Tie/Hash.pm @@ -114,8 +114,7 @@ sub new { sub TIEHASH { my $pkg = shift; if (defined &{"${pkg}::new"}) { - warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing" - if warnings::enabled(); + warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"); $pkg->new(@_); } else { |