Login
Make tests comply with
authorElliot Shank <perl@galumph.com>
Fri, 22 Aug 2008 02:34:34 +0000 (02:34 +0000)
committerElliot Shank <perl@galumph.com>
Fri, 22 Aug 2008 02:34:34 +0000 (02:34 +0000)
RegularExpressions::RequireDotMatchAnything.

t/01_config.t
t/20_policy_requireconsistentnewlines.t

index cb1b647..9fbe611 100644 (file)
@@ -224,7 +224,7 @@ my $total_policies   = scalar @names_of_policies_willing_to_work;
         -exclude    => \@exclude,
     );
     my @policies = Perl::Critic::Config->new( %pc_args )->policies();
-    my $matches = grep { my $pol = ref $_; grep { $pol !~ /$_/imx} @exclude } @policies;
+    my $matches = grep { my $pol = ref $_; grep { $pol !~ /$_/ixms} @exclude } @policies;
     is(scalar @policies, $matches, 'exclude pattern matching');
 }
 
@@ -245,13 +245,13 @@ my $total_policies   = scalar @names_of_policies_willing_to_work;
     my @policies = Perl::Critic::Config->new( %pc_args )->policies();
     my @pol_names = map {ref $_} @policies;
     is_deeply(
-        [grep {/block/imx} @pol_names],
+        [grep {/block/ixms} @pol_names],
         [],
         'include/exclude pattern match had no "block" policies',
     );
     # This odd construct arises because "any" can't be used with parens without syntax error(!)
     ok(
-        @{[any {/builtinfunc/imx} @pol_names]},
+        @{[any {/builtinfunc/ixms} @pol_names]},
         'include/exclude pattern match had "builtinfunc" policies',
     );
 }
index f96a822..4976105 100644 (file)
@@ -54,13 +54,13 @@ END_PERL
 
 is( fcritique($policy, \$base_code), 0, $policy );
 
-my @lines = split m/\n/mx, $base_code;
+my @lines = split m/\n/xms, $base_code;
 for my $keyword (qw<
     Pkg; heredoc_body HEREDOC POD_HEADER pod =cut
     comment_line inline_comment
     __END__ end_body __DATA__ DataLine1 DataLine2
 >) {
-    my $is_first_line = $lines[0] =~ m/\Q$keyword\E\z/mx;
+    my $is_first_line = $lines[0] =~ m/\Q$keyword\E\z/xms;
     my $nfail = $is_first_line ? @lines-1 : 1;
     for my $nl (
         "\N{LINE FEED}",