From 5c66c3dde829c299f412b72bab2df6ea0f8afe02 Mon Sep 17 00:00:00 2001 From: Brian Fraser Date: Thu, 22 Mar 2012 18:03:11 -0700 Subject: toke.c: "Ambiguous use of %c{%s} resolved to %c%s" cleanup. --- toke.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 0e6bc4de73..e43bc744a8 100644 --- a/toke.c +++ b/toke.c @@ -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); } } } -- cgit v1.2.1