toke.c: S_checkcomma, GV-related UTF8 cleanup

diff --git a/toke.c b/toke.c
index 0b36ed4..b1dd70e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8476,7 +8476,7 @@ S_checkcomma(pTHX_ const char *s, const char *name, const char *what)
            if (keyword(w, s - w, 0))
                return;
 
-           gv = gv_fetchpvn_flags(w, s - w, 0, SVt_PVCV);
+           gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV);
            if (gv && GvCVu(gv))
                return;
            Perl_croak(aTHX_ "No comma allowed after %s", what);