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 3dd7318..255a6d9 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);