cop.h.ed   [plain text]


/\*\/$/a

#include "pldtrace.h"
.
/PUSHSUB_BASE(/a
	if (PERL_SUB_ENTRY_ENABLED())					\
	    PERL_SUB_ENTRY(GvENAME(CvGV(cv)), CopFILE((COP*)CvSTART(cv)),	\
		CopLINE((COP*)CvSTART(cv)));				\
.
/POPSUB(/+1a
	if (PERL_SUB_RETURN_ENABLED())					\
	    PERL_SUB_RETURN(GvENAME(CvGV(cx->blk_sub.cv)),		\
		CopFILE((COP*)CvSTART(cx->blk_sub.cv)),			\
		CopLINE((COP*)CvSTART(cx->blk_sub.cv)));		\
.
w