diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-08-20 08:50:42 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-25 13:43:58 -0700 |
| commit | 979a1401b9405575b13e8d51d239f9bf0b74d0aa (patch) | |
| tree | f2f5066129959268ec1d14566ed4b76210c7b494 /t/lib/warnings/toke | |
| parent | 86fe3f368e07f69cb20296f510fcb1d5ce6b3777 (diff) | |
| download | perl-979a1401b9405575b13e8d51d239f9bf0b74d0aa.tar.gz | |
toke.c: "Bareword "%s" refers to nonexistent package" cleanup.
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() ; |