diff options
author | Andy Lester <andy@petdance.com> | 2005-12-27 08:39:39 -0600 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2005-12-27 22:07:44 +0000 |
commit | fabdb6c0879db76333e970b6c67260c877fc17b3 (patch) | |
tree | 81d106dc99b2069f6968bbe00164e6bb222dc482 /util.c | |
parent | f319e147b252268cc6fe404c58538ec32cf8548a (diff) | |
download | perl-fabdb6c0879db76333e970b6c67260c877fc17b3.tar.gz |
pre-likely cleanup
Message-ID: <20051227203939.GC1781@petdance.com>
Includes a small fix to the changes in tryAMAGICbinW_var() in pp.h.
p4raw-id: //depot/perl@26505
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1021,12 +1021,12 @@ S_closest_cop(pTHX_ COP *cop, const OP *o) { /* Look for PL_op starting from o. cop is the last COP we've seen. */ - if (!o || o == PL_op) return cop; + if (!o || o == PL_op) + return cop; if (o->op_flags & OPf_KIDS) { OP *kid; - for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) - { + for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) { COP *new_cop; /* If the OP_NEXTSTATE has been optimised away we can still use it @@ -1038,7 +1038,8 @@ S_closest_cop(pTHX_ COP *cop, const OP *o) /* Keep searching, and return when we've found something. */ new_cop = closest_cop(cop, kid); - if (new_cop) return new_cop; + if (new_cop) + return new_cop; } } @@ -2585,8 +2586,7 @@ Perl_rsignal(pTHX_ int signo, Sighandler_t handler) return PerlProc_signal(signo, handler); } -static -Signal_t +static Signal_t sig_trap(int signo) { dVAR; |