From 112d3362596790517427197b66d443113be339b6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 21 Feb 2007 11:27:12 +0000
Subject: (init,end) do not garbage $::main_window once gurpmi message is
 destroyed

---
 Rpmdrake/gurpm.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm
index 12501e57..7d66e8fc 100755
--- a/Rpmdrake/gurpm.pm
+++ b/Rpmdrake/gurpm.pm
@@ -31,9 +31,12 @@ use ugtk2 qw(:all);
 
 our ($mainw, $label, $progressbar, $vbox, $cancel, $hbox_cancel);
 
+my $previous_main_window;
+
 sub init {
     my ($title, $initializing, %options) = @_;
     $mainw = ugtk2->new($title, %options);
+    $previous_main_window = $::main_window;
     $::main_window = $mainw->{real_window};
     $label = gtknew('Label', text => $initializing);
     $progressbar = gtknew('ProgressBar', width => 300);
@@ -57,6 +60,7 @@ sub end() {
     $mainw and $mainw->destroy;
     $mainw = undef;
     $cancel = undef;  #- in case we'll do another one later
+    $::main_window = $previous_main_window;
 }
 
 sub validate_cancel {
-- 
cgit v1.2.1