From d682515ddb57d53757782d63f41bfeee5275187b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 5 Jan 2011 11:43:58 +0000
Subject: Rename tied_handle_method() to tied_method(), and make it non-static.

It can be used for (at least) the call to "SPLICE" from pp_splice.
---
 embed.h | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'embed.h')

diff --git a/embed.h b/embed.h
index e393a01739..54b7c68cc3 100644
--- a/embed.h
+++ b/embed.h
@@ -1480,6 +1480,9 @@
 #define sv_clean_objs()		Perl_sv_clean_objs(aTHX)
 #define sv_del_backref(a,b)	Perl_sv_del_backref(aTHX_ a,b)
 #define sv_free_arenas()	Perl_sv_free_arenas(aTHX)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define tied_method		Perl_tied_method
+#endif
 #define unshare_hek(a)		Perl_unshare_hek(aTHX_ a)
 #define vivify_ref(a,b)		Perl_vivify_ref(aTHX_ a,b)
 #define wait4pid(a,b,c)		Perl_wait4pid(aTHX_ a,b,c)
-- 
cgit v1.2.1