diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-12 23:18:08 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-12 23:18:08 -0700 |
| commit | 0d974c9d49eeff5a22550b2f774216c453689bd0 (patch) | |
| tree | 626174c133576b32a08a7dd35d3066f1eaac703a /t/lib | |
| parent | 2bde9ae6d41328ef8a0af7287fdbcbb982befeea (diff) | |
| download | perl-0d974c9d49eeff5a22550b2f774216c453689bd0.tar.gz | |
[perl #118857] Test punct vars’ exemption from ‘once’ warnings
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/perl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/perl b/t/lib/warnings/perl index a00ed62b39..3a0af11260 100644 --- a/t/lib/warnings/perl +++ b/t/lib/warnings/perl @@ -39,6 +39,16 @@ $z = 3 EXPECT Name "main::x" used only once: possible typo at - line 3. ######## +# perl.c +use warnings 'once'; +$\; # test a few +$:; # punct vars +$0; # and +$123; # numbers +$_; # and +$_foo; # underscores (none of which should warn) +EXPECT +######## -W # perl.c no warnings 'once' ; |