Since xmldump_packsubs does not actually output XML, don't call it from xmldump_all.

1 files changed, 0 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 68d3745ac9..7e38548c03 100644
--- 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;