diff options
| author | Jim Cromie <jcromie@cpan.org> | 2007-06-11 07:49:06 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-12 08:43:55 +0000 |
| commit | 20f84293546435bbf5229325e767dc5e48ccb459 (patch) | |
| tree | 8e862ca90242c9368662f55ae5532ba4ac5c1b3c /dump.c | |
| parent | 1ad2138d16a5e3f58707d9c3b6f980ab17348c88 (diff) | |
| download | perl-20f84293546435bbf5229325e767dc5e48ccb459.tar.gz | |
mad-const patch
Message-ID: <466DA732.3010608@gmail.com>
p4raw-id: //depot/perl@31369
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2141,11 +2141,11 @@ Perl_sv_catxmlsv(pTHX_ SV *dsv, SV *ssv) } char * -Perl_sv_catxmlpvn(pTHX_ SV *dsv, char* pv, STRLEN len, int utf8) +Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8) { unsigned int c; const char * const e = pv + len; - char *start = pv; + const char * const start = pv; STRLEN dsvcur; STRLEN cl; @@ -2818,7 +2818,7 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) if (PL_madskills && o->op_madprop) { char prevkey = '\0'; SV * const tmpsv = newSVpvn("", 0); - const MADPROP* const mp = o->op_madprop; + const MADPROP* mp = o->op_madprop; sv_utf8_upgrade(tmpsv); if (!contents) { |