From: Graham B. <gb...@us...> - 2003-10-21 19:32:52
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL In directory sc8-pr-cvs1:/tmp/cvs-serv26237/lib/Authen/SASL Modified Files: Perl.pm Log Message: Add ordering so we always pich the best of the available methods instead of just the first Index: Perl.pm =================================================================== RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- Perl.pm 17 Oct 2003 20:17:20 -0000 1.4 +++ Perl.pm 21 Oct 2003 18:59:47 -0000 1.5 @@ -8,7 +8,7 @@ use vars qw($VERSION); use Carp; -$VERSION = "1.02"; +$VERSION = "1.03"; my %secflags = ( noplaintext => 1, @@ -27,9 +27,9 @@ host => $host || '', }; - # Dumb selection; - - my @mpkg = grep { + my @mpkg = sort { + $b->_order <=> $a->_order + } grep { eval "require $_;" && $_->_secflags(@sec) == @sec } map { (my $mpkg = __PACKAGE__ . "::$_") =~ s/-/_/g; @@ -40,6 +40,7 @@ $mpkg[0]->_init($self); } +sub _order { 0 } sub code { defined(shift->{error}) || 0 } sub error { shift->{error} } sub service { shift->{service} } |