procyberian/nasm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Perl deprecation warnings.

Browse source 
Use of defined on aggregates (hashes and arrays) is deprecated.
You should instead use a simple test for size.
This commit is contained in:
Victor van den Elzen 2010-11-07 17:20:23 +01:00
parent af43b97514
commit bc8522e3a0
5 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
directiv.pl
View file

@ -95,7 +95,7 @@ if ($output eq 'h') {
}
@hashinfo = gen_perfect_hash(\%directive);
if (!defined(@hashinfo)) {
if (!@hashinfo) {
die "$0: no hash found\n";
}

2
perllib/phash.ph
View file

@ -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;
}

2
phash.pl
View file

@ -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";
}

2
pptok.pl
View file

@ -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";
}

2
tokhash.pl
View file

@ -183,7 +183,7 @@ if ($output eq 'h') {
#
@hashinfo = gen_perfect_hash(\%tokens);
if (!defined(@hashinfo)) {
if (!@hashinfo) {
die "$0: no hash found\n";
}