diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-10-04 13:12:41 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-04 14:02:17 +0000 |
| commit | 28ee103ac832b2460303989eadcfcb79549ff93c (patch) | |
| tree | b2bd8654d9d5139069e5b58c891b3379766ab7e5 | |
| parent | c8b5a1e3d8998f2de29f95d38a8b3fe0b0ac6613 (diff) | |
| download | perl-28ee103ac832b2460303989eadcfcb79549ff93c.tar.gz | |
PATCH: Tie::SubstrHash
Message-Id: <200110041112.f94BCfS17390@crypt.compulink.co.uk>
p4raw-id: //depot/perl@12336
| -rw-r--r-- | lib/Tie/SubstrHash.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |