Fix the NAME in two old perlXYZdelta.pod files

[p5sagit/p5-mst-13.2.git] / dump.c

diff --git a/dump.c b/dump.c
index f5f42ee..bc1ba58 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -109,6 +109,7 @@ Perl_dump_all_perl(pTHX_ bool justperl)
 void
 Perl_dump_packsubs(pTHX_ const HV *stash)
 {
+    PERL_ARGS_ASSERT_DUMP_PACKSUBS;
     dump_packsubs_perl(stash, FALSE);
 }
 
@@ -118,7 +119,7 @@ Perl_dump_packsubs_perl(pTHX_ const HV *stash, bool justperl)
     dVAR;
     I32        i;
 
-    PERL_ARGS_ASSERT_DUMP_PACKSUBS;
+    PERL_ARGS_ASSERT_DUMP_PACKSUBS_PERL;
 
     if (!HvARRAY(stash))
        return;
@@ -144,6 +145,7 @@ Perl_dump_packsubs_perl(pTHX_ const HV *stash, bool justperl)
 void
 Perl_dump_sub(pTHX_ const GV *gv)
 {
+    PERL_ARGS_ASSERT_DUMP_SUB;
     dump_sub_perl(gv, FALSE);
 }
 
@@ -152,7 +154,7 @@ Perl_dump_sub_perl(pTHX_ const GV *gv, bool justperl)
 {
     SV * sv;
 
-    PERL_ARGS_ASSERT_DUMP_SUB;
+    PERL_ARGS_ASSERT_DUMP_SUB_PERL;
 
     if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv))))
        return;
@@ -1564,12 +1566,15 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
     s = SvPVX_const(d);
 
 #ifdef DEBUG_LEAKING_SCALARS
-    Perl_dump_indent(aTHX_ level, file, "ALLOCATED at %s:%d %s %s%s\n",
+    Perl_dump_indent(aTHX_ level, file,
+       "ALLOCATED at %s:%d %s %s%s; serial %"UVuf"\n",
        sv->sv_debug_file ? sv->sv_debug_file : "(unknown)",
        sv->sv_debug_line,
        sv->sv_debug_inpad ? "for" : "by",
        sv->sv_debug_optype ? PL_op_name[sv->sv_debug_optype]: "(none)",
-       sv->sv_debug_cloned ? " (cloned)" : "");
+       sv->sv_debug_cloned ? " (cloned)" : "",
+       sv->sv_debug_serial
+    );
 #endif
     Perl_dump_indent(aTHX_ level, file, "SV = ");
     if (type < SVt_LAST) {
@@ -1585,7 +1590,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        return;
     }
     if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV
-        && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM)
+        && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM
+        && type != SVt_PVIO)
        || (type == SVt_IV && !SvROK(sv))) {
        if (SvIsUV(sv)
 #ifdef PERL_OLD_COPY_ON_WRITE
@@ -2014,8 +2020,7 @@ Perl_runops_debug(pTHX)
 {
     dVAR;
     if (!PL_op) {
-       if (ckWARN_d(WARN_DEBUGGING))
-           Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), "NULL OP IN RUN");
+       Perl_ck_warner_d(aTHX_ packWARN(WARN_DEBUGGING), "NULL OP IN RUN");
        return 0;
     }
 
@@ -2231,6 +2236,7 @@ Perl_xmldump_all_perl(pTHX_ bool justperl)
 void
 Perl_xmldump_packsubs(pTHX_ const HV *stash)
 {
+    PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS;
     xmldump_packsubs_perl(stash, FALSE);
 }
 
@@ -2240,7 +2246,7 @@ 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;
@@ -2264,6 +2270,7 @@ Perl_xmldump_packsubs_perl(pTHX_ const HV *stash, bool justperl)
 void
 Perl_xmldump_sub(pTHX_ const GV *gv)
 {
+    PERL_ARGS_ASSERT_XMLDUMP_SUB;
     xmldump_sub_perl(gv, FALSE);
 }
 
@@ -2272,7 +2279,7 @@ Perl_xmldump_sub_perl(pTHX_ const GV *gv, bool justperl)
 {
     SV * sv;
 
-    PERL_ARGS_ASSERT_XMLDUMP_SUB;
+    PERL_ARGS_ASSERT_XMLDUMP_SUB_PERL;
 
     if (justperl && (CvISXSUB(GvCV(gv)) || !CvROOT(GvCV(gv))))
        return;