diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2016-05-15 10:59:18 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-05-15 14:01:28 -0700 |
| commit | 8e5993c4dcf9a5b7c84224dd04946a4e49ec96fe (patch) | |
| tree | 28e9819afd1fb88f272a17eaec5ccfc8617710d6 /dump.c | |
| parent | 01602aa1039240b47bbb31908b99c74240575514 (diff) | |
| download | perl-8e5993c4dcf9a5b7c84224dd04946a4e49ec96fe.tar.gz | |
Dump empty-string ENAMEs as empty strings
They were coming out as ‘(null)’, which is incorrect and confusing.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1818,7 +1818,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo HEK *const *const endp = HvAUX(sv)->xhv_name_u.xhvnameu_names + (count < 0 ? -count : count); while (hekp < endp) { - if (HEK_LEN(*hekp)) { + if (*hekp) { SV *tmp = newSVpvs_flags("", SVs_TEMP); Perl_sv_catpvf(aTHX_ names, ", \"%s\"", generic_pv_escape(tmp, HEK_KEY(*hekp), HEK_LEN(*hekp), HEK_UTF8(*hekp))); |