diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-08-01 13:05:36 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-08-01 13:14:59 -0600 |
commit | 685bfc3ccf3109c4c537bd9aad1ba87ccce84bde (patch) | |
tree | cc580b3baea12b7781e8698a6013776176083b38 /dump.c | |
parent | ad3f05adb1975f100a1e610eaa5eb43099c3063d (diff) | |
download | perl-685bfc3ccf3109c4c537bd9aad1ba87ccce84bde.tar.gz |
dump.c: White-space only
Indent and wrap lines to correspond with newly formed block
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -1688,12 +1688,14 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo _invlist_dump(file, level, " ", sv); } else { - PerlIO_printf(file, "%s", pv_display(d, ptr, SvCUR(sv), - re ? 0 : SvLEN(sv), - pvlim)); - if (SvUTF8(sv)) /* the 6? \x{....} */ - PerlIO_printf(file, " [UTF8 \"%s\"]", sv_uni_display(d, sv, 6 * SvCUR(sv), UNI_DISPLAY_QQ)); - PerlIO_printf(file, "\n"); + PerlIO_printf(file, "%s", pv_display(d, ptr, SvCUR(sv), + re ? 0 : SvLEN(sv), + pvlim)); + if (SvUTF8(sv)) /* the 6? \x{....} */ + PerlIO_printf(file, " [UTF8 \"%s\"]", + sv_uni_display(d, sv, 6 * SvCUR(sv), + UNI_DISPLAY_QQ)); + PerlIO_printf(file, "\n"); } Perl_dump_indent(aTHX_ level, file, " CUR = %"IVdf"\n", (IV)SvCUR(sv)); if (!re) |