diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2012-03-22 18:03:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:56 -0700 |
| commit | 5c66c3dde829c299f412b72bab2df6ea0f8afe02 (patch) | |
| tree | 8addcfba1535b8211933ca51ccacd3f48d433aec /t | |
| parent | d0fb66e4dd07da2a32d4da479eecdd70515e9f20 (diff) | |
| download | perl-5c66c3dde829c299f412b72bab2df6ea0f8afe02.tar.gz | |
toke.c: "Ambiguous use of %c{%s} resolved to %c%s" cleanup.
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 22 |
1 files changed, 22 insertions, 0 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. |