From: Dr. Stephen Henson <steve@openssl.org>
Date: Tue, 19 Apr 2005 18:57:17 +0000 (+0000)
Subject: Stop perl warning.
X-Git-Tag: BEN_FIPS_TEST_8~42^2~123
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=40e950aed64808201993ed1e80df1b8b83ef5305;p=openssl

Stop perl warning.
---

diff --git a/util/mkdef.pl b/util/mkdef.pl
index e6064baf6c..6cbdf77683 100755
--- a/util/mkdef.pl
+++ b/util/mkdef.pl
@@ -432,7 +432,11 @@ sub do_defs
 
 		print STDERR "DEBUG: parsing ----------\n" if $debug;
 		while(<IN>) {
-			last if (/\/\* Error codes for the \w+ functions\. \*\//);
+			if (/\/\* Error codes for the \w+ functions\. \*\//)
+				{
+				undef @tag;
+				last;
+				}
 			if ($line ne '') {
 				$_ = $line . $_;
 				$line = '';