From 0d974c9d49eeff5a22550b2f774216c453689bd0 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 12 Jul 2013 23:18:08 -0700
Subject: [PATCH] =?utf8?q?[perl=20#118857]=20Test=20punct=20vars=E2=80=99?=
 =?utf8?q?=20exemption=20from=20=E2=80=98once=E2=80=99=20warnings?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 t/lib/warnings/perl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/t/lib/warnings/perl b/t/lib/warnings/perl
index a00ed62..3a0af11 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' ;
-- 
2.7.4