[perl #31767] open $1, "file" doesn't raise an exception

p4raw-id: //depot/perl@23342

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 772954e64d..94a278a9d9 100644
--- a/pp.c
+++ b/pp.c
@@ -159,6 +159,8 @@ PP(pp_rv2gv)
 		/* If this is a 'my' scalar and flag is set then vivify
 		 * NI-S 1999/05/07
 		 */
+		if (SvREADONLY(sv))
+		    Perl_croak(aTHX_ PL_no_modify);
 		if (PL_op->op_private & OPpDEREF) {
 		    char *name;
 		    GV *gv;