From 8b563eef9044008579e8e4bac7e31e12a2e54bca Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 7 Jan 2011 15:46:57 +0000 Subject: [PATCH] In Perl_swash_init(), use call_sv() directly instead of call_method(). This gives a small space saving on this platform, likely due to code being shared with the other call to call_sv(). (It also removes a level of function call at runtime.) --- utf8.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utf8.c b/utf8.c index 8b05cfd..266cb9e 100644 --- a/utf8.c +++ b/utf8.c @@ -1948,7 +1948,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits /* If we already have a pointer to the method, no need to use call_method() to repeat the lookup. */ if (method ? call_sv(MUTABLE_SV(method), G_SCALAR) - : call_method("SWASHNEW", G_SCALAR)) + : call_sv(newSVpvs_flags("SWASHNEW", SVs_TEMP), G_SCALAR | G_METHOD)) retval = newSVsv(*PL_stack_sp--); else retval = &PL_sv_undef; -- 1.8.3.1