chiark
/
gitweb
/
~ian
/
topbloke.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FORMAT: put deps etc. in base branch where we need them
[topbloke.git]
/
tb-list.pl
diff --git
a/tb-list.pl
b/tb-list.pl
index 9b76473b57cce4fffb5f25e2324e982178bd623d..385e031c4fa22c6df28599c1b9d6e0ebe5d72588 100755
(executable)
--- a/
tb-list.pl
+++ b/
tb-list.pl
@@
-168,8
+168,15
@@
eval sortsub()." 1;" or die "$@ ?";
#----- printing -----
my $current_branch = current_branch();
#----- printing -----
my $current_branch = current_branch();
-my $current_patch = $current_branch->{Kind} eq 'tip'
- ? $current_branch->{Fullname} : '';
+my $current_patch = '';
+my $ifcurrent;
+if ($current_branch->{Kind} eq 'tip') {
+ $current_patch = $current_branch->{Fullname};
+ $ifcurrent = '>';
+} elsif ($current_branch->{Kind} eq 'base') {
+ $current_patch = $current_branch->{Fullname};
+ $ifcurrent = '#';
+}
foreach my $p (@output) {
my $v = $patches{$p};
foreach my $p (@output) {
my $v = $patches{$p};
@@
-180,7
+187,7
@@
foreach my $p (@output) {
$msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
? $1 : "[no subject]";
printf("%1s%1s %s\@%s/%s/%-20s %s\n",
$msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
? $1 : "[no subject]";
printf("%1s%1s %s\@%s/%s/%-20s %s\n",
- $p eq $current_patch ?
'>'
: '',
+ $p eq $current_patch ?
$ifcurrent
: '',
$v->{Info}[0]{Deleted} ? 'D' : '',
$pa->{Email}, $pa->{Domain}, $pa->{Date}, $pa->{Nick},
$subject)
$v->{Info}[0]{Deleted} ? 'D' : '',
$pa->{Email}, $pa->{Domain}, $pa->{Date}, $pa->{Nick},
$subject)