diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-01 11:16:13 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-01 11:16:13 +0000 |
| commit | 8738e0c0cfd26b8ad6a068696d94b0891da17e2f (patch) | |
| tree | 44d03f9da8418503cfab136ff8df5e47f0118959 /ext/Data | |
| parent | 4b0c4b6fb611d776b6e7507f70c235f361e01815 (diff) | |
| download | perl-8738e0c0cfd26b8ad6a068696d94b0891da17e2f.tar.gz | |
Re-order one DO_UTF8 to be after the SvPV.
p4raw-id: //depot/perl@28035
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index 3dd73188cc..255a6d99eb 100644 --- a/ext/Data/Dumper/Dumper.xs +++ b/ext/Data/Dumper/Dumper.xs @@ -642,8 +642,8 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, hval = hv_iterval((HV*)ival, entry); } - do_utf8 = DO_UTF8(keysv); key = SvPV(keysv, keylen); + do_utf8 = DO_UTF8(keysv); klen = keylen; sv_catsv(retval, totpad); |