diff options
author | H. Peter Anvin <hpa@zytor.com> | 2007-09-12 01:27:53 +0000 |
---|---|---|
committer | H. Peter Anvin <hpa@zytor.com> | 2007-09-12 01:27:53 +0000 |
commit | cdea6f96b69a31e7d9294ac9b7f9f1167f722ed8 (patch) | |
tree | 65fe71a46e9ef529924c443d1ead082e9a9f6b77 | |
parent | ce9be34d3d00eec4f3386bb0222039c347bc6ee5 (diff) | |
download | nasm-cdea6f96b69a31e7d9294ac9b7f9f1167f722ed8.tar.gz |
phash: Be a bit more aggressive about trying to make a small hash
Change the threshold to 0.7 instead of 0.8.
-rw-r--r-- | perllib/phash.ph | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph index d5a06ce1..38140e51 100644 --- a/perllib/phash.ph +++ b/perllib/phash.ph @@ -163,7 +163,7 @@ sub gen_perfect_hash($) { # Minimal power of 2 value for N with enough wiggle room. # The scaling constant must be larger than 0.5 in order for the # algorithm to ever terminate. - my $room = scalar(@keys)*0.8; + my $room = scalar(@keys)*0.7; $n = 1; while ($n < $room) { $n <<= 1; |