From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001
From: Perl Tidy <perltidy@bugzilla.org>
Date: Wed, 5 Dec 2018 15:38:52 -0500
Subject: no bug - reformat all the code using the new perltidy rules

---
 scripts/cpanfile_fixed_versions.pl | 174 ++++++++++++++++++-------------------
 1 file changed, 87 insertions(+), 87 deletions(-)

(limited to 'scripts/cpanfile_fixed_versions.pl')

diff --git a/scripts/cpanfile_fixed_versions.pl b/scripts/cpanfile_fixed_versions.pl
index dd2fc0a0c..028382a69 100755
--- a/scripts/cpanfile_fixed_versions.pl
+++ b/scripts/cpanfile_fixed_versions.pl
@@ -12,118 +12,118 @@ use warnings;
 use lib qw(. lib local/lib/perl5);
 
 
-
-
 use Bugzilla::Constants;
 use Bugzilla::Install::Requirements;
 use Bugzilla::Install::Util;
 
 sub _check_vers {
-    my ($params) = @_;
-    my $module  = $params->{module};
-    my $package = $params->{package};
-    if (!$package) {
-        $package = $module;
-        $package =~ s/::/-/g;
+  my ($params) = @_;
+  my $module   = $params->{module};
+  my $package  = $params->{package};
+  if (!$package) {
+    $package = $module;
+    $package =~ s/::/-/g;
+  }
+
+  my $wanted = $params->{version};
+
+  eval "require $module;";
+
+  # Don't let loading a module change the output-encoding of STDOUT
+  # or STDERR. (CGI.pm tries to set "binmode" on these file handles when
+  # it's loaded, and other modules may do the same in the future.)
+  Bugzilla::Install::Util::set_output_encoding();
+
+  # VERSION is provided by UNIVERSAL::, and can be called even if
+  # the module isn't loaded. We eval'uate ->VERSION because it can die
+  # when the version is not valid (yes, this happens from time to time).
+  # In that case, we use an uglier method to get the version.
+  my $vnum = eval { $module->VERSION };
+  if ($@) {
+    no strict 'refs';
+    $vnum = ${"${module}::VERSION"};
+
+    # If we come here, then the version is not a valid one.
+    # We try to sanitize it.
+    if ($vnum =~ /^((\d+)(\.\d+)*)/) {
+      $vnum = $1;
     }
+  }
+  $vnum ||= -1;
 
-    my $wanted = $params->{version};
-
-    eval "require $module;";
-    # Don't let loading a module change the output-encoding of STDOUT
-    # or STDERR. (CGI.pm tries to set "binmode" on these file handles when
-    # it's loaded, and other modules may do the same in the future.)
-    Bugzilla::Install::Util::set_output_encoding();
-
-    # VERSION is provided by UNIVERSAL::, and can be called even if
-    # the module isn't loaded. We eval'uate ->VERSION because it can die
-    # when the version is not valid (yes, this happens from time to time).
-    # In that case, we use an uglier method to get the version.
-    my $vnum = eval { $module->VERSION };
-    if ($@) {
-        no strict 'refs';
-        $vnum = ${"${module}::VERSION"};
-
-        # If we come here, then the version is not a valid one.
-        # We try to sanitize it.
-        if ($vnum =~ /^((\d+)(\.\d+)*)/) {
-            $vnum = $1;
-        }
-    }
-    $vnum ||= -1;
-
-    # Must do a string comparison as $vnum may be of the form 5.10.1.
-    my $vok = ($vnum ne '-1' && version->new($vnum) >= version->new($wanted)) ? 1 : 0;
-    if ($vok && $params->{blacklist}) {
-        $vok = 0 if grep($vnum =~ /$_/, @{$params->{blacklist}});
-    }
+  # Must do a string comparison as $vnum may be of the form 5.10.1.
+  my $vok
+    = ($vnum ne '-1' && version->new($vnum) >= version->new($wanted)) ? 1 : 0;
+  if ($vok && $params->{blacklist}) {
+    $vok = 0 if grep($vnum =~ /$_/, @{$params->{blacklist}});
+  }
 
-    return {
-        module => $module,
-        ok     => $vok,
-        wanted => $wanted,
-        found  => $vnum,
-    };
+  return {module => $module, ok => $vok, wanted => $wanted, found => $vnum,};
 }
 
 my $cpanfile;
+
 # Required modules
-foreach my $module (@{ REQUIRED_MODULES() }) {
-    my $current = _check_vers($module);
-    my $requires = "requires '" . $current->{module} . "'";
-    $requires .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
-    $requires .= ";\n";
-    $cpanfile .= $requires;
+foreach my $module (@{REQUIRED_MODULES()}) {
+  my $current  = _check_vers($module);
+  my $requires = "requires '" . $current->{module} . "'";
+  $requires
+    .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
+  $requires .= ";\n";
+  $cpanfile .= $requires;
 }
 
 # Recommended modules
 $cpanfile .= "\n# Optional\n";
 my %features;
-foreach my $module (@{ OPTIONAL_MODULES() }) {
-    next if $module->{package} eq 'mod_perl'; # Skip mod_perl since this would be installed by distro
-    my $current = _check_vers($module);
-    if (exists $module->{feature}) {
-        foreach my $feature (@{ $module->{feature} }) {
-            # cpanm requires that each feature only be defined in the cpanfile
-            # once, so we use an intermediate hash to consolidate/de-dupe the
-            # modules associated with each feature.
-            $features{$feature}{$module->{module}}
-              = ($current->{ok} ? $current->{found} : $current->{wanted});
-        }
-    }
-    else {
-        my $recommends = "";
-        $recommends .= "recommends '" . $module->{module} . "'";
-        $recommends .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
-        $recommends .= ";\n";
-        $cpanfile .= $recommends;
+foreach my $module (@{OPTIONAL_MODULES()}) {
+  next if $module->{package} eq 'mod_perl'; # Skip mod_perl since this would be installed by distro
+  my $current = _check_vers($module);
+  if (exists $module->{feature}) {
+    foreach my $feature (@{$module->{feature}}) {
+
+      # cpanm requires that each feature only be defined in the cpanfile
+      # once, so we use an intermediate hash to consolidate/de-dupe the
+      # modules associated with each feature.
+      $features{$feature}{$module->{module}}
+        = ($current->{ok} ? $current->{found} : $current->{wanted});
     }
+  }
+  else {
+    my $recommends = "";
+    $recommends .= "recommends '" . $module->{module} . "'";
+    $recommends
+      .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
+    $recommends .= ";\n";
+    $cpanfile   .= $recommends;
+  }
 }
 
 foreach my $feature (sort keys %features) {
-    my $recommends = "";
-    $recommends .= "feature '" . $feature . "' => sub {\n";
-    foreach my $module (sort keys %{ $features{$feature} }) {
-        my $version = $features{$feature}{$module};
-        $recommends .= "  recommends '" . $module . "'";
-        $recommends .= ", '$version'" if $version;
-        $recommends .= ";\n";
-    }
-    $recommends .= "};\n";
-    $cpanfile .= $recommends;
+  my $recommends = "";
+  $recommends .= "feature '" . $feature . "' => sub {\n";
+  foreach my $module (sort keys %{$features{$feature}}) {
+    my $version = $features{$feature}{$module};
+    $recommends .= "  recommends '" . $module . "'";
+    $recommends .= ", '$version'" if $version;
+    $recommends .= ";\n";
+  }
+  $recommends .= "};\n";
+  $cpanfile   .= $recommends;
 }
 
 # Database modules
 $cpanfile .= "\n# Database support\n";
-foreach my $db (keys %{ DB_MODULE() }) {
-    next if !exists DB_MODULE->{$db}->{dbd};
-    my $dbd = DB_MODULE->{$db}->{dbd};
-    my $current = _check_vers($dbd);
-    my $recommends .= "feature '$db' => sub {\n";
-    $recommends .= "  recommends '" . $dbd->{module} . "'";
-    $recommends .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
-    $recommends .= ";\n};\n";
-    $cpanfile .= $recommends;
+foreach my $db (keys %{DB_MODULE()}) {
+  next if !exists DB_MODULE->{$db}->{dbd};
+  my $dbd     = DB_MODULE->{$db}->{dbd};
+  my $current = _check_vers($dbd);
+  my $recommends .= "feature '$db' => sub {\n";
+  $recommends .= "  recommends '" . $dbd->{module} . "'";
+  $recommends
+    .= ", '" . ($current->{ok} ? $current->{found} : $current->{wanted}) . "'";
+  $recommends .= ";\n};\n";
+  $cpanfile   .= $recommends;
 }
 
 # Write out the cpanfile to STDOUT
-- 
cgit v1.2.3-24-g4f1b