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

p4raw-id: //depot/perl@23795

1 files changed, 1 insertions, 2 deletions

diff --git a/pp_sort.c b/pp_sort.c
index da019d0a07..877f17162b 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1692,8 +1692,7 @@ PP(pp_sort)
 	SV *sv;
 	SV** base, **didstore;
 	for (base = ORIGMARK+1, i=0; i < max; i++) {
-	    sv = NEWSV(28,0);
-	    sv_setsv(sv, base[i]);
+	    sv = newSVsv(base[i]);
 	    base[i] = sv;
 	}
 	av_clear(av);