X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=util%2Fmkdir-p.pl;h=e73d02b073bbf6171d300b1d66ca2be542dcf15a;hp=2c003d6e8491369f9d49a6f0aff8fd0b3ac96849;hb=c20276e4aef1e716980589c43cf9276abc7ff2b7;hpb=6576774b51d50acd12174dbdc3f6b01df953a516

diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl
index 2c003d6e84..e73d02b073 100755
--- a/util/mkdir-p.pl
+++ b/util/mkdir-p.pl
@@ -8,6 +8,7 @@
 my $arg;
 
 foreach $arg (@ARGV) {
+  $arg =~ tr|\\|/|;
   &do_mkdir_p($arg);
 }
 
@@ -15,19 +16,19 @@ foreach $arg (@ARGV) {
 sub do_mkdir_p {
   local($dir) = @_;
 
-  $dir =~ s|/*$||;
+  $dir =~ s|/*\Z(?!\n)||s;
 
   if (-d $dir) {
     return;
   }
 
-  if ($dir =~ /\//) {
+  if ($dir =~ m|[^/]/|s) {
     local($parent) = $dir;
-    $parent =~ s|[^/]*$||;
+    $parent =~ s|[^/]*\Z(?!\n)||s;
 
     do_mkdir_p($parent);
   }
 
   mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
-  print "created directory $dir\n";
+  print "created directory `$dir'\n";
 }