diff options
Diffstat (limited to 't/lib/warnings/toke')
| -rw-r--r-- | t/lib/warnings/toke | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index a6841d2d09..f4ac3849ea 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -616,6 +616,30 @@ EXPECT Bareword "FRED::" refers to nonexistent package at bar line 25. ######## # toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'bareword' ; +#line 25 "bar" +$a = FRÈD:: ; +no warnings 'bareword' ; +#line 25 "bar" +$a = FRÈD:: ; +EXPECT +Bareword "FRÈD::" refers to nonexistent package at bar line 25. +######## +# toke.c +use utf8; +use open qw( :utf8 :std ); +use warnings 'bareword' ; +#line 25 "bar" +$a = ϞϞϞ:: ; +no warnings 'bareword' ; +#line 25 "bar" +$a = ϞϞϞ:: ; +EXPECT +Bareword "ϞϞϞ::" refers to nonexistent package at bar line 25. +######## +# toke.c use warnings 'ambiguous' ; sub time {} my $a = time() ; |