summaryrefslogtreecommitdiffstats
path: root/t/008filter.t
diff options
context:
space:
mode:
authorFrédéric Buclin <LpSolit@gmail.com>2014-08-13 12:43:11 +0200
committerFrédéric Buclin <LpSolit@gmail.com>2014-08-13 12:43:11 +0200
commit9f3d18d43e3fe4e6987fb4dd09a8760560372dbf (patch)
treebf64b06312ad9d2a4f590c414ecc28c4f8e20054 /t/008filter.t
parentc19dc4ffe98074bedb780652af581a1f0edb3b2d (diff)
downloadbugzilla-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar.gz
bugzilla-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar.xz
Bug 996893: Perl 5.18 and newer throw tons of warnings about deprecated modules
r=dkl a=sgreen
Diffstat (limited to 't/008filter.t')
-rw-r--r--t/008filter.t10
1 files changed, 6 insertions, 4 deletions
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);