From 28ee103ac832b2460303989eadcfcb79549ff93c Mon Sep 17 00:00:00 2001
From: Hugo van der Sanden <hv@crypt.org>
Date: Thu, 4 Oct 2001 13:12:41 +0100
Subject: [PATCH] PATCH: Tie::SubstrHash Message-Id:
 <200110041112.f94BCfS17390@crypt.compulink.co.uk>

p4raw-id: //depot/perl@12336
---
 lib/Tie/SubstrHash.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Tie/SubstrHash.pm b/lib/Tie/SubstrHash.pm
index cd1125eab8..476dd68678 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;
 }
-- 
2.34.1