Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/pp

Lines Matching refs:PL_compiling
2652 	SAVECOPSTASH_FREE(&PL_compiling);
2653 	CopSTASH_set(&PL_compiling, PL_curstash);
2664     SAVECOPFILE_FREE(&PL_compiling);
2665     CopFILE_set(&PL_compiling, tmpbuf+2);
2666     SAVECOPLINE(&PL_compiling);
2667     CopLINE_set(&PL_compiling, 1);
2707 	PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);
2813     PL_curcop = &PL_compiling;
2865     CopLINE_set(&PL_compiling, 0);
2894 	    XPUSHs((SV*)CopFILEGV(&PL_compiling));
3221     SAVECOPFILE_FREE(&PL_compiling);
3222     CopFILE_set(&PL_compiling, tryrsfp ? tryname : name);
3261 				: newSVpv(CopFILE(&PL_compiling), 0)),
3274     SAVESPTR(PL_compiling.cop_warnings);
3276         PL_compiling.cop_warnings = pWARN_ALL ;
3278         PL_compiling.cop_warnings = pWARN_NONE ;
3280         PL_compiling.cop_warnings = newSVpvn(WARN_TAINTstring, WARNsize);
3282         PL_compiling.cop_warnings = pWARN_STD ;
3283     SAVESPTR(PL_compiling.cop_io);
3284     PL_compiling.cop_io = Nullsv;
3299     SAVECOPLINE(&PL_compiling);
3300     CopLINE_set(&PL_compiling, 0);
3362     SAVECOPFILE_FREE(&PL_compiling);
3363     CopFILE_set(&PL_compiling, tmpbuf+2);
3364     SAVECOPLINE(&PL_compiling);
3365     CopLINE_set(&PL_compiling, 1);
3375     SAVESPTR(PL_compiling.cop_warnings);
3377         PL_compiling.cop_warnings = PL_curcop->cop_warnings;
3379         PL_compiling.cop_warnings = newSVsv(PL_curcop->cop_warnings);
3380         SAVEFREESV(PL_compiling.cop_warnings);
3382     SAVESPTR(PL_compiling.cop_io);
3384         PL_compiling.cop_io = PL_curcop->cop_io;
3386         PL_compiling.cop_io = newSVsv(PL_curcop->cop_io);
3387         SAVEFREESV(PL_compiling.cop_io);
3403 	save_lines(CopFILEAV(&PL_compiling), PL_linestr);