From: Blair Zajac <blair@orcaware.com>
Date: Wed, 23 Dec 1998 17:13:32 +0000 (-0800)
Subject: Tie::SubstrHash patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be425529213e9b149dcb8e489b8c142dbfdda50e;p=p5sagit%2Fp5-mst-13.2.git

Tie::SubstrHash patch

To: perl5-porters@perl.org
Message-ID: <3681953C.8B6A90AA@geostaff.com>

p4raw-id: //depot/cfgperl@2502
---

diff --git a/lib/Tie/SubstrHash.pm b/lib/Tie/SubstrHash.pm
index 44c2140..4b18a58 100644
--- a/lib/Tie/SubstrHash.pm
+++ b/lib/Tie/SubstrHash.pm
@@ -69,7 +69,7 @@ sub FETCH {
 sub STORE {
     local($self,$key,$val) = @_;
     local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
-    croak("Table is full") if $self[5] == $tsize;
+    croak("Table is full") if $$self[5] == $tsize;
     croak(qq/Value "$val" is not $vlen characters long./)
 	if length($val) != $vlen;
     my $writeoffset;