From bc8522e3a08ae3124bdf60d27dd0a24baee535f0 Mon Sep 17 00:00:00 2001
From: Victor van den Elzen <victor.vde@gmail.com>
Date: Sun, 7 Nov 2010 17:20:23 +0100
Subject: Fix Perl deprecation warnings.

Use of defined on aggregates (hashes and arrays) is deprecated.
You should instead use a simple test for size.
---
 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 5bc2744a..936978a5 100644
--- a/perllib/phash.ph
+++ b/perllib/phash.ph
@@ -161,7 +161,7 @@ sub gen_perfect_hash($) {
 	for ($j = 0; $j < $maxj; $j++) {
 	    $sv = $random_sv_vectors[$j];
 	    @hashinfo = gen_hash_n($n, $sv, $href, $run++);
-	    return @hashinfo if (defined(@hashinfo));
+	    return @hashinfo if (@hashinfo);
 	}
 	$n <<= 1;
     }
-- 
cgit v1.2.1