[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    CVSROOT
From:       Dirk Mueller <mueller () kde ! org>
Date:       2002-12-08 21:59:57
[Download RAW message or body]

CVS commit by mueller: 

allow binner to spam kde-cvs again :-)


  M +4 -2      loginfo.pl   1.84


--- CVSROOT/loginfo.pl  #1.83:1.84
@@ -136,4 +136,5 @@ sub commit_diff($$$$)
   }
   close(RCS);
+  $diff .= "\n" if (length($diff));
   return $diff;
 }
@@ -289,9 +290,10 @@ foreach my $d (@outlist) {
   my $current = $basedir . "/$d";
   $current = $1 if ($current =~ /^(.*)\/[^\/]+$/);
+  $current = $1 if ($current =~ /^([^\/]+\/[^\/]+)\//);
   $dirs{$current} = 1;
 }
-my $commit_list = join(' ', keys %dirs);
+my $commit_list = join(' ', (sort { $dirs{$b} <=> $dirs{$a} } keys %dirs));
 my $commit_dirs = "";
-$commit_dirs = "\nX-Commit-Directories: $commit_list" if (length($commit_list));
+$commit_dirs = "\nX-Commit-Directories: " . substr($commit_list, 0, 512) if (length($commit_list));
 
 my $blame = "$author <kde-cvs\@mail.kde.org>";

[prev in list] [next in list] [prev in thread] [next in thread]