no bug - perltidy again, using the latest release

blame jeff

5 files changed, 9 insertions, 9 deletions

diff --git a/contrib/bzdbcopy.pl b/contrib/bzdbcopy.pl
index 5556a167e..b92d9205d 100755
--- a/contrib/bzdbcopy.pl
+++ b/contrib/bzdbcopy.pl
@@ -101,7 +101,7 @@ foreach my $table (@table_list) {
 
   my ($total) = $source_db->selectrow_array("SELECT COUNT(*) FROM $table");
   my $select_query = "SELECT " . join(',', @table_columns) . " FROM $table";
-  my $select_sth = $source_db->prepare($select_query);
+  my $select_sth   = $source_db->prepare($select_query);
   $select_sth->execute();
 
   my $insert_query
diff --git a/contrib/console.pl b/contrib/console.pl
index a3e042236..7c1748064 100755
--- a/contrib/console.pl
+++ b/contrib/console.pl
@@ -27,7 +27,7 @@ $Data::Dumper::Maxdepth = 1;
 $Data::Dumper::Deparse  = 0;
 
 my $sysname = get_text('term', {term => 'Bugzilla'});
-my $term = new Term::ReadLine "$sysname Console";
+my $term    = new Term::ReadLine "$sysname Console";
 read_history($term);
 END { write_history($term) }
 
diff --git a/contrib/extension-convert.pl b/contrib/extension-convert.pl
index d0fc791b2..a70888dc1 100755
--- a/contrib/extension-convert.pl
+++ b/contrib/extension-convert.pl
@@ -225,7 +225,7 @@ sub code_files_to_subroutines {
     next if $file =~ /install-requirements/;
     print "Moving $file code into Extension.pm...\n";
     my ($modules, $code) = process_code_file($file);
-    my @code_lines = map {"    $_"} @$code;
+    my @code_lines  = map {"    $_"} @$code;
     my $code_string = join('', @code_lines);
     $code_string =~ s/Bugzilla->hook_args/\$args/g;
     $code_string =~ s/my\s+\$args\s+=\s+\$args;//gs;
@@ -244,7 +244,7 @@ END
     push(@subroutines, $subroutine);
   }
 
-  my %seen_modules = map { trim($_) => 1 } @all_modules;
+  my %seen_modules      = map { trim($_) => 1 } @all_modules;
   my $module_string     = join("\n", sort keys %seen_modules);
   my $subroutine_string = join("\n", @subroutines);
   return ($module_string, $subroutine_string);
diff --git a/contrib/merge-users.pl b/contrib/merge-users.pl
index dbc9b10fe..02129980d 100755
--- a/contrib/merge-users.pl
+++ b/contrib/merge-users.pl
@@ -44,7 +44,7 @@ use Pod::Usage;
 my $dbh = Bugzilla->dbh;
 
 # Display the help if called with --help or -?.
-my $help = 0;
+my $help   = 0;
 my $result = GetOptions("help|?" => \$help);
 pod2usage(0) if $help;
 
@@ -179,7 +179,7 @@ foreach my $table (keys %changes) {
 
     # Get all columns to consider. There is always at least
     # one column given: the one to update.
-    my @columns = split(/[\s]+/, $column_list);
+    my @columns       = split(/[\s]+/, $column_list);
     my $cols_to_check = join(' AND ', map {"$_ = ?"} @columns);
 
     # The first column of the list is the one to update.
diff --git a/contrib/recode.pl b/contrib/recode.pl
index 9dc1d1bf5..fdb3ae0ac 100755
--- a/contrib/recode.pl
+++ b/contrib/recode.pl
@@ -186,8 +186,8 @@ foreach my $table ($dbh->bz_table_list_real) {
                                             AND $column != ''"
       );
 
-      my @pk_array = map {"$_ = ?"} split(',', $pk);
-      my $pk_where = join(' AND ', @pk_array);
+      my @pk_array   = map {"$_ = ?"} split(',', $pk);
+      my $pk_where   = join(' AND ', @pk_array);
       my $update_sth = $dbh->prepare("UPDATE $table SET $column = ? WHERE $pk_where");
 
       $sth->execute();
@@ -197,7 +197,7 @@ foreach my $table ($dbh->bz_table_list_real) {
 
         # Wide characters cause md5_base64() to die.
         my $digest_data = utf8::is_utf8($data) ? Encode::encode_utf8($data) : $data;
-        my $digest = md5_base64($digest_data);
+        my $digest      = md5_base64($digest_data);
 
         my @primary_keys = reverse split(',', $pk);