freeswitch/libs/esl/perl/perlxsi.c
2015-06-16 12:43:53 -05:00

19 lines
353 B
C

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
EXTERN_C void xs_init (pTHX);
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
EXTERN_C void
xs_init(pTHX)
{
static const char file[] = __FILE__;
dXSUB_SYS;
PERL_UNUSED_CONTEXT;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}