From fde55790c3cec482adaf066cd08e16c0bf20df83 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 3 Aug 2004 07:40:43 +0000
Subject: (gtkappend_page) name parameters, enabling perl_checker to check
 callers' call signature

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 591b57d08..2af809091 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -134,9 +134,9 @@ sub gtkappenditems {
 
 # append page to a notebook
 sub gtkappend_page {
-    my $w = shift;
-    $w->append_page(@_);
-    $w
+    my ($notebook, $page, $title) = @_;
+    $notebook->append_page($page, $title);
+    $notebook;
 }
 
 sub gtkentry {
-- 
cgit v1.2.1