remove unused variables or rename them with an underscore (eg: $o becomes $_o)

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 359e61401..a4f9e3bfd 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -53,7 +53,7 @@ sub exit() { end(); exit($_[1]) }
 END { end() }
 
 sub ask_fromW {
-    my ($o, $common, $l, $l2) = @_;
+    my ($o, $common, $l, $_l2) = @_;
 
   redisplay:
     my $uid = new_uid();
@@ -138,18 +138,18 @@ sub p {
 }
 
 sub wait_messageW {
-    my ($o, $title, $messages) = @_;
+    my ($_o, $_title, $messages) = @_;
     cont_stdout();
     print "\n" . CGI::p();
     p(@$messages);
 }
 
 sub wait_message_nextW {
-    my ($o, $messages, $w) = @_;
+    my ($_o, $messages, $_w) = @_;
     p(@$messages);
 }
 sub wait_message_endW {
-    my ($o, $w) = @_;
+    my ($_o, $_w) = @_;
     p(N("Done"));
     print "\n" . CGI::p();
 }