Integrate:

[perl5.git] / ext / B / C / C.xs

diff --git a/ext/B/C/C.xs b/ext/B/C/C.xs
index 92e4ce5..b7fb7fa 100644 (file)
--- a/ext/B/C/C.xs
+++ b/ext/B/C/C.xs
@@ -16,7 +16,7 @@ my_runops(pTHX)
             REGEXP* rx = PM_GETRE( (PMOP*)PL_op );
             SV* rv = newSViv( 0 );
 
-            New( 671, op, 1, PMOP );
+            Newx( op, 1, PMOP );
             Copy( PL_op, op, 1, PMOP );
             /* we need just the flags */
             op->op_next = NULL;