diff options
author | Perl Tidy <perltidy@bugzilla.org> | 2019-01-31 20:50:06 -0500 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2019-01-31 21:02:46 -0500 |
commit | f91e240aac65936bc9dee0f926cd6f1021f48fe0 (patch) | |
tree | 596aa9893d4526e646b9a64fd6c65706c8dd3340 /contrib | |
parent | add perl-fmt script (diff) | |
download | bugzilla-f91e240aac65936bc9dee0f926cd6f1021f48fe0.tar.gz bugzilla-f91e240aac65936bc9dee0f926cd6f1021f48fe0.tar.bz2 bugzilla-f91e240aac65936bc9dee0f926cd6f1021f48fe0.zip |
no bug - perltidy again, using the latest release
blame jeff
Diffstat (limited to 'contrib')
-rwxr-xr-x | contrib/bzdbcopy.pl | 2 | ||||
-rwxr-xr-x | contrib/console.pl | 2 | ||||
-rwxr-xr-x | contrib/extension-convert.pl | 4 | ||||
-rwxr-xr-x | contrib/merge-users.pl | 4 | ||||
-rwxr-xr-x | contrib/recode.pl | 6 |
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); |