Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv26163
Modified Files:
PLAIN.pm
Log Message:
Reversed order of user and authname, as per SASL PLAIN spec
Index: PLAIN.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/PLAIN.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- PLAIN.pm 21 Oct 2003 18:59:47 -0000 1.2
+++ PLAIN.pm 4 Jan 2004 16:00:06 -0000 1.3
@@ -28,7 +28,7 @@
my @parts = map {
my $v = $self->_call($_);
defined($v) ? $v : ''
- } qw(user authname pass);
+ } qw(authname user pass);
join("\0", @parts);
}
|
