This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Repeat change 33508 - change 33561 re-instated the mistake in change
authorNicholas Clark <nick@ccl4.org>
Tue, 25 Mar 2008 11:36:22 +0000 (11:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 25 Mar 2008 11:36:22 +0000 (11:36 +0000)
33507.

p4raw-id: //depot/perl@33563

embed.fnc
proto.h
sv.c

index adbd1b8..94c57a3 100644 (file)
--- 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 *const sstr|NN CLONE_PARAMS *const param
 Ap     |void   |rvpv_dup       |NN SV *const dstr|NN const SV *const sstr|NN CLONE_PARAMS *const 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 cd2e777..9e597d0 100644 (file)
--- 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 6e9e8e7..ce6c3f7 100644 (file)
--- 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;