From: Hugo van der Sanden 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; }