mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-13 23:01:30 +00:00
16 lines
330 B
C++
16 lines
330 B
C++
#include <perlbind/perlbind.h>
|
|
|
|
namespace perlbind { namespace detail {
|
|
|
|
extern "C" int gc(pTHX_ SV* sv, MAGIC* mg)
|
|
{
|
|
auto pfunc = INT2PTR(perlbind::detail::function_base*, SvIV(sv));
|
|
delete pfunc;
|
|
return 1;
|
|
}
|
|
|
|
const MGVTBL function_base::mgvtbl = { 0, 0, 0, 0, gc, 0, 0, 0 };
|
|
|
|
} // namespace detail
|
|
} // namespace perlbind
|