1 files changed, 3 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index fe01ec035b..0698996b1a 100644
--- a/perl.c
+++ b/perl.c
@@ -2680,7 +2680,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
 	    CALL_BODY_SUB((OP*)&myop);
 	    retval = PL_stack_sp - (PL_stack_base + oldmark);
 	    if (!(flags & G_KEEPERR)) {
-		clear_errsv();
+		CLEAR_ERRSV();
 	    }
 	    break;
 	case 1:
@@ -2782,7 +2782,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
 	CALL_BODY_EVAL((OP*)&myop);
 	retval = PL_stack_sp - (PL_stack_base + oldmark);
 	if (!(flags & G_KEEPERR)) {
-	    clear_errsv();
+	    CLEAR_ERRSV();
 	}
 	break;
     case 1:
@@ -3561,7 +3561,7 @@ S_init_main_stash(pTHX)
     gv_SVadd(PL_errgv);
 #endif
     sv_grow(ERRSV, 240);	/* Preallocate - for immediate signals. */
-    clear_errsv();
+    CLEAR_ERRSV();
     PL_curstash = PL_defstash;
     CopSTASH_set(&PL_compiling, PL_defstash);
     PL_debstash = GvHV(gv_fetchpvs("DB::", GV_ADDMULTI, SVt_PVHV));