Commit fc6b60aa1f4355fe144b20d8b7179e3ac7fe3287

Detection of unsupported schemes was broken [RT#37637]

We used to return the response from this block; but with the
reorg in 5.815 we no longer do and the "my" prevents us from
updating the outer $response.
lib/LWP/UserAgent.pm
(1 / 1)
  
165165 $protocol = eval { LWP::Protocol::create($scheme, $self) };
166166 if ($@) {
167167 $@ =~ s/ at .* line \d+.*//s; # remove file/line number
168 my $response = _new_response($request, &HTTP::Status::RC_NOT_IMPLEMENTED, $@);
168 $response = _new_response($request, &HTTP::Status::RC_NOT_IMPLEMENTED, $@);
169169 if ($scheme eq "https") {
170170 $response->message($response->message . " (Crypt::SSLeay not installed)");
171171 $response->content_type("text/plain");