Add a few extended key usage OIDs.

[openssl.git] / perl / ssl.pl

diff --git a/perl/ssl.pl b/perl/ssl.pl
index 4a5569fab1acae9014577e7f846a81f8a4430985..d38b84d68e9ac32738d8ee8891560e1e5c805ee9 100644 (file)
--- a/perl/ssl.pl
+++ b/perl/ssl.pl
@@ -6,11 +6,11 @@ use SSLeay;
 
 $ssl_ctx=SSL::CTX->new("SSLv3");
 
-$ssl_ctx->set_options("-info_callback" =>
-       sub     {
-               print STDERR $_[0]->state()."\n";
-               }
-       );
+#$ssl_ctx->set_options("-info_callback" =>
+#      sub     {
+#              print STDERR $_[0]->state()."\n";
+#              }
+#      );
 
 $conn="localhost:4433";
 $conn=$ARGV[0] if $#ARGV >= 0;