This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove redundant test
authorPierre Bogossian <bogossian@mail.com>
Fri, 4 Apr 2014 18:07:56 +0000 (20:07 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 28 May 2014 05:56:34 +0000 (15:56 +1000)
sv.c

diff --git a/sv.c b/sv.c
index 1005313..d748d56 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -14968,15 +14968,14 @@ S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv,
         */
        o2 = NULL;
        for (kid=o; kid; kid = kid->op_sibling) {
-           if (kid) {
-               const OPCODE type = kid->op_type;
-               if ( (type == OP_CONST && SvOK(cSVOPx_sv(kid)))
-                 || (type == OP_NULL  && ! (kid->op_flags & OPf_KIDS))
-                 || (type == OP_PUSHMARK)
-                 || (type == OP_PADRANGE)
-               )
-               continue;
-           }
+           const OPCODE type = kid->op_type;
+           if ( (type == OP_CONST && SvOK(cSVOPx_sv(kid)))
+             || (type == OP_NULL  && ! (kid->op_flags & OPf_KIDS))
+             || (type == OP_PUSHMARK)
+             || (type == OP_PADRANGE)
+           )
+           continue;
+
            if (o2) { /* more than one found */
                o2 = NULL;
                break;