Fix auth test

[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 f6964ce..1230a45 100644 (file)
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -29,13 +29,8 @@ sub _make_request {
         }
     }
 
-    $request->authorization_basic(
-        LWP::UserAgent->get_basic_credentials(
-            undef, "Basic", $request->uri
-        )
-        )
-        if LWP::UserAgent->get_basic_credentials( undef, "Basic",
-        $request->uri );
+    my @creds = $self->get_basic_credentials( "Basic", $request->uri );
+    $request->authorization_basic( @creds ) if @creds;
 
     my $response = Test::WWW::Mechanize::Catalyst::Aux::request($request);
     $response->header( 'Content-Base', $request->uri );