diff options
| author | Andy Lester <andy@petdance.com> | 2006-03-30 17:42:28 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-31 12:30:31 +0000 |
| commit | d4c19fe8d8a6e04364af0548bf783e83ab5987d2 (patch) | |
| tree | 99c9bda0de1d3d3b176a6b6ec8387cbc8002e990 /mg.c | |
| parent | 4d91e28241ad974dc4df24b1f21b7278e74f5310 (diff) | |
| download | perl-d4c19fe8d8a6e04364af0548bf783e83ab5987d2.tar.gz | |
Random accumulated patches
Message-ID: <20060331054228.GA18940@petdance.com>
p4raw-id: //depot/perl@27641
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -544,7 +544,8 @@ Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg) int Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg) { - PERL_UNUSED_ARG(sv); PERL_UNUSED_ARG(mg); + PERL_UNUSED_ARG(sv); + PERL_UNUSED_ARG(mg); Perl_croak(aTHX_ PL_no_modify); NORETURN_FUNCTION_END; } @@ -716,7 +717,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) } #elif defined(WIN32) { - DWORD dwErr = GetLastError(); + const DWORD dwErr = GetLastError(); sv_setnv(sv, (NV)dwErr); if (dwErr) { PerlProc_GetOSError(sv, dwErr); @@ -2037,7 +2038,7 @@ Perl_vivify_defelem(pTHX_ SV *sv) if ((I32)LvTARGLEN(sv) < 0 && (I32)LvTARGOFF(sv) > AvFILL(av)) LvTARG(sv) = NULL; /* array can't be extended */ else { - SV** const svp = av_fetch(av, LvTARGOFF(sv), TRUE); + SV* const * const svp = av_fetch(av, LvTARGOFF(sv), TRUE); if (!svp || (value = *svp) == &PL_sv_undef) Perl_croak(aTHX_ PL_no_aelem, (I32)LvTARGOFF(sv)); } |