diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:50:35 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:50:35 +0000 |
commit | 30d441e3847eb11c5de781503af64d38358f5408 (patch) | |
tree | b5a904657487cd5dfec16ca195ee72b9098a086f /perl-install/interactive/stdio.pm | |
parent | 6fa4abc16d1b016f54bd1d6931d635a93a272232 (diff) | |
download | drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.gz drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.bz2 drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.xz drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.zip |
perl_checker cleanups
Diffstat (limited to 'perl-install/interactive/stdio.pm')
-rw-r--r-- | perl-install/interactive/stdio.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm index 3d4370c2a..9c72f45db 100644 --- a/perl-install/interactive/stdio.pm +++ b/perl-install/interactive/stdio.pm @@ -63,7 +63,7 @@ ask_fromW_begin: my @labels; my $format_label = sub { my ($e) = @_; return sprintf("`%s' %s %s\n", ${$e->{val}}, $e->{label}, $e->{text}) }; my $do_widget = sub { - my ($e, $ind) = @_; + my ($e, $_ind) = @_; if ($e->{type} eq 'bool') { print "$e->{text} $e->{label}\n"; @@ -170,7 +170,7 @@ sub wait_messageW { print join "\n", $message, $message_modifiable; } sub wait_message_nextW { - my $m = join "\n", $_[1]; + my $m = $_[1]; print "\r$m", ' ' x (60 - length $m); } sub wait_message_endW { print "\nDone\n" } |