aboutsummaryrefslogtreecommitdiff
path: root/scripts/maint/findMergedChanges.pl
diff options
context:
space:
mode:
authorskaluzka <skaluzka@protonmail.com>2021-09-07 23:44:44 +0200
committerskaluzka <skaluzka@protonmail.com>2021-09-07 23:44:44 +0200
commit82168e5e8bbd2600f99d37f85202c8126a959b24 (patch)
treeee0c0b2b1918a980b6391a7c06da45ef4891408e /scripts/maint/findMergedChanges.pl
parent677b0c9f6d9d7793a6a2c961036017076fe2abf4 (diff)
downloadtor-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-xscripts/maint/findMergedChanges.pl16
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;
}
}