diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-08-06 08:16:59 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:54 -0700 |
| commit | 02571fe88c6515651a3a02e3a3903a559e55be7a (patch) | |
| tree | 4bddff7f9f9193f28e6f8a8602234f8cd3cc2c6f /toke.c | |
| parent | b9e186cd7765a6bc8b028fb122664ed6e4c17f70 (diff) | |
| download | perl-02571fe88c6515651a3a02e3a3903a559e55be7a.tar.gz | |
toke.c: 'Operator or semicolon missing before %c%s' cleanup.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -7042,8 +7042,10 @@ Perl_yylex(pTHX) safe_bareword: if ((lastchar == '*' || lastchar == '%' || lastchar == '&')) { Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), - "Operator or semicolon missing before %c%s", - lastchar, PL_tokenbuf); + "Operator or semicolon missing before %c%"SVf, + lastchar, SVfARG(newSVpvn_flags(PL_tokenbuf, + strlen(PL_tokenbuf), + SVs_TEMP | (UTF ? SVf_UTF8 : 0)))); Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), "Ambiguous use of %c resolved as operator %c", lastchar, lastchar); |