← Back to branch summary

~ubuntu-branches/ubuntu/hardy/openssl/hardy-security

« back to all changes in this revision

Viewing changes to util/mkdir-p.pl

  • Committer: Bazaar Package Importer
  • Author(s): Christoph Martin
  • Date: 2004-05-24 17:02:29 UTC
  • Revision ID: james.westby@ubuntu.com-20040524170229-ixlo08bbbly0xied
Tags: upstream-0.9.7d
Import upstream version 0.9.7d

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/mkdir-p.pl
 
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
  &do_mkdir_p($arg);
 
12
}
 
13
 
 
14
 
 
15
sub do_mkdir_p {
 
16
  local($dir) = @_;
 
17
 
 
18
  $dir =~ s|/*\Z(?!\n)||s;
 
19
 
 
20
  if (-d $dir) {
 
21
    return;
 
22
  }
 
23
 
 
24
  if ($dir =~ m|[^/]/|s) {
 
25
    local($parent) = $dir;
 
26
    $parent =~ s|[^/]*\Z(?!\n)||s;
 
27
 
 
28
    do_mkdir_p($parent);
 
29
  }
 
30
 
 
31
  mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
 
32
  print "created directory `$dir'\n";
 
33
}