From c7bb50c017a24bf1585bc47c62b79bd5cb3664a5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Sep 2003 13:43:44 +0000 Subject: the install package dialog box must be explictly destroyed when quitting installation (esp. this occurs when answering "No" to "There was an error installing packages") rationale: the $w (created with ugtk2->new) is not reference counted correctly (it was already workarounded when leaving installPackages the normal way) --- perl-install/install_steps_gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index cb2fd5f12..758322a00 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -600,6 +600,7 @@ N("There was an error ordering packages:"), $1, N("Go on anyway?") ], 1) and ret N("There was an error installing packages:"), $1, N("Go on anyway?") ], 1) and return 1; ${$_[0]} = "already displayed"; } + $w->destroy; 0; }; if ($pkgs::cancel_install) { -- cgit v1.2.1