diff options
author | Yuval Kojman <unknown> | 2004-10-28 12:16:37 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-03 18:03:15 +0000 |
commit | 296b60dd8987f12ccbda0d2499a3bcf09b3ab304 (patch) | |
tree | 19fc1e3f0e9ac529d53f82b8f46ff877cd85ff04 /lib/Tie | |
parent | ea63ef19ca3f585d76378df52ef140c169642026 (diff) | |
download | perl-296b60dd8987f12ccbda0d2499a3bcf09b3ab304.tar.gz |
[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
Diffstat (limited to 'lib/Tie')
-rw-r--r-- | lib/Tie/RefHash.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm index 3f3fc6b2e5..3920dfd2da 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 { |