From: Leon Timmermans <fawaka@gmail.com>
Date: Thu, 18 Aug 2016 18:48:20 +0000 (+0200)
Subject: Check for UTF8 flag on name after magic/overloading is performed
X-Git-Tag: v0.19~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d691461d21d8d434fc936c361a48664f265b0d1e;p=p5sagit%2FSub-Name.git

Check for UTF8 flag on name after magic/overloading is performed
---

diff --git a/Name.xs b/Name.xs
index 6168073..3484085 100644
--- a/Name.xs
+++ b/Name.xs
@@ -40,8 +40,8 @@ subname(name, sub)
 	const char *s, *end = NULL, *begin = NULL;
 	MAGIC *mg;
 	STRLEN namelen;
-	int utf8flag = SvUTF8(name);
 	const char* nameptr = SvPV(name, namelen);
+	int utf8flag = SvUTF8(name);
 	int seen_quote = 0, need_subst = 0;
     PPCODE:
 	if (!SvROK(sub) && SvGMAGICAL(sub))