s/sv_setpv(sv,"")/sv_setpvn(sv,"",0)/

plus a couple of 1 byte sv_setpv()s too.

p4raw-id: //depot/perl@24439

1 files changed, 3 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index e47fe92996..ca209a3aa3 100644
--- a/perl.c
+++ b/perl.c
@@ -2186,7 +2186,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
 	    if (flags & G_KEEPERR)
 		PL_in_eval |= EVAL_KEEPERR;
 	    else
-		sv_setpv(ERRSV,"");
+		sv_setpvn(ERRSV,"",0);
 	}
 	PL_markstack_ptr++;
 
@@ -2197,7 +2197,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
 	    call_body((OP*)&myop, FALSE);
 	    retval = PL_stack_sp - (PL_stack_base + oldmark);
 	    if (!(flags & G_KEEPERR))
-		sv_setpv(ERRSV,"");
+		sv_setpvn(ERRSV,"",0);
 	    break;
 	case 1:
 	    STATUS_ALL_FAILURE;
@@ -2322,7 +2322,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
 	call_body((OP*)&myop,TRUE);
 	retval = PL_stack_sp - (PL_stack_base + oldmark);
 	if (!(flags & G_KEEPERR))
-	    sv_setpv(ERRSV,"");
+	    sv_setpvn(ERRSV,"",0);
 	break;
     case 1:
 	STATUS_ALL_FAILURE;