josch/mmdebstrap
2
3
Fork 6
Code Issues 8 Pull requests 1 Projects Releases Wiki Activity

print errno when unlink fails

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2019-02-28 12:20:42 +01:00
parent 920877fa2a
commit e1a41fac94
Signed by: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mmdebstrap
View file

@ -503,7 +503,7 @@ sub havemknod($) {
$havemknod = 1; $havemknod = 1;
} }
if (-e "$root/test-dev-null") { if (-e "$root/test-dev-null") {
unlink "$root/test-dev-null" or error "cannot unlink /test-dev-null"; unlink "$root/test-dev-null" or error "cannot unlink /test-dev-null: $!";
} }
return $havemknod; return $havemknod;
} }
@ -863,7 +863,7 @@ sub run_chroot(&$) {
# cleanup # cleanup
move("$options->{root}/sbin/start-stop-daemon.REAL", "$options->{root}/sbin/start-stop-daemon") or error "cannot move start-stop-daemon"; move("$options->{root}/sbin/start-stop-daemon.REAL", "$options->{root}/sbin/start-stop-daemon") or error "cannot move start-stop-daemon";
unlink "$options->{root}/usr/sbin/policy-rc.d" or error "cannot unlink policy-rc.d"; unlink "$options->{root}/usr/sbin/policy-rc.d" or error "cannot unlink policy-rc.d: $!";
}; };
@ -1550,7 +1550,7 @@ sub setup {
} }
foreach my $deb (@essential_pkgs) { foreach my $deb (@essential_pkgs) {
unlink "$options->{root}/$deb" or error "cannot unlink $deb"; unlink "$options->{root}/$deb" or error "cannot unlink $deb: $!";
} }
# run essential hooks # run essential hooks
@ -1630,7 +1630,7 @@ sub setup {
PKGS => \@debs_to_install, PKGS => \@debs_to_install,
}); });
foreach my $deb (@debs_to_install) { foreach my $deb (@debs_to_install) {
unlink "$options->{root}/$deb" or error "cannot unlink $deb"; unlink "$options->{root}/$deb" or error "cannot unlink $deb: $!";
} }
} }
@ -1670,7 +1670,7 @@ sub setup {
run_apt_progress({ ARGV => ['apt-get', 'clean'] }); run_apt_progress({ ARGV => ['apt-get', 'clean'] });
if (defined $options->{qemu} and $options->{mode} ne 'proot' and $options->{mode} ne 'fakechroot') { if (defined $options->{qemu} and $options->{mode} ne 'proot' and $options->{mode} ne 'fakechroot') {
unlink "$options->{root}/usr/bin/qemu-$options->{qemu}-static" or error "cannot unlink /usr/bin/qemu-$options->{qemu}-static"; unlink "$options->{root}/usr/bin/qemu-$options->{qemu}-static" or error "cannot unlink /usr/bin/qemu-$options->{qemu}-static: $!";
} }
# clean up certain files to make output reproducible # clean up certain files to make output reproducible