diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-18 13:43:44 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-18 13:43:44 +0000 |
commit | c7bb50c017a24bf1585bc47c62b79bd5cb3664a5 (patch) | |
tree | 157b5ba0dfe0399d6b12ec38495b2c58765fef05 | |
parent | 6361e425cfbe6845def36b304d32076a1f8870f0 (diff) | |
download | drakx-backup-do-not-use-c7bb50c017a24bf1585bc47c62b79bd5cb3664a5.tar drakx-backup-do-not-use-c7bb50c017a24bf1585bc47c62b79bd5cb3664a5.tar.gz drakx-backup-do-not-use-c7bb50c017a24bf1585bc47c62b79bd5cb3664a5.tar.bz2 drakx-backup-do-not-use-c7bb50c017a24bf1585bc47c62b79bd5cb3664a5.tar.xz drakx-backup-do-not-use-c7bb50c017a24bf1585bc47c62b79bd5cb3664a5.zip |
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)
-rw-r--r-- | perl-install/install_steps_gtk.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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) { |