This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make scalar() propagate lvalueness
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 718f0e6..2cd3e44 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2001,6 +2001,7 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
        else if (!(o->op_flags & OPf_KIDS))
            break;
        if (o->op_targ != OP_LIST) {
+    case OP_SCALAR:
            op_lvalue(cBINOPo->op_first, type);
            break;
        }