diff options
author | David Mitchell <davem@iabyn.com> | 2010-03-11 12:18:00 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2010-03-11 12:18:00 +0000 |
commit | 4c1069378194cb28b7554e5db5a450e0595b43f4 (patch) | |
tree | f0e044161fb2277012ac318fdf6240a478783551 | |
parent | 8ed20913a9703a855a089b12805abaaa394758c6 (diff) | |
download | perl-4c1069378194cb28b7554e5db5a450e0595b43f4.tar.gz |
remove gv_try_downgrade from the public API
it's a recently added function, so removing it now does no harm.
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | embed.h | 4 |
2 files changed, 5 insertions, 1 deletions
@@ -438,7 +438,7 @@ Ap |void |gv_fullname4 |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|bool pMox |GP * |newGP |NN GV *const gv Ap |void |gv_init |NN GV* gv|NULLOK HV* stash|NN const char* name|STRLEN len|int multi Ap |void |gv_name_set |NN GV* gv|NN const char *name|U32 len|U32 flags -Apd |void |gv_try_downgrade|NN GV* gv +XMpd |void |gv_try_downgrade|NN GV* gv Apd |HV* |gv_stashpv |NN const char* name|I32 flags Apd |HV* |gv_stashpvn |NN const char* name|U32 namelen|I32 flags Apd |HV* |gv_stashsv |NN SV* sv|I32 flags @@ -294,7 +294,9 @@ #define gv_fullname4 Perl_gv_fullname4 #define gv_init Perl_gv_init #define gv_name_set Perl_gv_name_set +#ifdef PERL_CORE #define gv_try_downgrade Perl_gv_try_downgrade +#endif #define gv_stashpv Perl_gv_stashpv #define gv_stashpvn Perl_gv_stashpvn #define gv_stashsv Perl_gv_stashsv @@ -2696,7 +2698,9 @@ #endif #define gv_init(a,b,c,d,e) Perl_gv_init(aTHX_ a,b,c,d,e) #define gv_name_set(a,b,c,d) Perl_gv_name_set(aTHX_ a,b,c,d) +#ifdef PERL_CORE #define gv_try_downgrade(a) Perl_gv_try_downgrade(aTHX_ a) +#endif #define gv_stashpv(a,b) Perl_gv_stashpv(aTHX_ a,b) #define gv_stashpvn(a,b,c) Perl_gv_stashpvn(aTHX_ a,b,c) #define gv_stashsv(a,b) Perl_gv_stashsv(aTHX_ a,b) |