This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Remove improper flag character
authorKarl Williamson <khw@cpan.org>
Tue, 10 May 2016 23:32:36 +0000 (17:32 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 May 2016 02:16:39 +0000 (20:16 -0600)
This was introduced by efaf36747029c85b4d8825318cb4d485a0bb350e;
apparently a typo.

embed.fnc

index 7f60ae1..950a0f3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1939,7 +1939,7 @@ sM        |void   |clear_placeholders     |NN HV *hv|U32 items
 
 #if defined(PERL_IN_MG_C)
 s      |void   |save_magic_flags|I32 mgs_ix|NN SV *sv|U32 flags
--s     |int    |magic_methpack |NN SV *sv|NN const MAGIC *mg|NN SV *meth
+     |int    |magic_methpack |NN SV *sv|NN const MAGIC *mg|NN SV *meth
 s      |SV*    |magic_methcall1|NN SV *sv|NN const MAGIC *mg \
                                |NN SV *meth|U32 flags \
                                |int n|NULLOK SV *val