Like `ensuredir' but also a bit like a more controlled `mkdir -p'.
We use make_path from File::Path. It dies on failure.
No caller yet.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
use Digest::SHA;
use Data::Dumper;
use IPC::Open2;
use Digest::SHA;
use Data::Dumper;
use IPC::Open2;
+use File::Path qw(:DEFAULT make_path);
use File::Basename;
use Dpkg::Control::Hash;
use Debian::Dgit::ExitStatus;
use File::Basename;
use Dpkg::Control::Hash;
use Debian::Dgit::ExitStatus;
server_branch server_ref
stat_exists link_ltarget rename_link_xf
hashfile
server_branch server_ref
stat_exists link_ltarget rename_link_xf
hashfile
- fail failmsg ensuredir must_getcwd executable_on_path
+ fail failmsg ensuredir ensurepath
+ must_getcwd executable_on_path
waitstatusmsg failedcmd_waitstatus
failedcmd_report_cmd failedcmd
runcmd shell_cmd cmdoutput cmdoutput_errok
waitstatusmsg failedcmd_waitstatus
failedcmd_report_cmd failedcmd
runcmd shell_cmd cmdoutput cmdoutput_errok
confess "mkdir $dir: $!";
}
confess "mkdir $dir: $!";
}
+sub ensurepath ($$) {
+ my ($firsttocreate, $subdir) = @_; # creates necessary bits of $subidr
+ ensuredir $firsttocreate;
+ make_path "$firsttocreate/$subdir";
+}
+
sub must_getcwd () {
my $d = getcwd();
defined $d or fail f_ "getcwd failed: %s\n", $!;
sub must_getcwd () {
my $d = getcwd();
defined $d or fail f_ "getcwd failed: %s\n", $!;