Change 21467 by [EMAIL PROTECTED] on 2003/10/16 18:57:57
Subject: [PATCH] Tie::Hash documentation
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: Thu, 16 Oct 2003 17:57:35 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Tie/Hash.pm#19 edit
Differences ...
==== //depot/perl/lib/Tie/Hash.pm#19 (text) ====
Index: perl/lib/Tie/Hash.pm
--- perl/lib/Tie/Hash.pm#18~21439~ Sun Oct 12 09:28:06 2003
+++ perl/lib/Tie/Hash.pm Thu Oct 16 11:57:57 2003
@@ -38,7 +38,8 @@
# 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;
End of Patch.
