bn: Drop unnecessary use of r9

[openssl.git] / util / mkdir-p.pl

diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl
index 328060243f3c5ad18f30803ce3716cc1cdfe86fe..e618ebf45073e61f529382c4b5b52bffc0cb98ba 100755 (executable)
--- a/util/mkdir-p.pl
+++ b/util/mkdir-p.pl
@@ -1,7 +1,7 @@
 #! /usr/bin/env perl
-# Copyright 1999-2016 The OpenSSL Project Authors. All Rights Reserved.
+# Copyright 1999-2021 The OpenSSL Project Authors. All Rights Reserved.
 #
-# Licensed under the OpenSSL license (the "License").  You may not use
+# Licensed under the Apache License 2.0 (the "License").  You may not use
 # this file except in compliance with the License.  You can obtain a copy
 # in the file LICENSE in the source distribution or at
 # https://www.openssl.org/source/license.html
@@ -34,11 +34,12 @@ sub do_mkdir_p {
   }
 
   unless (mkdir($dir, 0777)) {
+    local($err) = $!;
     if (-d $dir) {
       # We raced against another instance doing the same thing.
       return;
     }
-    die "Cannot create directory $dir: $!\n";
+    die "Cannot create directory $dir: $err\n";
   }
   print "created directory `$dir'\n";
 }