zulcss/mmdebstrap
1
0
Fork 0
forked from josch/mmdebstrap
Code Pull requests Activity

don't let make_path fail if directory already existed

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2019-11-21 21:43:23 +01:00
parent 4b82a664da
commit f5afbfaab0
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 41 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
mmdebstrap
View file

@ -781,7 +781,18 @@ sub run_chroot(&$) {
rmdir "$options->{root}/$fname" or warn "cannot rmdir $fname: $!";
}
}
make_path "$options->{root}/$fname" or error "cannot make_path $fname";
if (-e "$options->{root}/$fname") {
if (! -d "$options->{root}/$fname") {
error "$fname already exists but is not a directory";
}
} else {
my $num_created = make_path "$options->{root}/$fname", {error => \my $err};
if ($err && @$err) {
error (join "; ", (map {"cannot create " . (join ": ", %{$_})} @$err));
} elsif ($num_created == 0) {
error "cannot create $options->{root}/$fname";
}
}
chmod $mode, "$options->{root}/$fname" or error "cannot chmod $fname: $!";
}
if ($options->{mode} eq 'unshare') {
@ -1004,7 +1015,18 @@ sub setup {
'/var/lib/dpkg/updates');
}
foreach my $dir (@directories) {
make_path("$options->{root}/$dir") or error "failed to create $dir: $!";
if (-e "$options->{root}/$dir") {
if (! -d "$options->{root}/$dir") {
error "$dir already exists but is not a directory";
}
} else {
my $num_created = make_path "$options->{root}/$dir", {error => \my $err};
if ($err && @$err) {
error (join "; ", (map {"cannot create " . (join ": ", %{$_})} @$err));
} elsif ($num_created == 0) {
error "cannot create $options->{root}/$dir";
}
}
}
}
@ -1148,9 +1170,17 @@ sub setup {
} elsif ($type == 4) { # block special
0 == system('mknod', "$options->{root}/$fname", 'b', $devmajor, $devminor) or error "mknod failed: $?";
} elsif ($type == 5) { # directory
make_path "$options->{root}/$fname", { error => \my $err };
if (@$err) {
error "cannot create $fname";
if (-e "$options->{root}/$fname") {
if (! -d "$options->{root}/$fname") {
error "$fname already exists but is not a directory";
}
} else {
my $num_created = make_path "$options->{root}/$fname", {error => \my $err};
if ($err && @$err) {
error (join "; ", (map {"cannot create " . (join ": ", %{$_})} @$err));
} elsif ($num_created == 0) {
error "cannot create $options->{root}/$fname";
}
}
} else {
error "unsupported type: $type";
@ -2326,7 +2356,12 @@ sub main() {
}
closedir($dh);
} else {
make_path($options->{root}) or error "cannot create root: $!";
my $num_created = make_path "$options->{root}", {error => \my $err};
if ($err && @$err) {
error (join "; ", (map {"cannot create " . (join ": ", %{$_})} @$err));
} elsif ($num_created == 0) {
error "cannot create $options->{root}";
}
}
}