diff options
| author | Blair Zajac <blair@orcaware.com> | 1998-12-23 09:13:32 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-28 07:39:20 +0000 |
| commit | be425529213e9b149dcb8e489b8c142dbfdda50e (patch) | |
| tree | 599ac50f5871824a9b9ae6448b25e478e30a93d7 /lib/Tie | |
| parent | 1fa0e54f2e0b168f2a77a752f92064a58da05ee4 (diff) | |
| download | perl-be425529213e9b149dcb8e489b8c142dbfdda50e.tar.gz | |
Tie::SubstrHash patch
To: perl5-porters@perl.org
Message-ID: <3681953C.8B6A90AA@geostaff.com>
p4raw-id: //depot/cfgperl@2502
Diffstat (limited to 'lib/Tie')
| -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 44c2140c7b..4b18a58e12 100644 --- a/lib/Tie/SubstrHash.pm +++ b/lib/Tie/SubstrHash.pm @@ -69,7 +69,7 @@ sub FETCH { sub STORE { local($self,$key,$val) = @_; local($klen, $vlen, $tsize, $rlen) = @$self[1..4]; - croak("Table is full") if $self[5] == $tsize; + croak("Table is full") if $$self[5] == $tsize; croak(qq/Value "$val" is not $vlen characters long./) if length($val) != $vlen; my $writeoffset; |