diff options
| author |   millert <millert@openbsd.org> | 1999-04-29 22:50:42 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 1999-04-29 22:50:42 +0000 |
| commit | 6345ca90897845000e1f48f7d44c6708faafc8fe (patch) | |
| tree | e7174a5c6faa27f561efe81248738dbd85a405a2 /gnu/usr.bin/perl/lib/Tie/SubstrHash.pm | |
| parent | perl5.005_03 (diff) | |
| download | wireguard-openbsd-6345ca90897845000e1f48f7d44c6708faafc8fe.tar.xz wireguard-openbsd-6345ca90897845000e1f48f7d44c6708faafc8fe.zip | |
perl5.005_03 (stock)
Diffstat (limited to 'gnu/usr.bin/perl/lib/Tie/SubstrHash.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Tie/SubstrHash.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm b/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm index 44c2140c7be..4b18a58e122 100644 --- a/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm +++ b/gnu/usr.bin/perl/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; |