Stop perl warning.

40e950ae · Dr. Stephen Henson · 987bebaf · 40e950ae
隐藏空白更改
内联并排

Showing with 5 addition and 1 deletion

util/mkdef.pl util/mkdef.pl +5 -1

未找到文件。
--- 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 = '';