Re-order one DO_UTF8 to be after the SvPV.

p4raw-id: //depot/perl@28035

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 3dd73188cc90ad81b06fd31470935e339619042a..255a6d99ebe45a00f2bf33370ed49b2a9d26b20a 100644 (file)
--- 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);