diff options
Diffstat (limited to 'util/mkdir-p.pl')
-rwxr-xr-x | util/mkdir-p.pl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/util/mkdir-p.pl b/util/mkdir-p.pl new file mode 100755 index 0000000000..2c003d6e84 --- /dev/null +++ b/util/mkdir-p.pl @@ -0,0 +1,33 @@ +#!/usr/local/bin/perl + +# mkdir-p.pl + +# On some systems, the -p option to mkdir (= also create any missing parent +# directories) is not available. + +my $arg; + +foreach $arg (@ARGV) { + &do_mkdir_p($arg); +} + + +sub do_mkdir_p { + local($dir) = @_; + + $dir =~ s|/*$||; + + if (-d $dir) { + return; + } + + if ($dir =~ /\//) { + local($parent) = $dir; + $parent =~ s|[^/]*$||; + + do_mkdir_p($parent); + } + + mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n"; + print "created directory $dir\n"; +} |