Stop perl warning.
authorDr. Stephen Henson <steve@openssl.org>
Tue, 19 Apr 2005 18:57:17 +0000 (18:57 +0000)
committerDr. Stephen Henson <steve@openssl.org>
Tue, 19 Apr 2005 18:57:17 +0000 (18:57 +0000)
util/mkdef.pl

index e6064baf6cb374e4ec23e9c27c3e2179ae1af073..6cbdf776833c5c9ca3de685474a9370067fd5b27 100755 (executable)
@@ -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 = '';