diff options
author | skaluzka <skaluzka@protonmail.com> | 2021-09-07 23:44:44 +0200 |
---|---|---|
committer | skaluzka <skaluzka@protonmail.com> | 2021-09-07 23:44:44 +0200 |
commit | 82168e5e8bbd2600f99d37f85202c8126a959b24 (patch) | |
tree | ee0c0b2b1918a980b6391a7c06da45ef4891408e /scripts/maint/findMergedChanges.pl | |
parent | 677b0c9f6d9d7793a6a2c961036017076fe2abf4 (diff) | |
download | tor-82168e5e8bbd2600f99d37f85202c8126a959b24.tar.gz tor-82168e5e8bbd2600f99d37f85202c8126a959b24.zip |
Align and fix indentations in several maint scripts
Use 4 spaces indentations, convert tabs to spaces.
No real code changes.
Diffstat (limited to 'scripts/maint/findMergedChanges.pl')
-rwxr-xr-x | scripts/maint/findMergedChanges.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/scripts/maint/findMergedChanges.pl b/scripts/maint/findMergedChanges.pl index 9b3496403d..427f2b111d 100755 --- a/scripts/maint/findMergedChanges.pl +++ b/scripts/maint/findMergedChanges.pl @@ -9,7 +9,7 @@ sub nChanges { # requires perl 5.8. Avoids shell issues if we ever get a changes # file named by the parents of Little Johnny Tables. open F, "-|", "git", "log", "--no-merges", "--pretty=format:%H", $branches, "--", $fname - or die "$!"; + or die "$!"; my @changes = <F>; return scalar @changes } @@ -42,13 +42,13 @@ my $head = "origin/main"; while (@ARGV and $ARGV[0] =~ /^--/) { my $flag = shift @ARGV; if ($flag =~ /^--(weird|merged|unmerged|list)/) { - $look_for_type = $1; + $look_for_type = $1; } elsif ($flag =~ /^--branch=(\S+)/) { $target_branch = $1; } elsif ($flag =~ /^--head=(\S+)/) { $head = $1; } else { - die "Unrecognized flag $flag"; + die "Unrecognized flag $flag"; } } @@ -58,16 +58,16 @@ for my $changefile (@ARGV) { my $type; if ($n_merged != 0 and $n_postmerged == 0) { - $type = "merged"; + $type = "merged"; } elsif ($n_merged == 0 and $n_postmerged != 0) { - $type = "unmerged"; + $type = "unmerged"; } else { - $type = "weird"; + $type = "weird"; } if ($type eq $look_for_type) { - print "$changefile\n"; + print "$changefile\n"; } elsif ($look_for_type eq 'list') { - printf "% 8s: %s\n", $type, $changefile; + printf "% 8s: %s\n", $type, $changefile; } } |