aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-02-21 11:27:12 +0000
committerThierry Vignaud <tv@mandriva.org>2007-02-21 11:27:12 +0000
commit112d3362596790517427197b66d443113be339b6 (patch)
tree1162f3aff3ba98469d1d7d4cce6e5a22d48c026b /Rpmdrake
parent1f98c1551d643136470e7d3caf8273b4baf2d7a4 (diff)
downloadrpmdrake-112d3362596790517427197b66d443113be339b6.tar
rpmdrake-112d3362596790517427197b66d443113be339b6.tar.gz
rpmdrake-112d3362596790517427197b66d443113be339b6.tar.bz2
rpmdrake-112d3362596790517427197b66d443113be339b6.tar.xz
rpmdrake-112d3362596790517427197b66d443113be339b6.zip
(init,end) do not garbage $::main_window once gurpmi message is destroyed
Diffstat (limited to 'Rpmdrake')
-rwxr-xr-xRpmdrake/gurpm.pm4
1 files changed, 4 insertions, 0 deletions
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 {