diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-25 11:14:09 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-03-25 23:46:22 +0000 |
| commit | dd374669df59cc2457708a01ea0f6d332912530b (patch) | |
| tree | c085cf838d250f49dfc8f9bc949862489e3b3ad8 /gv.c | |
| parent | bd5f3bc473acbb69a352d57b0baf5d694577ad8e (diff) | |
| download | perl-dd374669df59cc2457708a01ea0f6d332912530b.tar.gz | |
Consting five
Message-ID: <20050325231409.GB17660@petdance.com>
[with modification - the extra argument to incpush was supposed to
be being used]
p4raw-id: //depot/perl@24081
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -672,7 +672,8 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, I32 len; register const char *namend; HV *stash = 0; - I32 add = flags & ~SVf_UTF8; + const I32 add = flags & ~SVf_UTF8; + (void)full_len; if (*name == '*' && isALPHA(name[1])) /* accidental stringify on a GV? */ name++; @@ -1230,7 +1231,7 @@ Perl_gv_check(pTHX_ HV *stash) } CopLINE_set(PL_curcop, GvLINE(gv)); #ifdef USE_ITHREADS - CopFILE(PL_curcop) = file; /* set for warning */ + CopFILE(PL_curcop) = (char *)file; /* set for warning */ #else CopFILEGV(PL_curcop) = gv_fetchfile(file); #endif @@ -1317,6 +1318,8 @@ int Perl_magic_freeovrld(pTHX_ SV *sv, MAGIC *mg) { AMT *amtp = (AMT*)mg->mg_ptr; + (void)sv; + if (amtp && AMT_AMAGIC(amtp)) { int i; for (i = 1; i < NofAMmeth; i++) { @@ -1867,6 +1870,7 @@ pointers returned by SvPV. bool Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags) { + (void)flags; if (len > 1) { const char *name1 = name + 1; switch (*name) { |