X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-WWW-Mechanize-Catalyst.git;a=blobdiff_plain;f=lib%2FTest%2FWWW%2FMechanize%2FCatalyst.pm;h=da48764c95844fbf9a927dcbd8a299d4f06d44d7;hp=1230a4505f3b60970064d4ff99e6bae648e26faa;hb=2d40faefc0e5f1b79b76275e90a3e630e588e785;hpb=46377765ddd1edf4e7e17d1cee709786884740b3

diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index 1230a45..da48764 100644
--- 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);