diff options
| author |   millert <millert@openbsd.org> | 2002-10-27 22:25:13 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2002-10-27 22:25:13 +0000 |
| commit | 79cd0b9ae197e67390710f96587afb9169e5346d (patch) | |
| tree | 8952f7a8f773436ffd1169eb9ac0d56c7ce1118f /gnu/usr.bin/perl/lib/Tie/SubstrHash.pm | |
| parent | stock perl 5.8.0 from CPAN (diff) | |
| download | wireguard-openbsd-79cd0b9ae197e67390710f96587afb9169e5346d.tar.xz wireguard-openbsd-79cd0b9ae197e67390710f96587afb9169e5346d.zip | |
Resolve conflicts, remove old files, merge local changes
Diffstat (limited to 'gnu/usr.bin/perl/lib/Tie/SubstrHash.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Tie/SubstrHash.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm b/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm index 1c04c6fe269..476dd686787 100644 --- a/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm +++ b/gnu/usr.bin/perl/lib/Tie/SubstrHash.pm @@ -1,5 +1,7 @@ package Tie::SubstrHash; +our $VERSION = '1.00'; + =head1 NAME Tie::SubstrHash - Fixed-table-size, fixed-key-length hashing @@ -45,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; } |