diff options
| author |   espie <espie@openbsd.org> | 2004-12-09 18:46:00 +0000 |
|---|---|---|
| committer | espie <espie@openbsd.org> | 2004-12-09 18:46:00 +0000 |
| commit | 19d4da291a86b8f0253c8acc79cd2063801104c0 (patch) | |
| tree | bc86bb359b250a26d07c140ef345629624661894 | |
| parent | regen (diff) | |
| download | wireguard-openbsd-19d4da291a86b8f0253c8acc79cd2063801104c0.tar.xz wireguard-openbsd-19d4da291a86b8f0253c8acc79cd2063801104c0.zip | |
while upgrading, protect deletion in an eval: we've got an extract
package that should be registered as borked if something should go
wrong (which can happen if -f update, as I just witnessed with firefox).
| -rw-r--r-- | usr.sbin/pkg_add/pkg_add | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/usr.sbin/pkg_add/pkg_add b/usr.sbin/pkg_add/pkg_add index dc447ec16db..f0c39661bb6 100644 --- a/usr.sbin/pkg_add/pkg_add +++ b/usr.sbin/pkg_add/pkg_add @@ -1,7 +1,7 @@ #! /usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: pkg_add,v 1.136 2004/12/07 19:09:04 espie Exp $ +# $OpenBSD: pkg_add,v 1.137 2004/12/09 18:46:00 espie Exp $ # # Copyright (c) 2003-2004 Marc Espie <espie@openbsd.org> # @@ -328,7 +328,19 @@ sub really_add($$) OpenBSD::ProgressMeter::set_header($plist->{replacing}->pkgname()." (deleting)"); $state->set_pkgname($plist->{replacing}->pkgname()); require OpenBSD::Delete; - OpenBSD::Delete::delete_plist($plist->{replacing}, $state); + eval { + OpenBSD::Delete::delete_plist($plist->{replacing}, $state); + }; + if ($@) { + Warn $@; + if ($not) { + Fatal "Deinstallation of ", + $plist->{replacing}->pkgname(), " failed"; + } else { + OpenBSD::Add::borked_installation($plist, $dir); + } + } + delete_installed($plist->{replacing}->pkgname()); OpenBSD::ProgressMeter::set_header("$pkgname (installing)"); |