diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-10-16 17:57:35 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-16 18:57:57 +0000 |
| commit | 96820f7c3e2b653f17592caf375543507ca51b58 (patch) | |
| tree | 75906de5ffecc38ad4b15f6fc5d94356d941ad42 /lib/Tie | |
| parent | fb3560eea7ab14f0a8edc924380f6da1cc8aa74c (diff) | |
| download | perl-96820f7c3e2b653f17592caf375543507ca51b58.tar.gz | |
Tie::Hash documentation
Message-Id: <1066327055.1428@devpc01.iconmobile.de>
p4raw-id: //depot/perl@21467
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Hash.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index c28e828d57..65f9dd0b38 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -38,7 +38,8 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes # the reference to the actual storage sub DELETE { $_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer - delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1]) } + delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1]) + } package main; |