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.

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index f1d0261fc8..94b9281f87 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