3 <1> leavesub[2 refs] K/REFC,1 ->(end)
- <\@> lineseq KP ->3
1 <;> dbstate(main 833 (eval 44):1) v ->2
-2 <\$> const[$want->{$func}[0] $want->{$func}[1]] s ->3
+2 <\$> const[$want->{$func}[0] $want->{$func}[1]] s* ->3
EOT_EOT
3 <1> leavesub[2 refs] K/REFC,1 ->(end)
- <\@> lineseq KP ->3
1 <;> dbstate(main 833 (eval 44):1) v ->2
-2 <\$> const($want->{$func}[0] $want->{$func}[1]) s ->3
+2 <\$> const($want->{$func}[0] $want->{$func}[1]) s* ->3
EONT_EONT
}
# 2 <;> nextstate(main 2 -e:1) v:>,<,%,{ ->3
# 5 <@> print vK ->6
# 3 <0> pushmark s ->4
-# 4 <$> const[SPECIAL sv_yes] s ->5
+# 4 <$> const[SPECIAL sv_yes] s* ->5
EOT_EOT
# 6 <@> leave[1 ref] vKP/REFC ->(end)
# 1 <0> enter ->2
# 2 <;> nextstate(main 2 -e:1) v:>,<,%,{ ->3
# 5 <@> print vK ->6
# 3 <0> pushmark s ->4
-# 4 <$> const(SPECIAL sv_yes) s ->5
+# 4 <$> const(SPECIAL sv_yes) s* ->5
EONT_EONT
# 2 <;> nextstate(main 2 -e:1) v:>,<,%,{ ->3
# 5 <@> print vK ->6
# 3 <0> pushmark s ->4
-# 4 <$> const[SPECIAL sv_no] s ->5
+# 4 <$> const[SPECIAL sv_no] s* ->5
EOT_EOT
# 6 <@> leave[1 ref] vKP/REFC ->(end)
# 1 <0> enter ->2
# 2 <;> nextstate(main 2 -e:1) v:>,<,%,{ ->3
# 5 <@> print vK ->6
# 3 <0> pushmark s ->4
-# 4 <$> const(SPECIAL sv_no) s ->5
+# 4 <$> const(SPECIAL sv_no) s* ->5
EONT_EONT
# 8 <@> prtf sK ->9
# 2 <0> pushmark s ->3
# 3 <$> const(PV "myint %d mystr %s myfl %f pi %f\n") s ->4
-# 4 <$> const(IV 42) s ->5
-# 5 <$> const(PV "hithere") s ->6
-# 6 <$> const(NV 1.414213) s ->7
-# 7 <$> const(NV 3.14159) s ->8
+# 4 <$> const(IV 42) s* ->5
+# 5 <$> const(PV "hithere") s* ->6
+# 6 <$> const(NV 1.414213) s* ->7
+# 7 <$> const(NV 3.14159) s* ->8
EONT_EONT
if($] < 5.009) {
# 1 <0> enter
# 2 <;> nextstate(main 71 -e:1) v:>,<,%,{
# 3 <0> pushmark s
-# 4 <$> const[PV "junk"] s
+# 4 <$> const[PV "junk"] s*
# 5 <@> print vK
# 6 <@> leave[1 ref] vKP/REFC
EOT_EOT
# 1 <0> enter
# 2 <;> nextstate(main 71 -e:1) v:>,<,%,{
# 3 <0> pushmark s
-# 4 <$> const(PV "junk") s
+# 4 <$> const(PV "junk") s*
# 5 <@> print vK
# 6 <@> leave[1 ref] vKP/REFC
EONT_EONT
PERL_ARGS_ASSERT_SCALARBOOLEAN;
- if (o->op_type == OP_SASSIGN && cBINOPo->op_first->op_type == OP_CONST) {
+ if (o->op_type == OP_SASSIGN && cBINOPo->op_first->op_type == OP_CONST
+ && !(cBINOPo->op_first->op_flags & OPf_SPECIAL)) {
if (ckWARN(WARN_SYNTAX)) {
const line_t oldline = CopLINE(PL_curcop);
operand of a logical or conditional
that was optimised away, so it should
not be bound via =~ */
+ /* On OP_CONST, from a constant CV */
/* old names; don't use in new code, but don't break them, either */
#define OPf_LIST OPf_WANT_LIST