From bdf9e74bdce84e9c7e35fbaf3f856acf8c4ed30b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 11 Dec 2002 14:30:22 +0000
Subject: reuse already consolided code

---
 perl-install/ugtk2.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 0e665a0d3..d346b5df2 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -446,8 +446,7 @@ sub _setup_paned {
     my ($paned, $child1, $child2, %options) = @_;
     $paned->pack1(gtkshow($child1), $options{resize1} || 0, $options{shrink1} || 1);
     $paned->pack2(gtkshow($child2), $options{resize2} || 1, $options{shrink2} || 1);
-    $paned->show;
-    $paned;
+    gtkshow($paned);
 }
 
 sub create_vpaned {
-- 
cgit v1.2.1