diff options
Diffstat (limited to 'src/lib/libcrypto/util/mkdir-p.pl')
-rw-r--r-- | src/lib/libcrypto/util/mkdir-p.pl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/lib/libcrypto/util/mkdir-p.pl b/src/lib/libcrypto/util/mkdir-p.pl deleted file mode 100644 index e73d02b073..0000000000 --- a/src/lib/libcrypto/util/mkdir-p.pl +++ /dev/null | |||
@@ -1,34 +0,0 @@ | |||
1 | #!/usr/local/bin/perl | ||
2 | |||
3 | # mkdir-p.pl | ||
4 | |||
5 | # On some systems, the -p option to mkdir (= also create any missing parent | ||
6 | # directories) is not available. | ||
7 | |||
8 | my $arg; | ||
9 | |||
10 | foreach $arg (@ARGV) { | ||
11 | $arg =~ tr|\\|/|; | ||
12 | &do_mkdir_p($arg); | ||
13 | } | ||
14 | |||
15 | |||
16 | sub do_mkdir_p { | ||
17 | local($dir) = @_; | ||
18 | |||
19 | $dir =~ s|/*\Z(?!\n)||s; | ||
20 | |||
21 | if (-d $dir) { | ||
22 | return; | ||
23 | } | ||
24 | |||
25 | if ($dir =~ m|[^/]/|s) { | ||
26 | local($parent) = $dir; | ||
27 | $parent =~ s|[^/]*\Z(?!\n)||s; | ||
28 | |||
29 | do_mkdir_p($parent); | ||
30 | } | ||
31 | |||
32 | mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n"; | ||
33 | print "created directory `$dir'\n"; | ||
34 | } | ||