[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 (file)
--- 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 {