From 9f3d18d43e3fe4e6987fb4dd09a8760560372dbf Mon Sep 17 00:00:00 2001 From: Frédéric Buclin 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/004template.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 't/004template.t') diff --git a/t/004template.t b/t/004template.t index 604559dc0..d38f9e16b 100644 --- a/t/004template.t +++ b/t/004template.t @@ -9,7 +9,9 @@ #Bugzilla Test 4# ####Templates#### +use 5.10.1; use strict; +use warnings; use lib 't'; @@ -26,7 +28,7 @@ use Test::More tests => ( scalar(@referenced_files) + 2 * $num_actual_files ); # This will handle verbosity for us automatically. my $fh; { - local $^W = 0; # Don't complain about non-existent filehandles + no warnings qw(unopened); # Don't complain about non-existent filehandles if (-e \*Test::More::TESTOUT) { $fh = \*Test::More::TESTOUT; } elsif (-e \*Test::Builder::TESTOUT) { -- cgit v1.2.3-24-g4f1b