From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 13 Mar 2008 16:03:56 +0000 (+0000)
Subject: Change 33507 had a const too far (Perl_mg_dup()'s mg is assigned to).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f58fed66d9db68b8f40235b5d930c67f7aff64e;p=p5sagit%2Fp5-mst-13.2.git

Change 33507 had a const too far (Perl_mg_dup()'s mg is assigned to).

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

diff --git a/embed.fnc b/embed.fnc
index 1a2e827..3b6b938 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1116,7 +1116,7 @@ Ap	|void	|re_dup_guts	|NN const REGEXP *sstr|NN REGEXP *dstr \
 Ap	|PerlIO*|fp_dup		|NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *const param
 ApR	|DIR*	|dirp_dup	|NULLOK DIR *const dp
 ApR	|GP*	|gp_dup		|NULLOK GP *const gp|NN CLONE_PARAMS *const param
-ApR	|MAGIC*	|mg_dup		|NULLOK MAGIC *const mg|NN CLONE_PARAMS *const param
+ApR	|MAGIC*	|mg_dup		|NULLOK MAGIC *mg|NN CLONE_PARAMS *const param
 ApR	|SV*	|sv_dup		|NULLOK const SV* sstr|NN CLONE_PARAMS* param
 Ap	|void	|rvpv_dup	|NN SV* dstr|NN const SV *sstr|NN CLONE_PARAMS* param
 Ap	|yy_parser*|parser_dup	|NULLOK const yy_parser *const proto|NN CLONE_PARAMS *const param
diff --git a/proto.h b/proto.h
index 928f34b..9699ccc 100644
--- a/proto.h
+++ b/proto.h
@@ -4055,7 +4055,7 @@ PERL_CALLCONV GP*	Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
 #define PERL_ARGS_ASSERT_GP_DUP	\
 	assert(param)
 
-PERL_CALLCONV MAGIC*	Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const param)
+PERL_CALLCONV MAGIC*	Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_MG_DUP	\
diff --git a/sv.c b/sv.c
index d3fed89..9f456c1 100644
--- a/sv.c
+++ b/sv.c
@@ -10189,7 +10189,7 @@ Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
 /* duplicate a chain of magic */
 
 MAGIC *
-Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const param)
+Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
 {
     MAGIC *mgprev = (MAGIC*)NULL;
     MAGIC *mgret;