In B::REGEX::precomp, use newSVpvn_flags() instead of newSVpvn().

Using newSVpvn_flags() and SVt_TEMP and an explicit push is one API call.
newSVpvn() and RETVAL results in a second API call, sv_2mortal(), in the return
typemap.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 3e10f3c..813ad8f 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1591,13 +1591,11 @@ REGEX(sv)
     OUTPUT:
         RETVAL
 
-SV*
+void
 precomp(sv)
        B::REGEXP       sv
-    CODE:
-       RETVAL = newSVpvn( RX_PRECOMP(sv), RX_PRELEN(sv) );
-    OUTPUT:
-        RETVAL
+    PPCODE:
+       PUSHs(newSVpvn_flags(RX_PRECOMP(sv), RX_PRELEN(sv), SVs_TEMP));
 
 #endif