Permalink
Browse files

I think this fixes a bug that always enable auth-conf when

the system doesn't support it and vice-versa
  • Loading branch information...
1 parent cb31e47 commit dd52c33b20c62f5ecd511d6939949c150ceda187 @yannk yannk committed with gbarr Jan 16, 2009
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/Authen/SASL/Perl/DIGEST_MD5.pm
View
7 lib/Authen/SASL/Perl/DIGEST_MD5.pm
@@ -119,10 +119,11 @@ my @ourciphers = (
);
## The system we are on, might not be able to crypt the stream
-my $NO_CRYPT_AVAILABLE = 0;
+my $NO_CRYPT_AVAILABLE = 1;
for (@ourciphers) {
- if ( eval "require $_->{pkg}" ) {
- $NO_CRYPT_AVAILABLE = 1;
+ eval "require $_->{pkg}";
+ unless ($@) {
+ $NO_CRYPT_AVAILABLE = 0;
last;
}
}

0 comments on commit dd52c33

Please sign in to comment.