diff options
author | Brian Fraser <fraserbn@gmail.com> | 2011-08-06 11:03:16 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:55 -0700 |
commit | 29fb1d0ef33facc7d4fe58f19322d7d81ade25a8 (patch) | |
tree | aea1e549cf2aed6d8a073f8957c13b8a6419fdee | |
parent | 58576270560ee142457377108b60beef6009e7cc (diff) | |
download | perl-29fb1d0ef33facc7d4fe58f19322d7d81ade25a8.tar.gz |
toke.c: "Possible unintended interpolation of %s in string" cleanup.
-rw-r--r-- | t/lib/warnings/toke | 22 | ||||
-rw-r--r-- | toke.c | 5 |
2 files changed, 24 insertions, 3 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 4ce6ae4da3..ef833bd347 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -844,11 +844,31 @@ no warning for overridden dump use warnings 'ambiguous'; "@mjd_previously_unused_array"; no warnings 'ambiguous'; -"@mjd_previously_unused_array"; +"@mjd_previously_unused_array2"; EXPECT Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3. ######## # toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'ambiguous'; +"@mjd_previously_unused_àrray"; +no warnings 'ambiguous'; +"@mjd_previously_unused_àrray2"; +EXPECT +Possible unintended interpolation of @mjd_previously_unused_àrray in string at - line 5. +######## +# toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'ambiguous'; +"@mjd_previously_unused_ぁrrぁy"; +no warnings 'ambiguous'; +"@mjd_previously_unused_ぁrrぁy2"; +EXPECT +Possible unintended interpolation of @mjd_previously_unused_ぁrrぁy in string at - line 5. +######## +# toke.c # 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com use warnings 'regexp'; "foo" =~ /foo/c; @@ -8568,8 +8568,9 @@ S_pending_ident(pTHX) { /* Downgraded from fatal to warning 20000522 mjd */ Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS), - "Possible unintended interpolation of %s in string", - PL_tokenbuf); + "Possible unintended interpolation of %"SVf" in string", + SVfARG(newSVpvn_flags(PL_tokenbuf, tokenbuf_len, + SVs_TEMP | ( UTF ? SVf_UTF8 : 0 )))); } } |