From cdea6f96b69a31e7d9294ac9b7f9f1167f722ed8 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Wed, 12 Sep 2007 01:27:53 +0000
Subject: phash: Be a bit more aggressive about trying to make a small hash

Change the threshold to 0.7 instead of 0.8.
---
 perllib/phash.ph | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib')

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;
-- 
cgit v1.2.1