From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 12 Feb 2008 12:52:14 +0000 (+0000)
Subject: Correct the paramter to Perl_op_xmldump(). The one that got away from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f10164a6c9d93684fedbbc188fb9dfe004c22c4;p=p5sagit%2Fp5-mst-13.2.git

Correct the paramter to Perl_op_xmldump(). The one that got away from
change 33289.

p4raw-id: //depot/perl@33290
---

diff --git a/embed.fnc b/embed.fnc
index 371a455..a8b2819 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1913,7 +1913,7 @@ Mp	|void	|do_pmop_xmldump|I32 level|NN PerlIO *file \
 				|NULLOK const PMOP *pm
 Mp	|void	|pmop_xmldump	|NULLOK const PMOP* pm
 Mp	|void	|do_op_xmldump	|I32 level|NN PerlIO *file|NULLOK const OP *o
-Mp	|void	|op_xmldump	|NN const OP* arg
+Mp	|void	|op_xmldump	|NN const OP *o
 
 Mp	|TOKEN*	|newTOKEN	|I32 optype|YYSTYPE lval \
 				|NULLOK MADPROP* madprop
diff --git a/proto.h b/proto.h
index 10918f1..3108c0e 100644
--- a/proto.h
+++ b/proto.h
@@ -4614,7 +4614,7 @@ PERL_CALLCONV void	Perl_pmop_xmldump(pTHX_ const PMOP* pm);
 PERL_CALLCONV void	Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o)
 			__attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV void	Perl_op_xmldump(pTHX_ const OP* arg)
+PERL_CALLCONV void	Perl_op_xmldump(pTHX_ const OP *o)
 			__attribute__nonnull__(pTHX_1);