From a29d06eddb19ab1d6c524328bb98500ebb28dcdb Mon Sep 17 00:00:00 2001
From: Mike Guy <mjtg@cam.ac.uk>
Date: Mon, 14 Aug 2000 16:26:55 +0100
Subject: Re: [PATCH] @+, @- readonly Message-Id:
 <E13OLCZ-00020N-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@6620
---
 mg.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'mg.c')

diff --git a/mg.c b/mg.c
index 06140994cf..95f20ad622 100644
--- a/mg.c
+++ b/mg.c
@@ -373,13 +373,19 @@ Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg)
 		    i = t;
 		else			/* @- */
 		    i = s;
-                SvREADONLY_on(sv);
 		sv_setiv(sv,i);
 	    }
     }
     return 0;
 }
 
+int
+Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg)
+{
+    dTHR;
+    Perl_croak(aTHX_ PL_no_modify);
+}
+
 U32
 Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
 {
-- 
cgit v1.2.1