From dc05e7c14351982db7a8498564ed15dab249d195 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 18 Feb 2003 11:06:10 +0000 Subject: fix titi's perl checko --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}); -- cgit v1.2.1