set global $^W for tests that require it

grantm · Jun 19, 2012 · 2ae1f11 · 2ae1f11
1 parent 789a422
commit 2ae1f11
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/t/1_XMLin.t b/t/1_XMLin.t
@@ -6,6 +6,10 @@ use IO::File;
 use File::Spec;
 
 
+# The suppress-able warnings still check the global flag
+
+$^W = 1;
+
 # Initialise filenames and check they're there
 
 my $XMLFile = File::Spec->catfile('t', 'test1.xml');  # t/test1.xml

diff --git a/t/A_XMLParser.t b/t/A_XMLParser.t
@@ -6,6 +6,10 @@ use IO::File;
 use File::Spec;
 
 
+# The suppress-able warnings still check the global flag
+
+$^W = 1;
+
 # Initialise filenames and check they're there
 
 my $XMLFile = File::Spec->catfile('t', 'test1.xml');  # t/test1.xml