phash.ph: remove some stale code

Remove old randomization code which is no longer used.

diff --git a/perllib/phash.ph b/perllib/phash.ph
index 4339d586f6c6ca5054956852005336f55b9c0955..5021c2ff33111047d7d8e580f5c021d0bed87649 100644 (file)
--- a/perllib/phash.ph
+++ b/perllib/phash.ph
@@ -141,14 +141,6 @@ sub gen_hash_n($$$) {
     return ($n, $sv, \@g);
 }
 
-#
-# Generate a random prehash vector
-#
-sub prehash_vector()
-{
-    return [myrand(32), myrand(32), myrand(32), myrand(32)];
-}
-
 #
 # Driver for generating the function
 #
@@ -176,7 +168,6 @@ sub gen_perfect_hash($) {
        print STDERR "Trying n = $n...\n";
        for ($j = 0; $j < $maxj; $j++) {
            $sv = $random_sv_vectors[$j];
-           # $sv = prehash_vector();
            @hashinfo = gen_hash_n($n, $sv, $href);
            return @hashinfo if (defined(@hashinfo));
        }