Commit 40e950ae authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

Stop perl warning.

parent 987bebaf

util/mkdef.pl

+5 −1
Original line number Diff line number Diff line
@@ -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 = '';