Fix by Rick Delaney for [perl #3269] no warnings "bareword" turns off

too many warnings.

p4raw-id: //depot/perl@25619

2 files changed, 7 insertions, 1 deletions

diff --git a/t/io/binmode.t b/t/io/binmode.t
index be198ae645..41eff4a24f 100644
--- a/t/io/binmode.t
+++ b/t/io/binmode.t
@@ -35,7 +35,7 @@ SKIP: {
     skip "minitest", 1 if $ENV{PERL_CORE_MINITEST};
     skip "no EBADF", 1 if (!exists &Errno::EBADF);
 
-    no warnings 'io';
+    no warnings 'io', 'once';
     $! = 0;
     binmode(B);
     ok($! == &Errno::EBADF);
diff --git a/t/lib/warnings/2use b/t/lib/warnings/2use
index 7810287a3a..eef0f3ffec 100644
--- a/t/lib/warnings/2use
+++ b/t/lib/warnings/2use
@@ -72,6 +72,12 @@ my $a =+ 1 ;
 EXPECT
 Reversed += operator at - line 3.
 ########
+-w
+no warnings 'reserved' ;
+foo.bar;
+EXPECT
+Useless use of concatenation (.) or string in void context at - line 3.
+########
 
 --FILE-- abc
 my $a =+ 1 ;