summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 17:52:22 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 17:52:22 +0000
commit4cd4016373768a24035e597d6176f297e11f7cc4 (patch)
tree6265174b174d829fa0d3aa2652854aa21780aae2 /perl-install
parent5771dbd6c8404d8275e397ab24759c92fef03ca6 (diff)
downloaddrakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar
drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.gz
drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.bz2
drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.xz
drakx-4cd4016373768a24035e597d6176f297e11f7cc4.zip
(_gtk__Install_Button) no need to use "local" here
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm6
1 files changed, 3 insertions, 3 deletions
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');
}