This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change formal parameter name of gv_fetchpv*
authorKarl Williamson <khw@cpan.org>
Thu, 27 Aug 2020 16:15:07 +0000 (10:15 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 5 Sep 2020 16:15:53 +0000 (10:15 -0600)
This is a flags parameter, not a particular single flag

embed.fnc
gv.c
handy.h
proto.h

index 4ece8db..347ff70 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -970,7 +970,7 @@ Apx |GV*    |gv_fetchmethod_pv_flags|NN HV* stash|NN const char* name \
                                |U32 flags
 Apx    |GV*    |gv_fetchmethod_pvn_flags|NN HV* stash|NN const char* name \
                                |const STRLEN len|U32 flags
-Ap     |GV*    |gv_fetchpv     |NN const char *nambeg|I32 add|const svtype sv_type
+Ap     |GV*    |gv_fetchpv     |NN const char *nambeg|I32 flags|const svtype sv_type
 AbpD   |void   |gv_fullname    |NN SV* sv|NN const GV* gv
 ApMb   |void   |gv_fullname3   |NN SV* sv|NN const GV* gv|NULLOK const char* prefix
 Ap     |void   |gv_fullname4   |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|bool keepmain
diff --git a/gv.c b/gv.c
index bf64b5e..12eb213 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1607,9 +1607,9 @@ Perl_gv_stashsv(pTHX_ SV *sv, I32 flags)
 
 
 GV *
-Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type) {
+Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 flags, const svtype sv_type) {
     PERL_ARGS_ASSERT_GV_FETCHPV;
-    return gv_fetchpvn_flags(nambeg, strlen(nambeg), add, sv_type);
+    return gv_fetchpvn_flags(nambeg, strlen(nambeg), flags, sv_type);
 }
 
 GV *
diff --git a/handy.h b/handy.h
index e68b154..1262bd0 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -442,10 +442,11 @@ Perl_xxx(aTHX_ ...) form for any API calls where it's used.
 #define savesharedpvs(str) Perl_savesharedpvn(aTHX_ STR_WITH_LEN(str))
 #define gv_stashpvs(str, create) \
     Perl_gv_stashpvn(aTHX_ STR_WITH_LEN(str), create)
-#define gv_fetchpvs(namebeg, add, sv_type) \
-    Perl_gv_fetchpvn_flags(aTHX_ STR_WITH_LEN(namebeg), add, sv_type)
-#define gv_fetchpvn(namebeg, len, add, sv_type) \
-    Perl_gv_fetchpvn_flags(aTHX_ namebeg, len, add, sv_type)
+
+#define gv_fetchpvs(namebeg, flags, sv_type) \
+    Perl_gv_fetchpvn_flags(aTHX_ STR_WITH_LEN(namebeg), flags, sv_type)
+#define gv_fetchpvn(namebeg, len, flags, sv_type) \
+    Perl_gv_fetchpvn_flags(aTHX_ namebeg, len, flags, sv_type)
 #define sv_catxmlpvs(dsv, str, utf8) \
     Perl_sv_catxmlpvn(aTHX_ dsv, STR_WITH_LEN(str), utf8)
 
diff --git a/proto.h b/proto.h
index e156756..24a4399 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1314,7 +1314,7 @@ PERL_CALLCONV GV* Perl_gv_fetchmethod_pvn_flags(pTHX_ HV* stash, const char* nam
 PERL_CALLCONV GV*      Perl_gv_fetchmethod_sv_flags(pTHX_ HV* stash, SV* namesv, U32 flags);
 #define PERL_ARGS_ASSERT_GV_FETCHMETHOD_SV_FLAGS       \
        assert(stash); assert(namesv)
-PERL_CALLCONV GV*      Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type);
+PERL_CALLCONV GV*      Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 flags, const svtype sv_type);
 #define PERL_ARGS_ASSERT_GV_FETCHPV    \
        assert(nambeg)
 PERL_CALLCONV GV*      Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, const svtype sv_type);