op.c:newATTRSUB: Change an if condition to an else
authorFather Chrysostomos <sprout@cpan.org>
Sat, 24 Nov 2012 04:40:39 +0000 (20:40 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Nov 2012 15:35:50 +0000 (07:35 -0800)
In one spot we have if(blah blah balh) {...} followed by
if (<exactly the opposite>).  We can just change the second if to
an else, since the condition is not going to change here.

This brings newATTRSUB and newMYSUB slightly closer, allowing me
to factor some of it out into a static routine in the next commit.

op.c

diff --git a/op.c b/op.c
index aedf54f..0e287e1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7464,11 +7464,7 @@ Perl_newATTRSUB_flags(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs,
                SAVEFREESV(PL_compcv);
                goto done;
            }
-           if (block
-#ifdef PERL_MAD
-               && block->op_type != OP_NULL
-#endif
-               ) {
+           else {
                const line_t oldline = CopLINE(PL_curcop);
                if (PL_parser && PL_parser->copline != NOLINE) {
                         /* This ensures that warnings are reported at the first