X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;f=util%2Fmkdir-p.pl;h=6c69c2daa4d0824cf1b35a9a5540aa0eecd95529;hb=ecf2875ebfd8d433a85702b6a618cc1c5ff8b463;hp=2c003d6e8491369f9d49a6f0aff8fd0b3ac96849;hpb=6576774b51d50acd12174dbdc3f6b01df953a516;p=oweals%2Fopenssl.git diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl index 2c003d6e84..6c69c2daa4 100755 --- a/util/mkdir-p.pl +++ b/util/mkdir-p.pl @@ -15,19 +15,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"; }