summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-18 11:06:10 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-18 11:06:10 +0000
commitdc05e7c14351982db7a8498564ed15dab249d195 (patch)
tree8b23cb791280e5ce8cefea751011aaed4e1cb5ac /perl-install
parentc47007af0657a86c05c9940a9e3a223ad21f3987 (diff)
downloaddrakx-dc05e7c14351982db7a8498564ed15dab249d195.tar
drakx-dc05e7c14351982db7a8498564ed15dab249d195.tar.gz
drakx-dc05e7c14351982db7a8498564ed15dab249d195.tar.bz2
drakx-dc05e7c14351982db7a8498564ed15dab249d195.tar.xz
drakx-dc05e7c14351982db7a8498564ed15dab249d195.zip
fix titi's perl checko
Diffstat (limited to 'perl-install')
-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 6f176160b..f18423ff1 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -477,7 +477,7 @@ sub create_okcancel {
sub _setup_paned {
my ($paned, $child1, $child2, %options) = @_;
- foreach (['resize1', 0 ], [ 'shrink1', 1], [ 'resize2', 1 ], [ 'shrink2', 1 ]) {
+ foreach ([ 'resize1', 0 ], [ 'shrink1', 1 ], [ 'resize2', 1 ], [ 'shrink2', 1 ]) {
$options{$_->[0]} = $_->[1] unless defined($options{$_->[0]});
}
$paned->pack1(gtkshow($child1), $options{resize1}, $options{shrink1});