diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-14 09:04:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-14 13:58:45 +0000 |
| commit | 03a27ae7a2d77f4526cc8f95901f616c50fdc14b (patch) | |
| tree | 93c9e1c66e63be081d2f6d955aaa6abc7d7284e1 /mg.c | |
| parent | 208edb77a29d217fb751c222223477b9e3fc3fd6 (diff) | |
| download | perl-03a27ae7a2d77f4526cc8f95901f616c50fdc14b.tar.gz | |
@+, @- readonly (was Re: @<punct> interpolating in "")
Message-Id: <E13OEII-0007B2-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6615
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -373,6 +373,7 @@ Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg) i = t; else /* @- */ i = s; + SvREADONLY_on(sv); sv_setiv(sv,i); } } |