From 3d8f88d8ed6c648233297aca4564e7d98f831db5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Jan 2003 22:11:31 +0000
Subject: fix ugly global setting of $ugtk2::pop_it

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

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index f065eac0f..e6e0b6676 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -93,7 +93,7 @@ sub main {
     });
     $w->sync;
     $done_button->grab_focus;
-    $ugtk2::pop_it = 1;
+    local $ugtk2::pop_it = 1;
     $in->ask_okcancel(N("Read carefully!"), N("Please make a backup of your data first"), 1) or return
       if $::isStandalone;
     $in->ask_warn('', 
-- 
cgit v1.2.1