Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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...
commit dd52c33b20c62f5ecd511d6939949c150ceda187 1 parent cb31e47
@yannk yannk authored gbarr committed
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;
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.