summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-12-28 09:44:14 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-12-29 15:32:42 +0000
commit7a5b473ebcffe303e0ee757c10a615cdeb97e2f3 (patch)
treea07d37782c82ec117e5fc68c056b35ccc36f4705 /dump.c
parent322a00dca208ae733bf03812b33845889461ef0b (diff)
downloadperl-7a5b473ebcffe303e0ee757c10a615cdeb97e2f3.tar.gz
av.c cleanup, plus!
Message-ID: <20051228214414.GD26033@petdance.com> p4raw-id: //depot/perl@26526
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/dump.c b/dump.c
index 0679ed991f..3acbc42465 100644
--- a/dump.c
+++ b/dump.c
@@ -1441,7 +1441,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
}
if (nest < maxnest && !HvEITER_get(sv)) { /* Try to preserve iterator */
HE *he;
- HV *hv = (HV*)sv;
+ HV * const hv = (HV*)sv;
int count = maxnest - nest;
hv_iterinit(hv);
@@ -1450,7 +1450,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
SV *elt, *keysv;
const char *keypv;
STRLEN len;
- U32 hash = HeHASH(he);
+ const U32 hash = HeHASH(he);
keysv = hv_iterkeysv(he);
keypv = SvPV_const(keysv, len);