This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add newSVsv_nomg() macro which is like newSVsv() but does not process get magic
[perl5.git] / mathoms.c
index 8b003d3..b8dcb89 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1755,6 +1755,12 @@ Perl_instr(const char *big, const char *little)
     return instr((char *) big, (char *) little);
 }
 
+SV *
+Perl_newSVsv(pTHX_ SV *const old)
+{
+    return newSVsv(old);
+}
+
 #endif /* NO_MATHOMS */
 
 /*