diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-18 19:28:30 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-21 09:39:35 +0000 |
| commit | bfed75c6338f0ba740aa210f4b0267e39ca4662b (patch) | |
| tree | ceaa91a3d877b0eaf3000f01f413f942619a2d9f /dump.c | |
| parent | a87115f0a1b74f765307464de281024d76c71ad6 (diff) | |
| download | perl-bfed75c6338f0ba740aa210f4b0267e39ca4662b.tar.gz | |
More consting goodness
Message-ID: <20050319072830.GA7721@petdance.com>
p4raw-id: //depot/perl@24049
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -887,7 +887,7 @@ Perl_gv_dump(pTHX_ GV *gv) * (with the PERL_MAGIC_ prefixed stripped) */ -static struct { char type; char *name; } magic_names[] = { +static struct { const char type; const char *name; } magic_names[] = { { PERL_MAGIC_sv, "sv(\\0)" }, { PERL_MAGIC_arylen, "arylen(#)" }, { PERL_MAGIC_glob, "glob(*)" }, @@ -938,8 +938,8 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxne Perl_dump_indent(aTHX_ level, file, " MAGIC = 0x%"UVxf"\n", PTR2UV(mg)); if (mg->mg_virtual) { - MGVTBL *v = mg->mg_virtual; - char *s = 0; + const MGVTBL * const v = mg->mg_virtual; + const char *s = 0; if (v == &PL_vtbl_sv) s = "sv"; else if (v == &PL_vtbl_env) s = "env"; else if (v == &PL_vtbl_envelem) s = "envelem"; |