From: Richard Levitte <levitte@openssl.org>
Date: Fri, 4 Sep 2020 06:48:13 +0000 (+0200)
Subject: util/mknum.pl: Fix file opening
X-Git-Tag: openssl-3.0.0-alpha7~247
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=83ecb26f2b4246704ef900416d56942b86967304;p=thirdparty%2Fopenssl.git

util/mknum.pl: Fix file opening

'or' has lower priority than '||' in perl, which affects evaluation order.

Reviewed-by: Paul Dale <paul.dale@oracle.com>
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/12781)
---

diff --git a/util/mknum.pl b/util/mknum.pl
index 871c07055b3..4ee87c29a82 100644
--- a/util/mknum.pl
+++ b/util/mknum.pl
@@ -54,7 +54,7 @@ $ordinals->invalidate();
 
 foreach my $f (($symhacks_file // (), @ARGV)) {
     print STDERR $f," ","-" x (69 - length($f)),"\n" if $verbose;
-    open IN, $f || die "Couldn't open $f: $!\n";
+    open IN, $f or die "Couldn't open $f: $!\n";
     foreach (parse(<IN>, { filename => $f,
                            warnings => $warnings,
                            verbose => $verbose,