This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: 'No such class %s' cleanup.
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 6a7e1ef..2fb0a56 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7675,7 +7675,7 @@ Perl_yylex(pTHX)
                    char tmpbuf[1024];
                    PL_bufptr = s;
                    my_snprintf(tmpbuf, sizeof(tmpbuf), "No such class %.1000s", PL_tokenbuf);
                    char tmpbuf[1024];
                    PL_bufptr = s;
                    my_snprintf(tmpbuf, sizeof(tmpbuf), "No such class %.1000s", PL_tokenbuf);
-                   yyerror(tmpbuf);
+                   yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0);
                }
 #ifdef PERL_MAD
                if (PL_madskills) {     /* just add type to declarator token */
                }
 #ifdef PERL_MAD
                if (PL_madskills) {     /* just add type to declarator token */