X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=8630c1b0592ba4e30286163415159aa5d9b5a208;hb=780a5241a93925d81e932db73df46ee749b203b9;hp=e4c59b5a31c66db091777fb37c3673769fdfb113;hpb=d1144667a1a63a59aa92742530166e5d3591539f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index e4c59b5..8630c1b 100644
--- a/gv.c
+++ b/gv.c
@@ -806,8 +806,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
     HV *stash = NULL;
     const I32 no_init = flags & (GV_NOADD_NOINIT | GV_NOINIT);
     const I32 no_expand = flags & GV_NOEXPAND;
-    const I32 add =
-	flags & ~SVf_UTF8 & ~GV_NOADD_NOINIT & ~GV_NOEXPAND & ~GV_NOTQUAL;
+    const I32 add = flags & ~GV_NOADD_MASK;
     const char *const name_end = nambeg + full_len;
     const char *const name_em1 = name_end - 1;