op.c:newSTATEOP: remove unnecessary null check
authorFather Chrysostomos <sprout@cpan.org>
Wed, 28 Aug 2013 03:38:03 +0000 (20:38 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 8 Sep 2013 21:39:01 +0000 (14:39 -0700)
If PL_parser is null, then the else block will crash on
PL_parser->copline.

op.c

diff --git a/op.c b/op.c
index 3b30d3d..a641647 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5706,7 +5706,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
        SAVEFREEPV(label);
     }
 
-    if (PL_parser && PL_parser->copline == NOLINE)
+    if (PL_parser->copline == NOLINE)
         CopLINE_set(cop, CopLINE(PL_curcop));
     else {
        CopLINE_set(cop, PL_parser->copline);