diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-17 11:16:38 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-17 11:16:38 +0000 |
| commit | ab69dbc258121720f9942be91726a46752320460 (patch) | |
| tree | b9f48800e6f66b11c7db1ecea7c17c32622223e6 /perl.c | |
| parent | 8433848b134d4e61d5135fd8a70d8106025ac6a6 (diff) | |
| download | perl-ab69dbc258121720f9942be91726a46752320460.tar.gz | |
Rename the new macro clear_errsv() from last patch to CLEAR_ERRSV()
p4raw-id: //depot/perl@34069
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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)); |