generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix from HEAD.

Browse Source
This commit is contained in:
Dr. Stephen Henson 2005-04-20 00:00:23 +00:00
parent 4182f0ffc7
commit 76693ca0a3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
util/mkdef.pl
View File

@ -1011,7 +1011,7 @@ sub is_valid
{ {
my ($keywords_txt,$platforms) = @_; my ($keywords_txt,$platforms) = @_;
my (@keywords) = split /,/,$keywords_txt; my (@keywords) = split /,/,$keywords_txt;
my ($falsesum, $truesum) = (0, !grep(/^[^!]/,@keywords)); my ($falsesum, $truesum) = (0, 1);
# Param: one keyword # Param: one keyword
sub recognise sub recognise
@ -1079,7 +1079,7 @@ sub is_valid
if ($k =~ /^!(.*)$/) { if ($k =~ /^!(.*)$/) {
$falsesum += &recognise($1,$platforms); $falsesum += &recognise($1,$platforms);
} else { } else {
$truesum += &recognise($k,$platforms); $truesum *= &recognise($k,$platforms);
} }
} }
print STDERR "DEBUG: [",$#keywords,",",$#keywords < 0,"] is_valid($keywords_txt) => (\!$falsesum) && $truesum = ",(!$falsesum) && $truesum,"\n" if $debug; print STDERR "DEBUG: [",$#keywords,",",$#keywords < 0,"] is_valid($keywords_txt) => (\!$falsesum) && $truesum = ",(!$falsesum) && $truesum,"\n" if $debug;