X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=e3ece94bc4e897b5b0c8d914b21d6901beb8df5a;hb=e16e2ff836b177c52744755a35f12e818d01328b;hp=240d1c24f78b3bca2e9a2a93b568cb3924357839;hpb=0e58dc15c0a761823891aec751111291a7995805;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index 240d1c2..e3ece94 100644
--- a/dump.c
+++ b/dump.c
@@ -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;