Lines Matching refs:perl_interp

105 	if (gp->perl_interp) {
106 		perl_run(gp->perl_interp);
107 		perl_destruct(gp->perl_interp);
109 		perl_free(gp->perl_interp);
112 		gp->perl_interp = 0;
161 	if (gp->perl_interp == NULL) {
162 	gp->perl_interp = perl_alloc();
163   	perl_construct(gp->perl_interp);
164 	if (perl_parse(gp->perl_interp, xs_init, 3, args, 0)) {
165 		perl_destruct(gp->perl_interp);
166 		perl_free(gp->perl_interp);
167 		gp->perl_interp = NULL;
196 	pp->interp = perl_clone(gp->perl_interp, 0);
204 	pp->interp = gp->perl_interp;