1SSL_CTX* T_CTXOBJ 2SSL* T_SSLOBJ 3X509* T_X509OBJ 4 5INPUT 6T_CTXOBJ 7 if (sv_derived_from($arg, \"Crypt::SSLeay::CTX\")) { 8 IV stack_top = SvIV((SV*)SvRV($arg)); 9 $var = INT2PTR($type, stack_top); 10 } 11 else 12 croak(\"$var is not an Crypt::SSLeay::CTX\") 13 14T_SSLOBJ 15 if (sv_derived_from($arg, \"Crypt::SSLeay::Conn\")) { 16 IV stack_top = SvIV((SV*)SvRV($arg)); 17 $var = INT2PTR($type, stack_top); 18 } 19 else 20 croak(\"$var is not an Crypt::SSLeay::Conn\") 21 22T_X509OBJ 23 if (sv_derived_from($arg, \"Crypt::SSLeay::X509\")) { 24 IV stack_top = SvIV((SV*)SvRV($arg)); 25 $var = INT2PTR($type, stack_top); 26 } 27 else 28 croak(\"$var is not an Crypt::SSLeay::X509\") 29 30OUTPUT 31T_CTXOBJ 32 sv_setref_pv($arg, \"Crypt::SSLeay::CTX\", (void*)$var); 33 34T_SSLOBJ 35 sv_setref_pv($arg, \"Crypt::SSLeay::Conn\", (void*)$var); 36 37T_X509OBJ 38 sv_setref_pv($arg, \"Crypt::SSLeay::X509\", (void*)$var); 39