Michael Jerris 577147a774 fix non solaris mod_perl build
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15753 d0543943-73ff-0310-b7d9-9358b9ac24b2
2009-12-02 14:24:52 +00:00

24 lines
526 B
C

#if defined (__SVR4) && defined (__sun)
#include <uconfig.h>
#endif
#include <EXTERN.h>
#if defined (__SVR4) && defined (__sun)
#include <embed.h>
#endif
#include <perl.h>
EXTERN_C void xs_init(pTHX);
EXTERN_C void boot_DynaLoader(pTHX_ CV * cv);
EXTERN_C void boot_freeswitch(pTHX_ CV * cv);
EXTERN_C void xs_init(pTHX)
{
char *file = __FILE__;
dXSUB_SYS;
/* DynaLoader is a special case */
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
newXS("freeswitchc::boot_freeswitch", boot_freeswitch, file);
}