diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-23 14:44:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-23 14:44:59 +0000 |
| commit | 92e67595817e2efa2a2f6c3e6498b1f1babb5fbd (patch) | |
| tree | 76b73812aa48ecb7c930efd8074555c3ce07c6f3 /sv.c | |
| parent | c9869e1c0cac4f243c84d27552ad981d5363e0f7 (diff) | |
| download | perl-92e67595817e2efa2a2f6c3e6498b1f1babb5fbd.tar.gz | |
Un-const magic virtual tables; this consting breaks the nasty
things done by Swig, as noticed by Audrey.
p4raw-id: //depot/perl@26924
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4060,7 +4060,7 @@ to contain an C<SV*> and is stored as-is with its REFCNT incremented. =cut */ MAGIC * -Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, const MGVTBL *vtable, +Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL *vtable, const char* name, I32 namlen) { dVAR; @@ -4149,7 +4149,7 @@ void Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 namlen) { dVAR; - const MGVTBL *vtable; + MGVTBL *vtable; MAGIC* mg; #ifdef PERL_OLD_COPY_ON_WRITE |