summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 457abca2a..223b9800c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -70,7 +70,7 @@ sub new($) {
}
sub vnew {
- my ($type, $su, $icon) = @_;
+ my ($_type, $su, $icon) = @_;
$su = $su eq "su";
if ($ENV{INTERACTIVE_HTTP}) {
require interactive::http;
@@ -148,7 +148,7 @@ sub ask_file {
$o->ask_fileW($title, $dir);
}
sub ask_fileW {
- my ($o, $title, $dir) = @_;
+ my ($o, $title, $_dir) = @_;
$o->ask_from_entry($title, N("Choose a file"));
}
@@ -167,7 +167,7 @@ sub ask_from_listf_ {
ask_from_listf($o, $title, $message, sub { translate($f->(@_)) }, $l, $def, $help);
}
sub ask_from_listf {
- my ($o, $title, $message, $f, $l, $def, $help) = @_;
+ my ($_o, $_title, $_message, $_f, $l, $_def, $_help) = @_;
@$l == 0 and die "ask_from_list: empty list\n" . backtrace();
@$l == 1 and return $l->[0];
goto &ask_from_listf_no_check;
@@ -260,7 +260,7 @@ sub ask_from {
sub ask_from_normalize {
- my ($o, $common, $l) = @_;
+ my ($_o, $common, $l) = @_;
foreach my $e (@$l) {
if (my $li = $e->{list}) {
@@ -287,10 +287,10 @@ sub ask_from_normalize {
} elsif ($e->{type} eq 'button' || $e->{clicked} || $e->{clicked_may_quit}) {
$e->{type} = 'button';
$e->{clicked_may_quit} ||= $e->{clicked} ? sub { $e->{clicked}(); 0 } : sub {};
- $e->{val} = \ (my $v = $e->{val}) if !ref($e->{val});
+ $e->{val} = \ (my $_v = $e->{val}) if !ref($e->{val});
} elsif ($e->{type} eq 'label' || !ref($e->{val})) {
$e->{type} = 'label';
- $e->{val} = \ (my $v = $e->{val}) if !ref($e->{val});
+ $e->{val} = \ (my $_v = $e->{val}) if !ref($e->{val});
} else {
$e->{type} ||= 'entry';
}