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 (file)
--- 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;
 }