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

the system doesn't support it and vice-versa
marschap · Sep 24, 2009 · dd52c33 · dd52c33
1 parent cb31e47
commit dd52c33
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/Authen/SASL/Perl/DIGEST_MD5.pm b/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;
     }
 }