Fix to allow multiple NONE libraries in mkerr.pl .
authorDr. Stephen Henson <steve@openssl.org>
Thu, 10 May 2001 00:07:45 +0000 (00:07 +0000)
committerDr. Stephen Henson <steve@openssl.org>
Thu, 10 May 2001 00:07:45 +0000 (00:07 +0000)
util/mkerr.pl

index 7dbe246..e812b9f 100644 (file)
@@ -53,6 +53,7 @@ while(<IN>)
 {
        if(/^L\s+(\S+)\s+(\S+)\s+(\S+)/) {
                $hinc{$1} = $2;
+               $libinc{$2} = $1;
                $cskip{$3} = $1;
                if($3 ne "NONE") {
                        $csrc{$1} = $3;
@@ -74,7 +75,7 @@ close IN;
 # Scan each header file in turn and make a list of error codes
 # and function names
 
-while (($lib, $hdr) = each %hinc)
+while (($hdr, $lib) = each %libinc)
 {
        next if($hdr eq "NONE");
        print STDERR "Scanning header file $hdr\n" if $debug;