From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 1 May 2006 11:16:13 +0000 (+0000)
Subject: Re-order one DO_UTF8 to be after the SvPV.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8738e0c0cfd26b8ad6a068696d94b0891da17e2f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);