/* check if there's an identifier for us to look at */
if (PL_pending_ident)
- return pending_ident(aTHX);
+ return S_pending_ident(aTHX);
/* no identifier pending identification */
#pragma segment Main
#endif
-int S_pending_ident(pTHX)
+static int
+S_pending_ident(pTHX)
{
register char *d;
register I32 tmp;
PL_compcv = (CV*)NEWSV(1104,0);
sv_upgrade((SV *)PL_compcv, is_format ? SVt_PVFM : SVt_PVCV);
CvFLAGS(PL_compcv) |= flags;
- CvDEFSTASH(PL_compcv) = PL_defstash;
PL_comppad = newAV();
av_push(PL_comppad, Nullsv);