summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-08-01 13:05:36 -0600
committerKarl Williamson <public@khwilliamson.com>2013-08-01 13:14:59 -0600
commit685bfc3ccf3109c4c537bd9aad1ba87ccce84bde (patch)
treecc580b3baea12b7781e8698a6013776176083b38 /dump.c
parentad3f05adb1975f100a1e610eaa5eb43099c3063d (diff)
downloadperl-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.c14
1 files changed, 8 insertions, 6 deletions
diff --git a/dump.c b/dump.c
index 333f225661..1d24f351cc 100644
--- a/dump.c
+++ b/dump.c
@@ -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)