From 4cd4016373768a24035e597d6176f297e11f7cc4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 27 Aug 2008 17:52:22 +0000
Subject: (_gtk__Install_Button) no need to use "local" here

---
 perl-install/mygtk2.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/mygtk2.pm')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index c9ba5ec00..0bdcc85cb 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -146,15 +146,15 @@ sub _gtk {
 
 sub _gtk__Install_Button {
     my ($w, $opts, $class) = @_;
-    local $opts->{widget_name} = 'Banner';
-    local $opts->{child} = gtknew('HBox', spacing => 5, 
+    $opts->{widget_name} = 'Banner';
+    $opts->{child} = gtknew('HBox', spacing => 5, 
                              children_tight => [
                                  # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...)
                                  gtknew('Image', file => 'advanced_expander'),
                                  gtknew('Label', text => delete $opts->{text}),
                              ],
                          );
-    local $opts->{relief} = 'none' if $::isInstall;
+    $opts->{relief} = 'none' if $::isInstall;
     _gtk__Button($w, $opts, 'Button');
 }
 
-- 
cgit v1.2.1