This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/shared_pv: Adjust prototype to match blead
authorKarl Williamson <khw@cpan.org>
Fri, 12 Jul 2019 17:07:46 +0000 (11:07 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
(cherry picked from commit 3346d69075fdaaa1344ececa15483c0ccb9ec170)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/shared_pv

index 921076f..531f169 100644 (file)
@@ -27,14 +27,14 @@ __UNDEFINED__
 #if { NEED newSVpvn_share }
 
 SV *
-newSVpvn_share(pTHX_ const char *src, I32 len, U32 hash)
+newSVpvn_share(pTHX_ const char *s, I32 len, U32 hash)
 {
   SV *sv;
   if (len < 0)
     len = -len;
   if (!hash)
-    PERL_HASH(hash, (char*) src, len);
-  sv = newSVpvn((char *) src, len);
+    PERL_HASH(hash, (char*) s, len);
+  sv = newSVpvn((char *) s, len);
   sv_upgrade(sv, SVt_PVIV);
   SvIVX(sv) = hash;
   SvREADONLY_on(sv);