diff options
| author | Andy Lester <andy@petdance.com> | 2005-11-04 09:12:56 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-07 10:24:54 +0000 |
| commit | 7452cf6af2e38d62832bbd8762076e54fa12a70f (patch) | |
| tree | 0524ba69bff9e7ad05914f72650259df8302cee6 /universal.c | |
| parent | 21401c75f1c38e127fa870b81fca15879c466865 (diff) | |
| download | perl-7452cf6af2e38d62832bbd8762076e54fa12a70f.tar.gz | |
Consting and localizing: Part LXVIII
Message-ID: <20051104211256.GA12651@petdance.com>
p4raw-id: //depot/perl@26028
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/universal.c b/universal.c index f8fa9cda88..1f63563da6 100644 --- a/universal.c +++ b/universal.c @@ -66,7 +66,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, { if (SvIV(subgen) == (IV)PL_sub_generation) { SV* sv; - SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); + SV** const svp = (SV**)hv_fetch(hv, name, len, FALSE); if (svp && (sv = *svp) != (SV*)&PL_sv_undef) { DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n", name, hvname) ); @@ -435,7 +435,7 @@ XS(XS_version_stringify) Perl_croak(aTHX_ "Usage: version::stringify(lobj, ...)"); SP -= items; { - SV * lobj = Nullsv; + SV * lobj; if (sv_derived_from(ST(0), "version")) { lobj = SvRV(ST(0)); @@ -457,7 +457,7 @@ XS(XS_version_numify) Perl_croak(aTHX_ "Usage: version::numify(lobj, ...)"); SP -= items; { - SV * lobj = Nullsv; + SV * lobj; if (sv_derived_from(ST(0), "version")) { lobj = SvRV(ST(0)); @@ -479,7 +479,7 @@ XS(XS_version_normal) Perl_croak(aTHX_ "Usage: version::normal(lobj, ...)"); SP -= items; { - SV * lobj = Nullsv; + SV * lobj; if (sv_derived_from(ST(0), "version")) { lobj = SvRV(ST(0)); @@ -501,7 +501,7 @@ XS(XS_version_vcmp) Perl_croak(aTHX_ "Usage: version::vcmp(lobj, ...)"); SP -= items; { - SV * lobj = Nullsv; + SV * lobj; if (sv_derived_from(ST(0), "version")) { lobj = SvRV(ST(0)); @@ -513,7 +513,7 @@ XS(XS_version_vcmp) SV *rs; SV *rvs; SV * robj = ST(1); - IV swap = (IV)SvIV(ST(2)); + const IV swap = (IV)SvIV(ST(2)); if ( ! sv_derived_from(robj, "version") ) { |