From: David Mitchell <davem@iabyn.com>
Date: Thu, 11 Mar 2010 12:18:00 +0000 (+0000)
Subject: remove gv_try_downgrade from the public API
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c1069378194cb28b7554e5db5a450e0595b43f4;p=p5sagit%2Fp5-mst-13.2.git

remove gv_try_downgrade from the public API

it's a recently added function, so removing it now does no harm.
---

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)