]>
git.ipfire.org Git - thirdparty/openssl.git/blob - util/mkdir-p.pl
2c003d6e8491369f9d49a6f0aff8fd0b3ac96849
5 # On some systems, the -p option to mkdir (= also create any missing parent
6 # directories) is not available.
10 foreach $arg (@ARGV) {
25 local($parent) = $dir;
26 $parent =~ s
|[^/]*$||;
31 mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
32 print "created directory $dir\n";