Fix auth bug exposed by t/multi_content_type.t

[catagits/Test-WWW-Mechanize-Catalyst.git] / lib / Test / WWW / Mechanize / Catalyst.pm

diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index 1230a45..da48764 100644 (file)
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -28,8 +28,13 @@ sub _make_request {
             return $self->SUPER::_make_request($request);
         }
     }
-
-    my @creds = $self->get_basic_credentials( "Basic", $request->uri );
+  
+    my $uri = $request->uri;
+    if ($uri->as_string =~ m{^/}) {
+      $uri->scheme('http');
+      $uri->host('localhost');
+    }
+    my @creds = $self->get_basic_credentials( "Basic", $uri );
     $request->authorization_basic( @creds ) if @creds;
 
     my $response = Test::WWW::Mechanize::Catalyst::Aux::request($request);