This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change formal parameter for newSVpvn
authorKarl Williamson <khw@cpan.org>
Thu, 20 Apr 2017 14:33:42 +0000 (08:33 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 13:05:15 +0000 (07:05 -0600)
This fixes a discrepancy in perlapi.  See
http://nntp.perl.org/group/perl.perl5.porters/243384

embed.fnc
proto.h

index d0c9953..226b196 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1138,7 +1138,7 @@ ApdR      |SV*    |newSViv        |const IV i
 ApdR   |SV*    |newSVuv        |const UV u
 ApdR   |SV*    |newSVnv        |const NV n
 ApdR   |SV*    |newSVpv        |NULLOK const char *const s|const STRLEN len
-ApdR   |SV*    |newSVpvn       |NULLOK const char *const s|const STRLEN len
+ApdR   |SV*    |newSVpvn       |NULLOK const char *const buffer|const STRLEN len
 ApdR   |SV*    |newSVpvn_flags |NULLOK const char *const s|const STRLEN len|const U32 flags
 ApdR   |SV*    |newSVhek       |NULLOK const HEK *const hek
 ApdR   |SV*    |newSVpvn_share |NULLOK const char* s|I32 len|U32 hash
diff --git a/proto.h b/proto.h
index 8307c6d..367352c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2313,7 +2313,7 @@ PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char *const pat, ...)
 #define PERL_ARGS_ASSERT_NEWSVPVF      \
        assert(pat)
 
-PERL_CALLCONV SV*      Perl_newSVpvn(pTHX_ const char *const s, const STRLEN len)
+PERL_CALLCONV SV*      Perl_newSVpvn(pTHX_ const char *const buffer, const STRLEN len)
                        __attribute__warn_unused_result__;
 
 PERL_CALLCONV SV*      Perl_newSVpvn_flags(pTHX_ const char *const s, const STRLEN len, const U32 flags)