From: Slaven Rezic <slaven@rezic.de>
Date: Thu, 16 Oct 2003 17:57:35 +0000 (+0000)
Subject: Tie::Hash documentation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96820f7c3e2b653f17592caf375543507ca51b58;p=p5sagit%2Fp5-mst-13.2.git

Tie::Hash documentation
Message-Id: <1066327055.1428@devpc01.iconmobile.de>

p4raw-id: //depot/perl@21467
---

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index c28e828..65f9dd0 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;