In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/4c1069378194cb28b7554e5db5a450e0595b43f4?hp=8ed20913a9703a855a089b12805abaaa394758c6>
- Log -----------------------------------------------------------------
commit 4c1069378194cb28b7554e5db5a450e0595b43f4
Author: David Mitchell <da...@iabyn.com>
Date: Thu Mar 11 12:18:00 2010 +0000
remove gv_try_downgrade from the public API
it's a recently added function, so removing it now does no harm.
-----------------------------------------------------------------------
Summary of changes:
embed.fnc | 2 +-
embed.h | 4 ++++
2 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/embed.fnc b/embed.fnc
index 0e4ec03..f93d27c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -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
diff --git a/embed.h b/embed.h
index 4858c56..663cb6b 100644
--- a/embed.h
+++ b/embed.h
@@ -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)
--
Perl5 Master Repository
