From 0b754184eac744bd93c1b9c338cbbfbc82fb7bd4 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 24 Nov 2011 01:18:46 -0800
Subject: [PATCH] =?UTF-8?q?=E2=80=98Inline=E2=80=99=20S=5Fsv=5Funglob?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

S_sv_unglob is only called in one place, so inline it (but cheat, to
preserve blame history).
---
 embed.fnc | 2 +-
 proto.h   | 2 +-
 sv.c      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index 3f93d6d3f6e..da62c5f0abc 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1994,7 +1994,7 @@ pR	|SV *	|varname	|NULLOK const GV *const gv|const char gvtype \
 pX	|void	|sv_del_backref	|NN SV *const tsv|NN SV *const sv
 #if defined(PERL_IN_SV_C)
 nsR	|char *	|uiv_2buf	|NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob
-s	|void	|sv_unglob	|NN SV *const sv|U32 flags
+i	|void	|sv_unglob	|NN SV *const sv|U32 flags
 s	|void	|not_a_number	|NN SV *const sv
 s	|I32	|visit		|NN SVFUNC_t f|const U32 flags|const U32 mask
 #  ifdef DEBUGGING
diff --git a/proto.h b/proto.h
index 3d8f993da5d..b9689e64d3b 100644
--- a/proto.h
+++ b/proto.h
@@ -6732,7 +6732,7 @@ STATIC STRLEN	S_sv_pos_u2b_midway(const U8 *const start, const U8 *send, STRLEN
 #define PERL_ARGS_ASSERT_SV_POS_U2B_MIDWAY	\
 	assert(start); assert(send)
 
-STATIC void	S_sv_unglob(pTHX_ SV *const sv, U32 flags)
+PERL_STATIC_INLINE void	S_sv_unglob(pTHX_ SV *const sv, U32 flags)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_SV_UNGLOB	\
 	assert(sv)
diff --git a/sv.c b/sv.c
index 2582e5ad582..caf2100115f 100644
--- a/sv.c
+++ b/sv.c
@@ -9468,7 +9468,7 @@ Perl_sv_bless(pTHX_ SV *const sv, HV *const stash)
  * as it is after unglobbing it.
  */
 
-STATIC void
+PERL_STATIC_INLINE void
 S_sv_unglob(pTHX_ SV *const sv, U32 flags)
 {
     dVAR;