[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL/Perl PLAIN.pm,1.2,1.3

[Chris R. <chr...@us...>]

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);
 }