/* $OpenLDAP$ */ /* This work is part of OpenLDAP Software . * * Copyright 1999-2009 The OpenLDAP Foundation. * Portions Copyright 1999 John C. Quillan. * Portions Copyright 2002 myinternet Limited. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted only as authorized by the OpenLDAP * Public License. * * A copy of this license is available in file LICENSE in the * top-level directory of the distribution or, alternatively, at * . */ #include "perl_back.h" #include "../config.h" /********************************************************** * * Close * **********************************************************/ int perl_back_close( BackendInfo *bd ) { perl_destruct(PERL_INTERPRETER); perl_free(PERL_INTERPRETER); PERL_INTERPRETER = NULL; #ifdef PERL_SYS_TERM PERL_SYS_TERM(); #endif ldap_pvt_thread_mutex_destroy( &perl_interpreter_mutex ); return 0; } int perl_back_db_destroy( BackendDB *be, ConfigReply *cr ) { free( be->be_private ); be->be_private = NULL; return 0; }