summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
commit868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch)
tree97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install/interactive/newt.pm
parent987b89760dd7090ecf49bd225c634bcf7503d18c (diff)
downloaddrakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.gz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.bz2
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.xz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
Diffstat (limited to 'perl-install/interactive/newt.pm')
-rw-r--r--perl-install/interactive/newt.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 46f9797e5..1214de57b 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -81,7 +81,7 @@ sub ask_fromW {
}
sub ask_fromW_real {
- my ($o, $common, $l, $l2) = @_;
+ my ($_o, $common, $l, $_l2) = @_;
my $ignore; #-to handle recursivity
my $old_focus = -2;
@@ -207,7 +207,7 @@ sub ask_fromW_real {
my ($f) = @_;
$get_all->();
- my ($error, $focus) = $f->();
+ my ($error, $_focus) = $f->();
if ($error) {
$set_all->();
@@ -215,7 +215,7 @@ sub ask_fromW_real {
!$error;
};
- my ($destroyed, $canceled);
+ my ($canceled);
do {
my $r = do {
local $::setstep = 1;
@@ -256,7 +256,7 @@ sub waitbox {
sub wait_messageW {
- my ($o, $title, $messages) = @_;
+ my ($_o, $title, $messages) = @_;
{ form => waitbox($title, $messages), title => $title };
}
@@ -266,8 +266,8 @@ sub wait_message_nextW {
$o->wait_messageW($w->{title}, $messages);
}
sub wait_message_endW {
- my ($o, $w) = @_;
- my $wait = pop @wait_messages;
+ my ($_o, $_w) = @_;
+ my $_wait = pop @wait_messages;
# log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != $wait;
Newt::PopWindow();
}