48 lines
1.7 KiB
Plaintext
48 lines
1.7 KiB
Plaintext
$NetBSD: patch-aa,v 1.1 2009/02/24 10:53:02 markd Exp $
|
|
|
|
Remove LWP::Debug calls as they have been deprecated
|
|
|
|
--- lib/LWP/Authen/Negotiate.pm.orig 2006-03-08 09:09:25.000000000 +1300
|
|
+++ lib/LWP/Authen/Negotiate.pm
|
|
@@ -34,7 +34,6 @@ use GSSAPI 0.18;
|
|
|
|
sub authenticate
|
|
{
|
|
- LWP::Debug::debug("authenticate() version $VERSION called");
|
|
my ($class,$ua,$proxy,$auth_param,$response,$request,$arg,$size) = @_;
|
|
|
|
my $uri = URI->new($request->uri);
|
|
@@ -50,7 +49,6 @@ sub authenticate
|
|
# in case of broken DNS or /etc/hosts
|
|
# or missing Kerberosprincipal for target system
|
|
#
|
|
- LWP::Debug::debug("target hostname $targethost");
|
|
$status = GSSAPI::Name->import(
|
|
$target,
|
|
join( '@', 'HTTP', $targethost ),
|
|
@@ -60,7 +58,6 @@ sub authenticate
|
|
$status = $target->display( $tname );
|
|
last TRY if ( $status->major != GSS_S_COMPLETE );
|
|
|
|
- LWP::Debug::debug("GSSAPI servicename $tname");
|
|
my $auth_header = $proxy ? 'Proxy-Authorization'
|
|
: 'Authorization';
|
|
|
|
@@ -92,7 +89,6 @@ sub authenticate
|
|
undef, $otoken, undef, undef);
|
|
if ( $status->major == GSS_S_COMPLETE
|
|
or $status->major == GSS_S_CONTINUE_NEEDED ) {
|
|
- LWP::Debug::debug( 'successfull $ctx->init()');
|
|
my $referral = $request->clone;
|
|
$referral->header( $auth_header => "Negotiate ".encode_base64($otoken,""));
|
|
return $ua->request( $referral, $arg, $size, $response );
|
|
@@ -102,8 +98,6 @@ sub authenticate
|
|
# this is the errorhandler,
|
|
# the try block is normally leaved via return
|
|
#
|
|
- LWP::Debug::debug( $status->generic_message());
|
|
- LWP::Debug::debug( $status->specific_message() );
|
|
return $response;
|
|
|
|
}
|