topic: slight code shuffling for readability

gitster · gitster · commit 8f92733251b8 · 2007-12-07T01:10:31.000-08:00
diff --git a/git-topic.perl b/git-topic.perl
@@ -77,9 +77,10 @@ sub rebase_marker {
 
 sub describe_topic {
 	my ($topic) = @_;
+
 	open(CONF, '-|', qw(git repo-config --get),
-		"branch.$topic.description")
-		or die;
+	     "branch.$topic.description")
+	    or die;
 	my $it = join('',<CONF>);
 	close(CONF);
 	chomp($it);
@@ -88,29 +89,26 @@ sub describe_topic {
 	}
 }
 
-sub wrap_print {
-	my ($string) = @_;
-	format STDOUT =
-~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-	$string
- ~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-	$string
-.
-	write;
-}
+my @in_next = read_revs_short('^master', $stage[0]);
 
 open(TOPIC, '-|', qw(git for-each-ref),
-	'--sort=-authordate',
-	'--format=%(objectname) %(authordate) %(refname)',
-	"refs/heads/$topic_pattern")
-	or die;
-
-my @in_next = read_revs_short('^master', $stage[0]);
+    '--sort=-authordate',
+    '--format=%(objectname) %(authordate) %(refname)',
+    "refs/heads/$topic_pattern")
+    or die;
 
+my @topic = ();
 while (<TOPIC>) {
 	chomp;
 	my ($sha1, $date, $topic) = m|^([0-9a-f]{40})\s(.*?)\srefs/heads/(.+)$|
-		or next;
+	    or next;
+	push @topic, [$sha1, $date, $topic];
+}
+
+my @last_merge_to_next = ();
+
+for (@topic) {
+	my ($sha1, $date, $topic) = @$_;
 	my @revs = read_revs($base, $sha1, (1<<@stage)-1);
 	next unless (@revs || $all);
 
@@ -141,3 +139,14 @@ sub wrap_print {
 		wrap_print("$mark $item->[1]");
 	}
 }
+
+sub wrap_print {
+	my ($string) = @_;
+	format STDOUT =
+~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+	$string
+ ~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+	$string
+.
+	write;
+}
