void
Perl_dump_all(pTHX)
{
- dump_all_perl(aTHX_ FALSE);
+ dump_all_perl(FALSE);
}
void
void
Perl_dump_packsubs(pTHX_ const HV *stash)
{
+ PERL_ARGS_ASSERT_DUMP_PACKSUBS;
dump_packsubs_perl(stash, FALSE);
}
dVAR;
I32 i;
- PERL_ARGS_ASSERT_DUMP_PACKSUBS;
+ PERL_ARGS_ASSERT_DUMP_PACKSUBS_PERL;
if (!HvARRAY(stash))
return;
void
Perl_dump_sub(pTHX_ const GV *gv)
{
+ PERL_ARGS_ASSERT_DUMP_SUB;
dump_sub_perl(gv, FALSE);
}
{
SV * sv;
- PERL_ARGS_ASSERT_DUMP_SUB;
+ PERL_ARGS_ASSERT_DUMP_SUB_PERL;
if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv))))
return;
PerlIO_setlinebuf(PL_xmlfp);
if (PL_main_root)
op_xmldump(PL_main_root);
- xmldump_packsubs_perl(PL_defstash, justperl)
+ xmldump_packsubs_perl(PL_defstash, justperl);
if (PL_xmlfp != (PerlIO*)PerlIO_stdout())
PerlIO_close(PL_xmlfp);
PL_xmlfp = 0;
void
Perl_xmldump_packsubs(pTHX_ const HV *stash)
{
+ PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS;
+ xmldump_packsubs_perl(stash, FALSE);
+}
+
+void
+Perl_xmldump_packsubs_perl(pTHX_ const HV *stash, bool justperl)
+{
I32 i;
HE *entry;
- PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS;
+ PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS_PERL;
if (!HvARRAY(stash))
return;
if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv))
continue;
if (GvCVu(gv))
- xmldump_sub(gv);
+ xmldump_sub_perl(gv, justperl);
if (GvFORM(gv))
xmldump_form(gv);
if (HeKEY(entry)[HeKLEN(entry)-1] == ':'
&& (hv = GvHV(gv)) && hv != PL_defstash)
- xmldump_packsubs(hv); /* nested package */
+ xmldump_packsubs_perl(hv, justperl); /* nested package */
}
}
}
void
Perl_xmldump_sub(pTHX_ const GV *gv)
{
+ PERL_ARGS_ASSERT_XMLDUMP_SUB;
xmldump_sub_perl(gv, FALSE);
}
{
SV * sv;
- PERL_ARGS_ASSERT_XMLDUMP_SUB;
+ PERL_ARGS_ASSERT_XMLDUMP_SUB_PERL;
if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv))))
return;