From 197205853fb552234250e1616af85b60552c9869 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 12:35:10 +0900
Subject: [PATCH] Use newSV(). NEWSV() is deprecated.

---
 perl/xs-src/pack.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/xs-src/pack.c b/perl/xs-src/pack.c
index 0aa32502..4378b056 100644
--- a/perl/xs-src/pack.c
+++ b/perl/xs-src/pack.c
@@ -252,7 +252,7 @@ XS(xs_pack) {
     if (items >= 3) depth = SvIV(ST(2));
 
     enc_t enc;
-    enc.sv        = sv_2mortal(NEWSV(0, INIT_SIZE));
+    enc.sv        = sv_2mortal(newSV(INIT_SIZE));
     enc.cur       = SvPVX(enc.sv);
     enc.end       = SvEND(enc.sv);
     SvPOK_only(enc.sv);