diff options
| author | Victor van den Elzen <victor.vde@gmail.com> | 2010-11-07 17:20:23 +0100 |
|---|---|---|
| committer | Victor van den Elzen <victor.vde@gmail.com> | 2010-11-07 17:20:23 +0100 |
| commit | bc8522e3a08ae3124bdf60d27dd0a24baee535f0 (patch) | |
| tree | 7b309d6c2c5c14f26dbe476e676aa4b9a344b28d /perllib | |
| parent | af43b9751494b45f6aca068694db032749db0709 (diff) | |
| download | nasm-bc8522e3a08ae3124bdf60d27dd0a24baee535f0.tar.gz nasm-bc8522e3a08ae3124bdf60d27dd0a24baee535f0.tar.bz2 nasm-bc8522e3a08ae3124bdf60d27dd0a24baee535f0.zip | |
Fix Perl deprecation warnings.
Use of defined on aggregates (hashes and arrays) is deprecated.
You should instead use a simple test for size.
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/phash.ph | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph index 5bc2744..936978a 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; } |