From ed28bfaa2991a3835f624ea99c29201dc04fe14d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 1 Sep 2004 03:12:47 +0000
Subject: (create_notebook) give meaningfull name to variables

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index bef9fe9ea..85e54b262 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -469,12 +469,12 @@ sub create_menu {
 }
 
 sub create_notebook {
-    my $n = Gtk2::Notebook->new;
+    my $book = Gtk2::Notebook->new;
     while (@_) {
-	my ($title, $book) = splice(@_, 0, 2);
-	gtkappend_page($n, $title, $book);
+	my ($title, $page) = splice(@_, 0, 2);
+	gtkappend_page($book, $title, $page);
     }
-    $n
+    $book
 }
 
 sub create_packtable {
-- 
cgit v1.2.1