From ce9f52adaabc1b017e07815147af86476576e92d Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 22 May 2012 20:46:52 -0700
Subject: [PATCH] op.c: One less func call for newXS

newXS calls newXS_flags, which calls newXS_len_flags.  This commit
makes newXS call the underlying function directly.
---
 op.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/op.c b/op.c
index f1d0261..94b9281 100644
--- a/op.c
+++ b/op.c
@@ -7124,7 +7124,9 @@ CV *
 Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
 {
     PERL_ARGS_ASSERT_NEWXS;
-    return newXS_flags(name, subaddr, filename, NULL, 0);
+    return newXS_len_flags(
+	name, name ? strlen(name) : 0, subaddr, filename, NULL, NULL, 0
+    );
 }
 
 #ifdef PERL_MAD
-- 
2.7.4