This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv_2mortal(NEWSV(0,0)) better written as sv_newmortal()
authorNicholas Clark <nick@ccl4.org>
Thu, 13 Jan 2005 23:10:38 +0000 (23:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 13 Jan 2005 23:10:38 +0000 (23:10 +0000)
p4raw-id: //depot/perl@23796

utf8.c

diff --git a/utf8.c b/utf8.c
index c6276c7..4cd5509 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1574,7 +1574,7 @@ SV*
 Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none)
 {
     SV* retval;
-    SV* tokenbufsv = sv_2mortal(NEWSV(0,0));
+    SV* tokenbufsv = sv_newmortal();
     dSP;
     size_t pkg_len = strlen(pkg);
     size_t name_len = strlen(name);