Since xmldump_packsubs does not actually output XML, don't call it from xmldump_all.
authorChip Salzenberg <chip@pobox.com>
Fri, 21 Jan 2011 20:41:51 +0000 (12:41 -0800)
committerChip Salzenberg <chip@pobox.com>
Fri, 21 Jan 2011 20:42:21 +0000 (12:42 -0800)
dump.c

diff --git a/dump.c b/dump.c
index 68d3745..7e38548 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2342,7 +2342,6 @@ Perl_xmldump_all_perl(pTHX_ bool justperl)
     PerlIO_setlinebuf(PL_xmlfp);
     if (PL_main_root)
        op_xmldump(PL_main_root);
-    xmldump_packsubs_perl(PL_defstash, justperl);
     if (PL_xmlfp != (PerlIO*)PerlIO_stdout())
        PerlIO_close(PL_xmlfp);
     PL_xmlfp = 0;