diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-04-13 03:58:07 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-13 15:25:55 +0000 |
| commit | e16e2ff836b177c52744755a35f12e818d01328b (patch) | |
| tree | 6e3f0cc3daa15151f159b039b24eac3b86055fa6 /dump.c | |
| parent | 0e58dc15c0a761823891aec751111291a7995805 (diff) | |
| download | perl-e16e2ff836b177c52744755a35f12e818d01328b.tar.gz | |
[dodgy PATCH] Re: [Storable] utf8 keys started working!
Message-ID: <20020413015806.GA371@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@15893
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1238,7 +1238,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo int count = maxnest - nest; hv_iterinit(hv); - while ((he = hv_iternext(hv)) && count--) { + while ((he = hv_iternext_flags(hv, HV_ITERNEXT_WANTPLACEHOLDERS)) + && count--) { SV *elt, *keysv; char *keypv; STRLEN len; |