Merge fbdc075 into 1e43c13

Perl · May 11, 2021 · 2df5659 · 2df5659
2 parents 1e43c13 + fbdc075
commit 2df5659
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/op.c b/op.c
@@ -4291,6 +4291,8 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
 
     switch (o->op_type) {
     case OP_UNDEF:
+        if (type == OP_SASSIGN)
+            goto nomod;
 	PL_modcount++;
 	goto do_next;
 

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
@@ -194,8 +194,8 @@ BEGIN failed--compilation aborted at - line 1.
 ########
 BEGIN { undef = 0 }
 EXPECT
-Modification of a read-only value attempted at - line 1.
-BEGIN failed--compilation aborted at - line 1.
+Can't modify undef operator in scalar assignment at - line 1, near "0 }"
+BEGIN not safe after errors--compilation aborted at - line 1.
 ########
 {
     package foo;