From 40e950aed64808201993ed1e80df1b8b83ef5305 Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Tue, 19 Apr 2005 18:57:17 +0000
Subject: [PATCH] Stop perl warning.

---
 util/mkdef.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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 = '';
-- 
2.25.1