Hi, I uploaded an NMU of your package.
Please see this as help to get the package into a releaseable condition again. Please find the used diff below. Cheers, Andi diff -u libxml-stream-perl-1.22/debian/changelog libxml-stream-perl-1.22/debian/changelog --- libxml-stream-perl-1.22/debian/changelog +++ libxml-stream-perl-1.22/debian/changelog @@ -1,3 +1,10 @@ +libxml-stream-perl (1.22-2.1) unstable; urgency=medium + + * Non-maintainer upload. + * Fix GSSAPI SASL authentication. Closes: #427071 + + -- Andreas Barth <[EMAIL PROTECTED]> Tue, 3 Jul 2007 20:24:26 +0000 + libxml-stream-perl (1.22-2) unstable; urgency=low * Fixes FTBFS. (Build) Dep on libauthen-sasl-perl (Closes: #276283) only in patch2: unchanged: --- libxml-stream-perl-1.22.orig/lib/XML/Stream.pm +++ libxml-stream-perl-1.22/lib/XML/Stream.pm @@ -2057,7 +2057,12 @@ $response = $self->{SIDS}->{$sid}->{sasl}->{client}->client_step($challenge); } - my $response64 = MIME::Base64::encode_base64($response,""); + my $response64 = ""; + if (defined $response) + { + $response64 = MIME::Base64::encode_base64($response,""); + } + $self->SASLResponse($sid,$response64); } @@ -2107,6 +2112,8 @@ my $username = shift; my $password = shift; + my $service = "xmpp"; + my $hostname = $self->{SIDS}->{$sid}->{hostname}; my $mechanisms = $self->GetStreamFeature($sid,"xmpp-sasl"); return unless defined($mechanisms); @@ -2120,7 +2127,7 @@ } ); - $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new(); + $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new($service, $hostname); $self->{SIDS}->{$sid}->{sasl}->{username} = $username; $self->{SIDS}->{$sid}->{sasl}->{password} = $password; $self->{SIDS}->{$sid}->{sasl}->{authed} = 0; -- http://home.arcor.de/andreas-barth/ -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]