summaryrefslogtreecommitdiff
path: root/ext/Data/Dumper/Dumper.xs
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2001-09-06 22:35:49 +1000
committerJarkko Hietaniemi <jhi@iki.fi>2001-09-06 13:56:19 +0000
commitf397e0261018d400b509a826d2f1e196ea810bcf (patch)
tree818979d04496b6618e913f249b2dce46f9945027 /ext/Data/Dumper/Dumper.xs
parent716e3b8c0c8bbed515ed9bf0db90423d663bb79b (diff)
downloadperl-f397e0261018d400b509a826d2f1e196ea810bcf.tar.gz
Extra NUL is Data::Dumper output - patch
Message-ID: <Pine.LNX.4.10.10109061157210.9366-100000@develop-help.com> p4raw-id: //depot/perl@11916
Diffstat (limited to 'ext/Data/Dumper/Dumper.xs')
-rw-r--r--ext/Data/Dumper/Dumper.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index b9fb54b978..8fc7ac35a1 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -137,7 +137,7 @@ esc_q_utf8(pTHX_ SV* sv, register char *src, register STRLEN slen)
r[0] = r[j++] = '"';
else
r[0] = r[j++] = '\'';
- r[j++] = '\0';
+ r[j] = '\0';
SvCUR_set(sv, SvCUR(sv) + j);
return j;