diff options
| -rw-r--r-- | t/lib/warnings/toke | 22 | ||||
| -rw-r--r-- | toke.c | 8 |
2 files changed, 27 insertions, 3 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index ef833bd347..a6841d2d09 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1096,3 +1096,25 @@ print "ok\n" if $@ =~ /Can't find string terminator "\xab" anywhere before EOF/; EXPECT ok +######## +# toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'ambiguous' ; +sub frèd {} +$a = ${frèd} ; +no warnings 'ambiguous' ; +$a = ${frèd} ; +EXPECT +Ambiguous use of ${frèd} resolved to $frèd at - line 6. +######## +# toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'ambiguous' ; +sub f렏 {} +$a = ${f렏} ; +no warnings 'ambiguous' ; +$a = ${f렏} ; +EXPECT +Ambiguous use of ${f렏} resolved to $f렏 at - line 6. @@ -8964,13 +8964,15 @@ S_scan_ident(pTHX_ register char *s, register const char *send, char *dest, STRL if (PL_lex_state == LEX_NORMAL) { if (ckWARN(WARN_AMBIGUOUS) && (keyword(dest, d - dest, 0) - || get_cvn_flags(dest, d - dest, 0))) + || get_cvn_flags(dest, d - dest, UTF ? SVf_UTF8 : 0))) { + SV *tmp = newSVpvn_flags( dest, d - dest, + SVs_TEMP | (UTF ? SVf_UTF8 : 0) ); if (funny == '#') funny = '@'; Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS), - "Ambiguous use of %c{%s} resolved to %c%s", - funny, dest, funny, dest); + "Ambiguous use of %c{%"SVf"} resolved to %c%"SVf, + funny, tmp, funny, tmp); } } } |