[Catalyst-commits] r11538 - Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential

[ijw at dev.catalyst.perl.org]

Author: ijw
Date: 2009-10-15 16:42:58 +0000 (Thu, 15 Oct 2009)
New Revision: 11538

Modified:
   Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm
Log:
Namespace patch-up on Authen::NTLM

Modified: Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm
===================================================================
--- Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm	2009-10-15 15:09:37 UTC (rev 11537)
+++ Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm	2009-10-15 16:42:58 UTC (rev 11538)
@@ -11,7 +11,6 @@
 
 BEGIN {
     eval {
-        use Authen::NTLM;
         use Authen::NTLM::HTTP;
     };
 
@@ -469,9 +468,9 @@
 sub _build_ntlm_challenge_header {
     my ( $self, $c, $server, $flags ) = @_;
 
-    $flags = Authen::NTLM::NTLMSSP_NEGOTIATE_ALWAYS_SIGN
-        | Authen::NTLM::NTLMSSP_NEGOTIATE_NTLM
-        | Authen::NTLM::NTLMSSP_NEGOTIATE_UNICODE;
+    $flags = Authen::NTLM::HTTP::NTLMSSP_NEGOTIATE_ALWAYS_SIGN
+        | Authen::NTLM::HTTP::NTLMSSP_NEGOTIATE_NTLM
+        | Authen::NTLM::HTTP::NTLMSSP_NEGOTIATE_UNICODE;
     my $challenge_msg = $server->http_challenge($flags);
     # strip part of the http header generated by Authen::NTLM::HTTP
     # because we handle the header generation ourselves