From e524fe407db4cb29ab7ae7ba25321a418c897171 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 6 Oct 2007 12:55:29 +0000
Subject: [PATCH] newSV(size) and SvPOK_on() will be more efficient than
 newSVpvs("") followed by SvGROW(size+1)

p4raw-id: //depot/perl@32045
---
 utf8.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/utf8.c b/utf8.c
index 45b17b1..e9e14fc 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1774,9 +1774,9 @@ S_swash_get(pTHX_ SV* swash, UV start, UV span)
     }
 
     /* create and initialize $swatch */
-    swatch = newSVpvs("");
     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;
-- 
2.7.4