#include "EXTERN.h"
#include "perl.h"
#include "embed.h"
#include "XSUB.h"
/* a much dumber version of entersub */
OP *pp_simple_xsub(pTHX)
{
dSP; dPOPss;
register CV *cv = GvCV(sv);
PUTBACK;
(void)(*CvXSUB(cv))(aTHX_ cv);
return NORMAL;
}
MODULE = B::XSUB::Dumber PACKAGE = B::XSUB::Dumber
I32
simple_xsub_ppaddr()
CODE:
RETVAL = (I32)&pp_simple_xsub;
OUTPUT: RETVAL