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

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

Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory sc8-pr-cvs1:/tmp/cvs-serv17820/lib/Authen/SASL

Modified Files:
	Perl.pm 
Log Message:
Cache result of require-ing a module the first time to avoid false positives


Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Perl.pm	21 Oct 2003 18:59:47 -0000	1.5
+++ Perl.pm	2 Jan 2004 23:24:41 -0000	1.6
@@ -8,13 +8,14 @@
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = "1.03";
+$VERSION = "1.04";
 
 my %secflags = (
 	noplaintext  => 1,
 	noanonymous  => 1,
 	nodictionary => 1,
 );
+my %have;
 
 sub client_new {
   my ($pkg, $parent, $service, $host, $secflags) = @_;
@@ -30,7 +31,8 @@
   my @mpkg = sort {
     $b->_order <=> $a->_order
   } grep {
-    eval "require $_;" && $_->_secflags(@sec) == @sec
+    my $have = $have{$_} ||= (eval "require $_;" and $_->can('_secflags')) ? 1 : -1;
+    $have > 0 and $_->_secflags(@sec) == @sec
   } map {
     (my $mpkg = __PACKAGE__ . "::$_") =~ s/-/_/g;
     $mpkg;
@@ -40,7 +42,7 @@
   $mpkg[0]->_init($self);
 }
 
-sub _order { 0 }
+sub _order   { 0 }
 sub code     { defined(shift->{error}) || 0 }
 sub error    { shift->{error}    }
 sub service  { shift->{service}  }