Stop perl warning.

[openssl.git] / util / mkdef.pl

diff --git a/util/mkdef.pl b/util/mkdef.pl
index e6064baf6cb374e4ec23e9c27c3e2179ae1af073..6cbdf776833c5c9ca3de685474a9370067fd5b27 100755 (executable)
--- 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 = '';