Add Dave Mitchell's test case for fields.

[p5sagit/p5-mst-13.2.git] / lib / Tie / SubstrHash.pm

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;
 }