diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-04-04 05:05:04 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-08-04 18:25:17 +0200 |
commit | 2e9c9f5b9d1bff165a55dd7dbe54d81b2adbfde1 (patch) | |
tree | c76c12b9daf7b32be1554ab9a5f4b8a72e16a523 /t/002goodperl.t | |
parent | 7f09ef208e09c85ed7087ab32e89da29bde837db (diff) | |
download | bugzilla-2e9c9f5b9d1bff165a55dd7dbe54d81b2adbfde1.tar.gz bugzilla-2e9c9f5b9d1bff165a55dd7dbe54d81b2adbfde1.tar.xz |
Bug 1455495 - Replace apache with Mojolicious
Diffstat (limited to 't/002goodperl.t')
-rw-r--r-- | t/002goodperl.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 5f201160b..80d7cf2b9 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -83,6 +83,7 @@ foreach my $file (@testitems) { my $found_use_strict = 0; my $found_use_warnings = 0; my $found_modern_perl = 0; + my $found_mojo = 0; $file =~ s/\s.*$//; # nuke everything after the first space (#comment) next if (!$file); # skip null entries @@ -92,13 +93,17 @@ foreach my $file (@testitems) { } while (my $file_line = <FILE>) { $found_modern_perl = 1 if $file_line =~ m/^use\s*(?:Moo|Role::Tiny)/; + $found_mojo = 1 if $file_line =~ m/^use\s(?:Mojo(?:licious::Lite|::Base)\b)/; $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) { + if ($found_modern_perl || $found_mojo) { $found_use_strict = 1; $found_use_warnings = 1; } + if ($found_mojo) { + $found_use_perl = 1; + } last if ($found_use_perl && $found_use_strict && $found_use_warnings); } close (FILE); |