@@ -13451,7 +13451,8 @@ Perl_ck_type(pTHX_ OP *o)
1345113451 DEBUG_k (Perl_deb (aTHX_ "match: %s %s <=> %s %s\n" , PL_op_name [typ ],
1345213452 PL_op_type_str [typ ],
1345313453 PL_op_name [v ], PL_op_type_str [v ]));
13454- if ((PL_hints & HINT_INTEGER ) && ((n2 & 0xff ) != type_Int )) /* need an Int result, no u_ */
13454+ /* need an Int result, no u_ */
13455+ if ((PL_hints & HINT_INTEGER ) && ((n2 & 0xff ) != type_Int ))
1345513456 continue ;
1345613457 if (match_type1 (n2 & 0xffffff00 , type1 )) {
1345713458 if (typ == OP_NEGATE && v == OP_I_NEGATE )
@@ -14323,13 +14324,14 @@ S_maybe_multideref(pTHX_ OP *start, OP *orig_o, UV orig_action, U8 hints)
1432314324 Perl_die (aTHX_ "Array index out of bounds %s[%" IVdf "]" ,
1432414325 PAD_COMPNAME_PV (targ ), arg -> iv );
1432514326 else {
14326- DEBUG_kv (Perl_deb (aTHX_ "mderef %s[%" IVdf "] shape ok -> uoob\n" ,
14327- PAD_COMPNAME_PV (targ ), arg -> iv ));
14327+ DEBUG_kv (Perl_deb (aTHX_
14328+ "mderef %s[%" IVdf "] shape ok -> uoob\n" ,
14329+ PAD_COMPNAME_PV (targ ), arg -> iv ));
1432814330 if (arg -> iv < 0 ) {
1432914331 arg -> iv = AvFILL (av )+ 1 + arg -> iv ;
14330- DEBUG_kv (Perl_deb (aTHX_ "mderef %s[->%" IVdf "]\n" ,
14331- PAD_COMPNAME_PV ( targ ) ,
14332- arg -> iv ));
14332+ DEBUG_kv (Perl_deb (aTHX_
14333+ "mderef %s[->%" IVdf "]\n" ,
14334+ PAD_COMPNAME_PV ( targ ), arg -> iv ));
1433314335 }
1433414336 }
1433514337 index_type |= MDEREF_INDEX_uoob ;
0 commit comments