This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv_fetchpvn and gv_fetchpvn_flags are identical
authorKarl Williamson <khw@cpan.org>
Mon, 14 Sep 2020 04:02:10 +0000 (22:02 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 14 Sep 2020 15:33:26 +0000 (09:33 -0600)
handy.h

diff --git a/handy.h b/handy.h
index 1637f46..9b4b256 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -461,8 +461,7 @@ Perl_xxx(aTHX_ ...) form for any API calls where it's used.
 
 #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  gv_fetchpvn  gv_fetchpvn_flags
 #define sv_catxmlpvs(dsv, str, utf8) \
     Perl_sv_catxmlpvn(aTHX_ dsv, STR_WITH_LEN(str), utf8)