fix memleak, fix memleak test

Author: noxxi

lib/IO/Socket/SSL.pm

@@ -596,7 +596,6 @@ sub CLONE { %CREATED_IN_THIS_THREAD = (); }
 # these should be removed on close
 my @all_my_conn_keys = qw(
     _SSL_fileno
-    _SSL_object
     _SSL_opened
     _SSL_opening
     _SSL_read_closed
@@ -607,6 +606,7 @@ my @all_my_conn_keys = qw(
 # all keys used internally, these should be cleaned up at end
 # but not already on close
 my @all_my_keys = (@all_my_conn_keys, qw(
+    _SSL_object
     _SSL_arguments
     _SSL_certificate
     _SSL_ctx

t/memleak_bad_handshake.t

@@ -82,8 +82,8 @@ for(200..300) {
     IO::Socket::INET->new( $saddr ) or next;
 }
 my $size300 = $getsize->($pid);
-if ($size100>$size200 or $size200<$size300) {;
-    print "1..0 # skipped  - do we measure the right thing?\n";
+if ($size100>$size200 or $size200>$size300) {;
+    print "1..0 # skipped  - do we measure the right thing? ($size100>$size200 or $size200<$size300)\n";
     goto done;
 }