diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2005-04-19 23:54:44 +0000 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2005-04-19 23:54:44 +0000 |
| commit | d3fdc27aa8a291d7dc9498a8e3684f2060590e90 (patch) | |
| tree | 8113c47ef1bd218d2e12d4e92073011915a253bb /util/mkdef.pl | |
| parent | 40e950aed64808201993ed1e80df1b8b83ef5305 (diff) | |
Fix logic in mkdef.pl function is_valid.
Update symbols
Diffstat (limited to 'util/mkdef.pl')
| -rwxr-xr-x | util/mkdef.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index 6cbdf77683..357adf4623 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -1032,7 +1032,7 @@ sub is_valid { my ($keywords_txt,$platforms) = @_; my (@keywords) = split /,/,$keywords_txt; - my ($falsesum, $truesum) = (0, !grep(/^[^!]/,@keywords)); + my ($falsesum, $truesum) = (0, 1); # Param: one keyword sub recognise @@ -1102,7 +1102,7 @@ sub is_valid if ($k =~ /^!(.*)$/) { $falsesum += &recognise($1,$platforms); } 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; |