diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-09 03:40:18 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-09 16:49:32 +0000 |
| commit | 5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1 (patch) | |
| tree | 691d309b11acc12f89d4b6a7a6118f836662580d /pp_ctl.c | |
| parent | 8aee01e7619816b4465ed0b436a44670c5050455 (diff) | |
| download | perl-5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1.tar.gz | |
Trying my "remove the pTHXes" patch again
Message-ID: <20060209154018.GA14610@petdance.com>
p4raw-id: //depot/perl@27136
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -2730,7 +2730,7 @@ S_docatch(pTHX_ OP *o) } JMPENV_POP; PL_op = oldop; - return Nullop; + return NULL; } OP * @@ -2918,11 +2918,11 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) /* try to compile it */ - PL_eval_root = Nullop; + PL_eval_root = NULL; PL_error_count = 0; PL_curcop = &PL_compiling; PL_curcop->cop_arybase = 0; - if (saveop && saveop->op_type != OP_REQUIRE && saveop->op_flags & OPf_SPECIAL) + if (saveop && (saveop->op_type != OP_REQUIRE) && (saveop->op_flags & OPf_SPECIAL)) PL_in_eval |= EVAL_KEEPERR; else sv_setpvn(ERRSV,"",0); @@ -2935,7 +2935,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) PL_op = saveop; if (PL_eval_root) { op_free(PL_eval_root); - PL_eval_root = Nullop; + PL_eval_root = NULL; } SP = PL_stack_base + POPMARK; /* pop original mark */ if (!startop) { @@ -4570,7 +4570,7 @@ S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen) /* perhaps someone can come up with a better name for this? it is not really "absolute", per se ... */ static bool -S_path_is_absolute(pTHX_ const char *name) +S_path_is_absolute(const char *name) { if (PERL_FILE_IS_ABSOLUTE(name) #ifdef MACOS_TRADITIONAL |