From 688f33610db3f2f997449b58d383245c2a1d61b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 21 Feb 2003 14:14:49 +0000
Subject: (ask_standalone_gtk): ensure popup is not destroyed more than once

---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index cfc560605..c41c14190 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -191,7 +191,7 @@ sub ask_standalone_gtk {
 
     my $W = ugtk2->new(N("Services"));
     my ($x, $y, $w_popup);
-    my $nopop = sub { $w_popup and $w_popup->destroy };
+    my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup };
     my $display = sub { $nopop->(); $_[0] and gtkshow(gtkadd($w_popup = Gtk2::Window->new('popup'),
         				       gtksignal_connect(gtkadd(Gtk2::EventBox->new,
         				           gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'etched_out'),
-- 
cgit v1.2.1