From 9f3d18d43e3fe4e6987fb4dd09a8760560372dbf Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Wed, 13 Aug 2014 12:43:11 +0200
Subject: Bug 996893: Perl 5.18 and newer throw tons of warnings about
 deprecated modules r=dkl a=sgreen

---
 t/008filter.t | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 't/008filter.t')

diff --git a/t/008filter.t b/t/008filter.t
index 9551ae2b2..f0a26d13f 100644
--- a/t/008filter.t
+++ b/t/008filter.t
@@ -15,10 +15,11 @@
 
 # Sample exploit code: '>"><script>alert('Oh dear...')</script>
 
+use 5.10.1;
 use strict;
-use lib qw(. lib t);
+use warnings;
 
-use vars qw(%safe);
+use lib qw(. lib t);
 
 use Bugzilla::Constants;
 use Support::Templates;
@@ -30,6 +31,7 @@ use Cwd;
 my $oldrecsep = $/;
 my $topdir = cwd;
 $/ = undef;
+our %safe;
 
 foreach my $path (@Support::Templates::include_paths) {
     $path =~ s|\\|/|g if ON_WINDOWS;  # convert \ to / in path if on windows
@@ -84,9 +86,9 @@ foreach my $path (@Support::Templates::include_paths) {
             ok(1, "($lang/$flavor) $file is filter-safe");
             next;
         }
-        
+
         # Read the entire file into a string
-        open (FILE, "<$file") || die "Can't open $file: $!\n";    
+        open (FILE, "<$file") || die "Can't open $file: $!\n";
         my $slurp = <FILE>;
         close (FILE);
 
-- 
cgit v1.2.3-24-g4f1b