clear up unused var warning in prev patch
authorChip Salzenberg <chip@pobox.com>
Fri, 21 Jan 2011 20:54:08 +0000 (12:54 -0800)
committerChip Salzenberg <chip@pobox.com>
Fri, 21 Jan 2011 20:54:08 +0000 (12:54 -0800)
dump.c

diff --git a/dump.c b/dump.c
index 7e38548..a8de393 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2337,11 +2337,13 @@ Perl_xmldump_all(pTHX)
 }
 
 void
-Perl_xmldump_all_perl(pTHX_ bool justperl)
+Perl_xmldump_all_perl(pTHX_ bool justperl PERL_UNUSED_DECL)
 {
     PerlIO_setlinebuf(PL_xmlfp);
     if (PL_main_root)
        op_xmldump(PL_main_root);
+    /* someday we might call this, when it outputs XML: */
+    /* xmldump_packsubs_perl(PL_defstash, justperl); */
     if (PL_xmlfp != (PerlIO*)PerlIO_stdout())
        PerlIO_close(PL_xmlfp);
     PL_xmlfp = 0;