This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: S_checkcomma, GV-related UTF8 cleanup
authorBrian Fraser <fraserbn@gmail.com>
Sat, 23 Jul 2011 21:32:19 +0000 (18:32 -0300)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:04 +0000 (13:01 -0700)
toke.c

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