"coreargs",
"runcv",
"fc",
+ "padcv",
"freed",
};
#endif
"CORE:: subroutine",
"__SUB__",
"fc",
+ "private subroutine",
"freed op",
};
#endif
Perl_pp_coreargs,
Perl_pp_runcv,
Perl_pp_fc,
+ Perl_pp_padcv,
}
#endif
#ifdef PERL_PPADDR_INITED
Perl_ck_null, /* coreargs */
Perl_ck_null, /* runcv */
Perl_ck_fun, /* fc */
+ Perl_ck_null, /* padcv */
}
#endif
#ifdef PERL_CHECK_INITED
0x00000600, /* coreargs */
0x00000004, /* runcv */
0x00009b8e, /* fc */
+ 0x00000040, /* padcv */
};
#endif
OP_COREARGS = 370,
OP_RUNCV = 371,
OP_FC = 372,
+ OP_PADCV = 373,
OP_max
} opcode;
-#define MAXO 373
+#define MAXO 374
#define OP_FREED MAXO
/* the OP_IS_* macros are optimized to a simple range check because
RETURN;
}
+PP(pp_padcv)
+{
+ DIE(aTHX_ "panic: padcv");
+}
+
/* Translations. */
static const char S_no_symref_sv[] =
PERL_CALLCONV OP *Perl_pp_ord(pTHX);
PERL_CALLCONV OP *Perl_pp_pack(pTHX);
PERL_CALLCONV OP *Perl_pp_padav(pTHX);
+PERL_CALLCONV OP *Perl_pp_padcv(pTHX);
PERL_CALLCONV OP *Perl_pp_padhv(pTHX);
PERL_CALLCONV OP *Perl_pp_padsv(pTHX);
PERL_CALLCONV OP *Perl_pp_pipe_op(pTHX);
# fc and \F
fc fc ck_fun fstu% S?
+
+padcv private subroutine ck_null d0