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

p4raw-id: //depot/perl@23795

1 files changed, 1 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index fcd143a98a..eb8a581d04 100644
--- a/toke.c
+++ b/toke.c
@@ -275,9 +275,7 @@ S_tokereport(pTHX_ char* s, I32 rv)
 	char *name = Nullch;
 	enum token_type type = TOKENTYPE_NONE;
 	struct debug_tokens *p;
-        SV* report = NEWSV(0, 60);
-
-        Perl_sv_catpvf(aTHX_ report, "<== ");
+        SV* report = newSVpvn("<== ", 4);
 
 	for (p = debug_tokens; p->token; p++) {
 	    if (p->token == (int)rv) {