This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
newSV(size) and SvPOK_on() will be more efficient than newSVpvs("")
authorNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 12:55:29 +0000 (12:55 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 12:55:29 +0000 (12:55 +0000)
followed by SvGROW(size+1)

p4raw-id: //depot/perl@32045

utf8.c

diff --git a/utf8.c b/utf8.c
index 45b17b1..e9e14fc 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1774,9 +1774,9 @@ S_swash_get(pTHX_ SV* swash, UV start, UV span)
     }
 
     /* create and initialize $swatch */
     }
 
     /* create and initialize $swatch */
-    swatch = newSVpvs("");
     scur   = octets ? (span * octets) : (span + 7) / 8;
     scur   = octets ? (span * octets) : (span + 7) / 8;
-    SvGROW(swatch, scur + 1);
+    swatch = newSV(scur);
+    SvPOK_on(swatch);
     s = (U8*)SvPVX(swatch);
     if (octets && none) {
        const U8* const e = s + scur;
     s = (U8*)SvPVX(swatch);
     if (octets && none) {
        const U8* const e = s + scur;