• Home
  • History
  • Annotate
  • Line#
  • Navigate
  • Raw
  • Download
  • only in /asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/openssl-1.0.0q/util/
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
8my $arg;
9
10foreach $arg (@ARGV) {
11  $arg =~ tr|\\|/|;
12  &do_mkdir_p($arg);
13}
14
15
16sub 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}
35