r24668 - in /scripts/KGB: TODO client/KGB_sendcommit

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Aug 27 13:41:08 2008
New Revision: 24668

URL: http://svn.debian.org/wsvn/?sc=1&rev=24668
Log:
shorten the (M+) flags, stick paths to the flags to avoid wrapping

Modified:
    scripts/KGB/TODO
    scripts/KGB/client/KGB_sendcommit

Modified: scripts/KGB/TODO
URL: http://svn.debian.org/wsvn/scripts/KGB/TODO?rev=24668&op=diff
==============================================================================
--- scripts/KGB/TODO (original)
+++ scripts/KGB/TODO Wed Aug 27 13:41:08 2008
@@ -20,11 +20,6 @@
                  /trunk/libuniversal-isa-perl/t/basic.t (M+ ) 
                  /trunk/libuniversal-isa-perl/Changes) New upstream release
 
-* make the modification flags ("(M+ )") 'stick' to the file name so that
-  wrapping does not leave the flags and the files on different lines (as
-  above)
-* Investigate what the "+" means in the flags and why there is a
-  trailing space before the closing paren
 * highlight branch name
 * 14:58 < sgran> can you split one message per line?
   14:59 < dam> sgran: you mean, one message for each file changed, plus one 

Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=24668&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Wed Aug 27 13:41:08 2008
@@ -82,9 +82,10 @@
 	} elsif($k == $SVN::Fs::PathChange::delete) {
 		$k = "D";
 	}
-	my $pm = $changed->{$_}->prop_mod() ? "+" : " ";
-	my $tm = $changed->{$_}->text_mod() ? "+" : " ";
-	push @changed, "($k$tm$pm) $_";
+	my $pm = $changed->{$_}->prop_mod() ? "+" : "";
+	my $tm = $changed->{$_}->text_mod() ? "+" : "";
+        $k = "" unless $tm or $k = "A";
+	push @changed, "($k$pm)$_";
 }
 #utf8::encode($aut);
 #utf8::encode($log);