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 /gv.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 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -819,6 +819,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) else { AV* av = GvAVn(gv); sv_magic((SV*)av, Nullsv, 'D', Nullch, 0); + SvREADONLY_on(av); } goto magicalize; case '#': @@ -869,6 +870,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) else { AV* av = GvAVn(gv); sv_magic((SV*)av, (SV*)av, 'D', Nullch, 0); + SvREADONLY_on(av); } /* FALL THROUGH */ case '1': |