replace NEWSV(), SvSetSV() with newSVsv()

p4raw-id: //depot/perl@23795

1 files changed, 1 insertions, 2 deletions

diff --git a/scope.c b/scope.c
index c158544f63..db55735f33 100644
--- a/scope.c
+++ b/scope.c
@@ -350,9 +350,8 @@ Perl_save_hash(pTHX_ GV *gv)
 void
 Perl_save_item(pTHX_ register SV *item)
 {
-    register SV *sv = NEWSV(0,0);
+    register SV *sv = newSVsv(item);
 
-    sv_setsv(sv,item);
     SSCHECK(3);
     SSPUSHPTR(item);		/* remember the pointer */
     SSPUSHPTR(sv);		/* remember the value */