actually do not pass verbose to fetch.

only becasue I couldn't verify this myself yet.
gugod · Mar 16, 2022 · 3395145 · 3395145
1 parent 9cd9312
commit 3395145
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/lib/App/Perlbrew/HTTP.pm b/lib/App/Perlbrew/HTTP.pm
@@ -72,9 +72,7 @@ sub http_user_agent_command {
     }
 
     if ($HTTP_VERBOSE) {
-        if ($ua eq "fetch") {
-            $cmd = "-v " . $cmd;
-        } else {
+        unless ($ua eq "fetch") {
             $cmd =~ s/(silent|quiet)/verbose/;
         }
     }

diff --git a/t/http-program-control.t b/t/http-program-control.t
@@ -19,8 +19,10 @@ for my $prog (qw(curl wget fetch)) {
 
             is $ua, $prog, "UA Program can be set to: $prog";
 
-            my ($cmd_verbosity) = $cmd =~ m/\s(--verbose|-v)\s/;
-            is !!$cmd_verbosity, !!$verbose, "verbosity matches: [$cmd]";
+            unless ($prog eq "fetch") {
+                my ($cmd_verbosity) = $cmd =~ m/\s(--verbose)\s/;
+                is !!$cmd_verbosity, !!$verbose, "verbosity matches: [$cmd]";
+            }
         }
     };
 }