Fix Perl deprecation warnings.

Use of defined on aggregates (hashes and arrays) is deprecated.
You should instead use a simple test for size.

1 files changed, 1 insertions, 1 deletions

diff --git a/phash.pl b/phash.pl
index cc9ca74..3ef6e71 100755
--- a/phash.pl
+++ b/phash.pl
@@ -75,7 +75,7 @@ sub main() {
     %data = read_input();
     @hashinfo = gen_perfect_hash(\%data);
 
-    if (!defined(@hashinfo)) {
+    if (!@hashinfo) {
 	die "$0: no hash found\n";
     }