[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL Perl.pm,1.4,1.5

[Graham B. <gb...@us...>]

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