Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 1160 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/mkpath.al)" | |
7 | #============================================================================== | |
8 | # Utility subroutines | |
9 | #============================================================================== | |
10 | ||
11 | #============================================================================== | |
12 | # Make a path | |
13 | #============================================================================== | |
14 | sub mkpath { | |
15 | use strict; | |
16 | my ($o, $mkpath) = @_; | |
17 | my($volume,$dirs,$nofile) = File::Spec->splitpath($mkpath,1); | |
18 | my @parts = File::Spec->splitdir($dirs); | |
19 | my @done; | |
20 | foreach (@parts){ | |
21 | push(@done,$_); | |
22 | my $path = File::Spec->catpath($volume,File::Spec->catdir(@done),""); | |
23 | -d $path || _mkdir($path, 0777); | |
24 | } | |
25 | croak M53_mkdir_failed($mkpath) | |
26 | unless -d $mkpath; | |
27 | } | |
28 | ||
29 | # end of Inline::mkpath | |
30 | 1; |