diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-14 16:26:55 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-14 15:22:14 +0000 |
| commit | a29d06eddb19ab1d6c524328bb98500ebb28dcdb (patch) | |
| tree | 44e6944c9a337d9f3f500fd6bff27e6dcfbc49cc /mg.c | |
| parent | 4f8394d50d9807c4290f54c9461bcd33aec30e0f (diff) | |
| download | perl-a29d06eddb19ab1d6c524328bb98500ebb28dcdb.tar.gz | |
Re: [PATCH] @+, @- readonly
Message-Id: <E13OLCZ-00020N-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6620
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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) { |