diff options
author | Frédéric Buclin <LpSolit@gmail.com> | 2014-08-13 12:43:11 +0200 |
---|---|---|
committer | Frédéric Buclin <LpSolit@gmail.com> | 2014-08-13 12:43:11 +0200 |
commit | 9f3d18d43e3fe4e6987fb4dd09a8760560372dbf (patch) | |
tree | bf64b06312ad9d2a4f590c414ecc28c4f8e20054 /t/Support/Files.pm | |
parent | c19dc4ffe98074bedb780652af581a1f0edb3b2d (diff) | |
download | bugs-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar bugs-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar.gz bugs-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar.bz2 bugs-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.tar.xz bugs-9f3d18d43e3fe4e6987fb4dd09a8760560372dbf.zip |
Bug 996893: Perl 5.18 and newer throw tons of warnings about deprecated modules
r=dkl a=sgreen
Diffstat (limited to 't/Support/Files.pm')
-rw-r--r-- | t/Support/Files.pm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/t/Support/Files.pm b/t/Support/Files.pm index 330a473b1..85fa9f583 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -8,15 +8,19 @@ package Support::Files; +use 5.10.1; +use strict; +use warnings; + use File::Find; -@additional_files = (); +our @additional_files = (); -@files = glob('*'); +our @files = glob('*'); find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'Bugzilla'); push(@files, 'extensions/create.pl'); -@extensions = +our @extensions = grep { $_ ne 'extensions/create.pl' && ! -e "$_/disabled" } glob('extensions/*'); @@ -24,7 +28,7 @@ foreach my $extension (@extensions) { find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, $extension); } -@test_files = glob('t/*.t'); +our @test_files = glob('t/*.t'); sub isTestingFile { my ($file) = @_; @@ -40,9 +44,11 @@ sub isTestingFile { return undef; } -foreach $currentfile (@files) { +our (@testitems, @module_files); + +foreach my $currentfile (@files) { if (isTestingFile($currentfile)) { - push(@testitems,$currentfile); + push(@testitems, $currentfile); } push(@module_files, $currentfile) if $currentfile =~ /\.pm$/; } |