From: Yuval Kojman <unknown>
Date: Thu, 28 Oct 2004 12:16:37 +0000 (+0000)
Subject: [perl #32193] Tie::RefHash DELETE does not return value for ref keys
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=296b60dd8987f12ccbda0d2499a3bcf09b3ab304;p=p5sagit%2Fp5-mst-13.2.git

[perl #32193] Tie::RefHash DELETE does not return value for ref keys
From: Yuval Kojman (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32193-98805.8.56634266171625@perl.org>

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

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index 3f3fc6b..3920dfd 100644
--- a/lib/Tie/RefHash.pm
+++ b/lib/Tie/RefHash.pm
@@ -1,6 +1,6 @@
 package Tie::RefHash;
 
-our $VERSION = 1.31;
+our $VERSION = 1.32;
 
 =head1 NAME
 
@@ -61,7 +61,7 @@ Gurusamy Sarathy        gsar@activestate.com
 
 =head1 VERSION
 
-Version 1.30
+Version 1.32
 
 =head1 SEE ALSO
 
@@ -115,7 +115,7 @@ sub STORE {
 
 sub DELETE {
   my($s, $k) = @_;
-  (ref $k) ? delete($s->[0]{overload::StrVal($k)}) : delete($s->[1]{$k});
+  (ref $k) ? delete($s->[0]{overload::StrVal($k)})->[1] : delete($s->[1]{$k});
 }
 
 sub EXISTS {