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 871c07055b365161dcaedfca127097170c7a0596..4ee87c29a8264c1a4e008ce1427fb241c1e0a163 100644 (file)
--- 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,