diff options
-rwxr-xr-x | directiv.pl | 2 | ||||
-rw-r--r-- | perllib/phash.ph | 2 | ||||
-rwxr-xr-x | phash.pl | 2 | ||||
-rwxr-xr-x | pptok.pl | 2 | ||||
-rwxr-xr-x | tokhash.pl | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/directiv.pl b/directiv.pl index 684f542a..0417f565 100755 --- a/directiv.pl +++ b/directiv.pl @@ -95,7 +95,7 @@ if ($output eq 'h') { } @hashinfo = gen_perfect_hash(\%directive); - if (!defined(@hashinfo)) { + if (!@hashinfo) { die "$0: no hash found\n"; } 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; } @@ -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"; } @@ -164,7 +164,7 @@ if ($what eq 'c') { } my @hashinfo = gen_perfect_hash(\%tokens); - if (!defined(@hashinfo)) { + if (!@hashinfo) { die "$0: no hash found\n"; } @@ -183,7 +183,7 @@ if ($output eq 'h') { # @hashinfo = gen_perfect_hash(\%tokens); - if (!defined(@hashinfo)) { + if (!@hashinfo) { die "$0: no hash found\n"; } |