aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-03-24 12:51:59 +0000
committerThierry Vignaud <tv@mageia.org>2013-03-24 12:51:59 +0000
commit50044e8371ad067f90f536e09d3f363d789d687e (patch)
tree98efee7fd91271aa7e63bc1f98ce80aa4a0cf864 /Rpmdrake
parent099c775550ea552fbd7ba4695b7f7ceeb24adb77 (diff)
downloadrpmdrake-50044e8371ad067f90f536e09d3f363d789d687e.tar
rpmdrake-50044e8371ad067f90f536e09d3f363d789d687e.tar.gz
rpmdrake-50044e8371ad067f90f536e09d3f363d789d687e.tar.bz2
rpmdrake-50044e8371ad067f90f536e09d3f363d789d687e.tar.xz
rpmdrake-50044e8371ad067f90f536e09d3f363d789d687e.zip
explicitely destroy $gurpm
Diffstat (limited to 'Rpmdrake')
-rw-r--r--Rpmdrake/pkg.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 82d6c12f..ae39c312 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -645,7 +645,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
local $urpm->{fatal} = sub {
my $fatal_msg = $_[1];
printf STDERR "Fatal: %s\n", $fatal_msg;
- undef $gurpm;
+ $gurpm->destroy;
interactive_msg(N("Installation failed"),
N("There was a problem during the installation:\n\n%s", $fatal_msg));
goto return_with_exit_code;
@@ -733,7 +733,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
$gurpm = gurpm::RPMProgressDialog->new($urpm);
$gurpm->label(1 ? N("Please wait") : N("Package installation..."));
- my $_gurpm_clean_guard = before_leaving { undef $gurpm };
+ my $_gurpm_clean_guard = before_leaving { $gurpm->destroy };
my $something_installed;
if (@to_install && $::rpmdrake_options{auto_orphans}) {
@@ -767,7 +767,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
completed => sub {
# explicitly destroy the progress window when it's over; we may
# have sg to display before returning (errors, rpmnew/rpmsave, ...):
- undef $gurpm;
+ $gurpm->destroy;
undef $lock;
undef $rpm_lock;
@@ -929,7 +929,7 @@ sub perform_removal {
my $gurpm = gurpm::RPMProgressDialog->new($urpm);
$gurpm->label(1 ? N("Please wait") : N("Please wait, removing packages..."));
$gurpm->init_progressbar;
- my $_gurpm_clean_guard = before_leaving { undef $gurpm };
+ my $_gurpm_clean_guard = before_leaving { $gurpm->destroy };
$urpm->{nb_install} = @toremove;
my $may_be_orphans = 1;