Print correct error message in utils/mkdir-p.pl

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

diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl
index dacf3ab16f9610ff1f1b5768a811219c74f2e3c8..61a5826643852ef7864c243c1d464ca695f6f6cb 100755 (executable)
--- a/util/mkdir-p.pl
+++ b/util/mkdir-p.pl
@@ -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";
 }