diff options
| author | Dylan William Hardison <dylan@hardison.net> | 2016-11-20 00:12:39 +0100 |
|---|---|---|
| committer | Dylan William Hardison <dylan@hardison.net> | 2017-01-04 23:30:47 +0100 |
| commit | 419f3ae9fd57fc4e03146a830f7ed780ace83937 (patch) | |
| tree | f368b61dab21eb036e4b91e1ec947a4b9eeabae9 /t | |
| parent | 840bbad83e4672fc84083437e384f0d332020f53 (diff) | |
| download | bugzilla-419f3ae9fd57fc4e03146a830f7ed780ace83937.tar.gz bugzilla-419f3ae9fd57fc4e03146a830f7ed780ace83937.tar.xz | |
Bug 1307478 - Elasticsearch Indexer / Bulk Indexer
Diffstat (limited to 't')
| -rw-r--r-- | t/002goodperl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 7b2e74acc..d770b7b4f 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -80,6 +80,7 @@ foreach my $file (@testitems) { my $found_use_perl = 0; my $found_use_strict = 0; my $found_use_warnings = 0; + my $found_modern_perl = 0; $file =~ s/\s.*$//; # nuke everything after the first space (#comment) next if (!$file); # skip null entries @@ -88,9 +89,14 @@ foreach my $file (@testitems) { next; } while (my $file_line = <FILE>) { + $found_modern_perl = 1 if $file_line =~ m/^use\s*(?:Moo|Role::Tiny)/; $found_use_perl = 1 if $file_line =~ m/^\s*use 5.10.1/; $found_use_strict = 1 if $file_line =~ m/^\s*use strict/; $found_use_warnings = 1 if $file_line =~ m/^\s*use warnings/; + if ($found_modern_perl) { + $found_use_strict = 1; + $found_use_warnings = 1; + } last if ($found_use_perl && $found_use_strict && $found_use_warnings); } close (FILE); |