summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:12:47 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:12:47 +0000
commited28bfaa2991a3835f624ea99c29201dc04fe14d (patch)
tree021b8b82afaaefbd0042c202a0df05f0da7498d5 /perl-install
parent0f1aca45447e8a08d9c434b5a4b9251e37186801 (diff)
downloaddrakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar
drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.gz
drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.bz2
drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.xz
drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.zip
(create_notebook) give meaningfull name to variables
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 4 insertions, 4 deletions
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 {