This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In B::REGEX::precomp, use newSVpvn_flags() instead of newSVpvn().
[perl5.git] / ext / B / B.xs
index 3e10f3c..813ad8f 100644 (file)
@@ -1591,13 +1591,11 @@ REGEX(sv)
     OUTPUT:
         RETVAL
 
     OUTPUT:
         RETVAL
 
-SV*
+void
 precomp(sv)
        B::REGEXP       sv
 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
 
 
 #endif