From 7644555d6bd0f17472f02c18dd65bd24aa14edd4 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 15 Sep 2010 14:21:44 +0900
Subject: [PATCH] Use sv_mortalcopy()

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

diff --git a/perl/xs-src/unpack.c b/perl/xs-src/unpack.c
index c4ac22fd..2b6eafe2 100644
--- a/perl/xs-src/unpack.c
+++ b/perl/xs-src/unpack.c
@@ -368,7 +368,7 @@ XS(xs_unpacker_data) {
     }
 
 	UNPACKER(ST(0), mp);
-	ST(0) = sv_2mortal(newSVsv(template_data(mp)));
+	ST(0) = sv_mortalcopy(template_data(mp));
 
     XSRETURN(1);
 }