From 6ae04a8f731222975c0ae2df3c9a9e6bdafa773c Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 6 Jan 2003 14:04:04 +0000 Subject: 4.2-3mdk --- urpm.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index e7850b67..8adaadbf 100644 --- a/urpm.pm +++ b/urpm.pm @@ -663,6 +663,8 @@ sub configure { local $SIG{INT} = $sig_handler; local $SIG{QUIT} = $sig_handler; local *RPMDB; + + $db or $urpm->{fatal}(_"unable to open rpmdb"); open RPMDB, "| " . ($ENV{LD_LOADER} || '') . " gzip -9 >'$options{bug}/rpmdb.cz'"; $db->traverse(sub{ my ($p) = @_; @@ -1802,6 +1804,7 @@ sub resolve_dependencies { $db->parse_synthesis($options{rpmdb}); } else { $db = URPM::DB::open($urpm->{root}); + $db or $urpm->{fatal}(_"unable to open rpmdb"); } my $sig_handler = sub { undef $db; exit 3 }; @@ -2218,6 +2221,8 @@ sub install { my ($update, @l, %file2pkg) = (0); local *F; + $db or $urpm->{fatal}(_"unable to open rpmdb"); + foreach (@$remove) { $trans->remove($_) or $urpm->{error}(_("unable to remove package %s", $_)); } @@ -2296,6 +2301,8 @@ sub find_packages_to_remove { my $db = URPM::DB::open($options{root}); my (@m, @notfound); + $db or $urpm->{fatal}(_"unable to open rpmdb"); + if (!$options{matches}) { foreach (@$l) { my ($n, $found); -- cgit v1.2.1