From: Dr. Stephen Henson <steve@openssl.org>
Date: Wed, 20 Apr 2005 00:00:23 +0000 (+0000)
Subject: Fix from HEAD.
X-Git-Tag: BEN_FIPS_TEST_8~72
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=76693ca0a3ce72233d855f35cd0d626276ef7c70;p=oweals%2Fopenssl.git

Fix from HEAD.
---

diff --git a/util/mkdef.pl b/util/mkdef.pl
index 9918c3d549..831291e287 100755
--- a/util/mkdef.pl
+++ b/util/mkdef.pl
@@ -1011,7 +1011,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
@@ -1079,7 +1079,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;