From ab69dbc258121720f9942be91726a46752320460 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 17 Jun 2008 11:16:38 +0000
Subject: Rename the new macro clear_errsv() from last patch to CLEAR_ERRSV()
p4raw-id: //depot/perl@34069
---
perl.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'perl.c')
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));
--
cgit v1.2.1