Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove some unnecessary /xms instances

  • Loading branch information...
commit b53cb2db14f5463299feaefe0c6dc63118f415b0 1 parent a55d33f
@petdance authored
Showing with 8 additions and 8 deletions.
  1. +2 −2 t/20_policies.t
  2. +2 −2 t/93_version.t
  3. +4 −4 t/94_includes.t
View
4 t/20_policies.t
@@ -24,7 +24,7 @@ if (@ARGV) {
my @policies = keys %{$subtests}; # get a list of all tests
# This is inefficient, but who cares...
for (@ARGV) {
- next if m/::/xms;
+ next if m/::/;
if (!s{\A t[\\/](\w+)[\\/](\w+)\.run \z}{$1\::$2}xms) {
die 'Unknown argument ' . $_;
}
@@ -97,7 +97,7 @@ for my $policy ( sort keys %{$subtests} ) {
# If any optional modules are NOT installed, then there should be no failures.
if ($subtest->{optional_modules}) {
MODULE:
- for my $module (split m/,\s*/xms, $subtest->{optional_modules}) {
+ for my $module (split m/,\s*/, $subtest->{optional_modules}) {
eval "require $module"; ## no critic (ProhibitStringyEval)
if ($EVAL_ERROR) {
$expected_failures = 0;
View
4 t/93_version.t
@@ -17,7 +17,7 @@ if (! defined $last_version) {
}
sub check_version {
- return if (! m{blib/script/}xms && ! m{\.pm \z}xms);
+ return if (! m{blib/script/} && ! m{\.pm\z});
local $/ = undef;
my $fh;
@@ -29,7 +29,7 @@ sub check_version {
$content =~ s/^__END__.*//xms;
# only look at perl scripts, not sh scripts
- return if (m{blib/script/}xms && $content !~ m/\A \#![^\r\n]+?perl/xms);
+ return if (m{blib/script/} && $content !~ m/\A \#![^\r\n]+?perl/xms);
my @version_lines = $content =~ m/ ( [^\n]* \$VERSION [^\n]* ) /gxms;
# Special cases for printing/documenting version numbers
View
8 t/94_includes.t
@@ -32,7 +32,7 @@ my %implied = (
my @pm;
find(
{
- wanted => sub { push @pm, $_ if m/\.pm \z/xms && !m/svn/xms },
+ wanted => sub { push @pm, $_ if m/\.pm\z/ && !m/svn/ },
no_chdir => 1,
},
'lib'
@@ -50,9 +50,9 @@ for my $file (@pm) {
for my $pkg (@pkgs) {
my $name = "$pkg";
- next if $name !~ m/::/xms;
- next if $name =~ m/::_private::/xms;
- next if $name =~ m/List::Util::[a-z]+/xms;
+ next if $name !~ m/::/;
+ next if $name =~ m/::_private::/;
+ next if $name =~ m/List::Util::[a-z]+/;
# subroutine declaration with absolute name?
# (bad form, but legal)
Please sign in to comment.
Something went wrong with that request. Please try again.