* SSL_shutdown should be called until the return value is non-zero:

http://www.openssl.org/docs/ssl/SSL_shutdown.html

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@30451 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Wed Jan  5 13:56:03 2011  Aaron Patterson <aaron@tenderlovemaking.com>
+
+	* SSL_shutdown should be called until the return value is non-zero:
+	  http://www.openssl.org/docs/ssl/SSL_shutdown.html
+
 Wed Jan  5 12:10:08 2011  Aaron Patterson <aaron@tenderlovemaking.com>
 
 	* Use _WIN32 rather than checking for windows.h.  Thanks Jon Forums!

ext/openssl/ossl_ssl.c

@@ -960,8 +960,11 @@ ossl_sslctx_flush_sessions(int argc, VALUE *argv, VALUE self)
 static void
 ossl_ssl_shutdown(SSL *ssl)
 {
+    int dead;
     if (ssl) {
-        SSL_shutdown(ssl);
+	do {
+	    dead = SSL_shutdown(ssl);
+	} while(!dead);
         SSL_clear(ssl);
     }
 }