From: Hugo van der Sanden <hv@crypt.org>
Date: Thu, 4 Oct 2001 12:12:41 +0000 (+0100)
Subject: PATCH: Tie::SubstrHash
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28ee103ac832b2460303989eadcfcb79549ff93c;p=p5sagit%2Fp5-mst-13.2.git

PATCH: Tie::SubstrHash
Message-Id: <200110041112.f94BCfS17390@crypt.compulink.co.uk>

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

diff --git a/lib/Tie/SubstrHash.pm b/lib/Tie/SubstrHash.pm
index cd1125e..476dd68 100644
--- a/lib/Tie/SubstrHash.pm
+++ b/lib/Tie/SubstrHash.pm
@@ -47,7 +47,7 @@ sub TIEHASH {
     my $rlen = 1 + $klen + $vlen;
     $tsize = [$tsize,
 	      findgteprime($tsize * 1.1)]; # Allow 10% empty.
-    $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
+    local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
     $$self[0] x= $rlen * $tsize->[1];
     $self;
 }