--- AnyEvent-MP/MP/Transport.pm	2009/08/03 15:02:42	1.10
+++ AnyEvent-MP/MP/Transport.pm	2009/08/03 15:40:53	1.11
@@ -128,7 +128,15 @@
    {
       Scalar::Util::weaken (my $self = $self);
 
-      #$arg{tls_ctx} ||= { sslv2 => 0, sslv3 => 0, tlsv1 => 1, verify => 1 };
+      $arg{tls_ctx_disabled} ||= {
+         sslv2  => 0,
+         sslv3  => 0,
+         tlsv1  => 1,
+         verify => 1,
+         cert_file => "secret.pem",
+         ca_file   => "secret.pem",
+         verify_require_client_cert => 1,
+      };
 
       $arg{secret} = AnyEvent::MP::Base::default_secret ()
          unless exists $arg{secret};
@@ -219,7 +227,7 @@
             require Digest::MD6;
             require Digest::HMAC_MD6;
 
-            my $key   = Digest::MD6::md6_hex ($secret);
+            my $key   = Digest::MD6::md6 ($secret);
             my $lauth = Digest::HMAC_MD6::hmac_md6_base64 ($key, "$lgreeting1\012$lgreeting2\012$rgreeting1\012$rgreeting2\012", 64, 256);
 
             my $rauth =