MODULE = Authen::SPNEGO::GSSAPI PACKAGE = gss_name_t PREFIX=authen_spnego_gssapi_
void
authen_spnego_gssapi_DESTROY( servername )
gss_name_t servername
CODE:
OM_uint32 major_status;
OM_uint32 minor_status;
char *b1;
if ( debuggingmode ) {
_debug_message("authen_spnego_gssapi_DESTROY( gss_name_t )");
}
major_status = gss_release_name( &minor_status,
&servername );
if ( major_status != GSS_S_COMPLETE ) {
b1 = alloca(_DBSIZE);
snprintf( b1, _DBSIZE,
"Fatal Error while Calling GSSAPI gss_release_name major %u minor %u",
major_status, minor_status );
Perl_croak(aTHX_ b1);
} |