diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-11 15:34:05 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 16:01:36 +0000 |
| commit | cc6b73957505a73b130c87add7bf3d534f129041 (patch) | |
| tree | 9eae2f71c172110fb9ec7dfb5f002ebb937fd46c /lib | |
| parent | e5724059399517e049ad3e9429cfece6d66ce97f (diff) | |
| download | perl-cc6b73957505a73b130c87add7bf3d534f129041.tar.gz | |
5.004_56: Patch to Tie::Hash and docs
Date: Sun, 11 Jan 1998 20:34:05 -0500 (EST)
Subject: 5.004_56: Patch to (?{}) quoting + cosmetic
Date: Mon, 2 Feb 1998 01:28:46 -0500 (EST)
p4raw-id: //depot/perl@470
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Tie/Hash.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index 2117c54c18..89fd61dd74 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -110,7 +110,7 @@ sub new { sub TIEHASH { my $pkg = shift; - if (defined &{"{$pkg}::new"}) { + if (defined &{"${pkg}::new"}) { carp "WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing" if $^W; $pkg->new(@_); |