Home | History | Annotate | Download | only in perl_api

Lines Matching refs:perl_private

73 #define PERLP(sp)   ((perl_data_t *)sp->wp->perl_private)
76     CHAR2INT5(sp,((perl_data_t *)sp->wp->perl_private)->cw,n,nlen,w,wlen)
193 	wp->perl_private = pp;
230 	if (scrp->perl_private) {
231 		sv_setiv((SV*) scrp->perl_private, 0);
244  * The perl_private part of the SCR structure points to the SV,
247  * perl_private is reset; When the screen goes away before
261 	if (!screen->perl_private) {
262 		screen->perl_private = newSV(0);
263 		sv_setiv(screen->perl_private, (IV) screen);
265 	else SvREFCNT_inc(screen->perl_private);
266 	SvRV(rv) = screen->perl_private;
282 	if (scrp->wp->perl_private == NULL) {
315 	if (scrp->wp->perl_private == NULL && perl_init(scrp))
317 	pp = scrp->wp->perl_private;
413 	if (scrp->wp->perl_private == NULL && perl_init(scrp))
415 	pp = scrp->wp->perl_private;
1009 	screen->perl_private = 0;