diff options
author | Andy Lester <andy@petdance.com> | 2005-03-21 18:35:55 -0600 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-24 16:25:58 +0000 |
commit | e1ec3a884f8d8c64eb7e391b2a363f47cbeed570 (patch) | |
tree | 13e83e61449ed542f309f1cd88e7ed42778ca543 /universal.c | |
parent | 2bbb3949e88673e7f0574ab70254a46d776242e9 (diff) | |
download | perl-e1ec3a884f8d8c64eb7e391b2a363f47cbeed570.tar.gz |
Third consting batch
Message-Id: <2f14220e7101a03f7659dbe79a03b115@petdance.com>
p4raw-id: //depot/perl@24074
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/universal.c b/universal.c index 760c33bffb..adff0fff03 100644 --- a/universal.c +++ b/universal.c @@ -137,7 +137,7 @@ for class names as well as for objects. bool Perl_sv_derived_from(pTHX_ SV *sv, const char *name) { - char *type; + const char *type; HV *stash; HV *name_stash; @@ -199,7 +199,7 @@ XS(XS_Internals_HvREHASH); void Perl_boot_core_UNIVERSAL(pTHX) { - char *file = __FILE__; + const char file[] = __FILE__; newXS("UNIVERSAL::isa", XS_UNIVERSAL_isa, file); newXS("UNIVERSAL::can", XS_UNIVERSAL_can, file); @@ -320,7 +320,7 @@ XS(XS_UNIVERSAL_VERSION) GV **gvp; GV *gv; SV *sv; - char *undef; + const char *undef; if (SvROK(ST(0))) { sv = (SV*)SvRV(ST(0)); @@ -357,7 +357,7 @@ XS(XS_UNIVERSAL_VERSION) "%s does not define $%s::VERSION--version check failed", HvNAME(pkg), HvNAME(pkg)); else { - char *str = SvPVx(ST(0), len); + const char *str = SvPVx(ST(0), len); Perl_croak(aTHX_ "%s defines neither package nor VERSION--version check failed", str); @@ -394,7 +394,7 @@ XS(XS_version_new) Perl_croak(aTHX_ "Usage: version::new(class, version)"); SP -= items; { - char * class = (char *)SvPV_nolen(ST(0)); + const char *class = SvPV_nolen(ST(0)); SV *vs = ST(1); SV *rv; if (items == 3 ) |