else if (!(o->op_flags & OPf_KIDS))
break;
if (o->op_targ != OP_LIST) {
- case OP_SCALAR:
op_lvalue(cBINOPo->op_first, type);
break;
}
BEGIN { require './test.pl'; }
-plan(382);
+plan(381);
run_tests() unless caller;
}
}
-# Also part of perl #24346; scalar(substr...) should not affect lvalueness
-{
- my $str = "abcdef";
- sub { $_[0] = 'dea' }->( scalar substr $str, 3, 2 );
- is $str, 'abcdeaf', 'scalar does not affect lvalueness of substr';
-}
-
# [perl #24200] string corruption with lvalue sub
{