summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-14 10:02:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-14 10:02:12 +0000
commit0584587cec2231fb3d8fdef25f3ff150603944d8 (patch)
treecb71f83f67d1b914fec6e134ee321ddb90908f3a /perl-install/ugtk2.pm
parent213fcb6c98cc4dc60ae6348e0cac38a394d05757 (diff)
downloaddrakx-backup-do-not-use-0584587cec2231fb3d8fdef25f3ff150603944d8.tar
drakx-backup-do-not-use-0584587cec2231fb3d8fdef25f3ff150603944d8.tar.gz
drakx-backup-do-not-use-0584587cec2231fb3d8fdef25f3ff150603944d8.tar.bz2
drakx-backup-do-not-use-0584587cec2231fb3d8fdef25f3ff150603944d8.tar.xz
drakx-backup-do-not-use-0584587cec2231fb3d8fdef25f3ff150603944d8.zip
merge fixes from HEAD
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 6d5bb165f..dffd5d674 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -970,7 +970,7 @@ sub main {
my ($o, $o_completed, $o_canceled) = @_;
gtkset_mousecursor_normal();
my $timeout = Glib::Timeout->add(1000, sub { gtkset_mousecursor_normal(); 1 });
- my $_b = MDK::Common::Func::before_leaving { Glib::Source->remove($timeout) };
+ my $_b = MDK::Common::Func::before_leaving { $o->destroy; Glib::Source->remove($timeout) };
$o->show;
do {