diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-14 07:59:54 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-18 13:38:32 +0000 |
| commit | 7fc634935189abec1d574a9733c7093e5c9f2781 (patch) | |
| tree | 812ca27d3ab8a2b9edc12b87c730981d50858d59 /gv.c | |
| parent | ad5c2da20a409831a6acfe749626ce0396b43b3f (diff) | |
| download | perl-7fc634935189abec1d574a9733c7093e5c9f2781.tar.gz | |
More const parms
Message-ID: <20050314195954.GB7141@petdance.com>
p4raw-id: //depot/perl@24042
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1832,7 +1832,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags) } /* -=for apidoc is_gv_magical +=for apidoc is_gv_magical_sv Returns C<TRUE> if given the name of a magical GV. Calls is_gv_magical. @@ -1865,7 +1865,7 @@ pointers returned by SvPV. =cut */ bool -Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags) +Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags) { if (len > 1) { const char *name1 = name + 1; @@ -1913,7 +1913,7 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags) case '8': case '9': { - char *end = name + len; + const char *end = name + len; while (--end > name) { if (!isDIGIT(*end)) return FALSE; |