r24712 - /scripts/KGB/server/KGB

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Aug 29 07:22:06 UTC 2008


Author: dmn
Date: Fri Aug 29 07:22:04 2008
New Revision: 24712

URL: http://svn.debian.org/wsvn/?sc=1&rev=24712
Log:
reorganize log message - msg first, followed by file list

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=24712&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Fri Aug 29 07:22:04 2008
@@ -297,12 +297,12 @@
         $path_string = join(' ', @$paths);
     }
 
-
-    my @string = ("\002$repo_id\017: \00303$author\017 * r\002$rev\017 " .
-        "(files: \00310$path_string\017) $log[0]");
+    my $repo_head = "\002$repo_id\017:";
+    my @string = "$repo_head \00303$author\017 * r\002$rev\017 $log[0]";
     foreach(1..$#log) {
-        push @string, "\002$repo_id\017: $log[$_]";
-    }
+        push @string, "$repo_head $log[$_]";
+    }
+    push @string, "$repo_head \00310$path_string\017";
     my @tmp;
     # Standard says 512 (minus \r\n), anyway that's further trimmed when
     # resending to clients because of prefix.




More information about the Pkg-perl-cvs-commits mailing list