[Libreoffice-commits] dev-tools.git: scripts/aoo-annotate.pl

Michael Meeks michael.meeks at suse.com
Wed Feb 27 04:57:17 PST 2013


 scripts/aoo-annotate.pl |   18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

New commits:
commit 0bb3bbeff956c1a24d1c317e3999dc761d7cecb9
Author: Michael Meeks <michael.meeks at suse.com>
Date:   Wed Feb 27 12:56:37 2013 +0000

    more output & some cleanup.

diff --git a/scripts/aoo-annotate.pl b/scripts/aoo-annotate.pl
index 781bd26..5a32736 100755
--- a/scripts/aoo-annotate.pl
+++ b/scripts/aoo-annotate.pl
@@ -74,10 +74,10 @@ sub dump_breakdown($)
     }
 
     print STDERR "$annotated annotations of $rev_count commits\n";
-    print STDERR "with an initial block of $contiguous annotation\n";
     for my $stem (sort { $frequency{$b} <=> $frequency{$a} } keys %frequency) {
 	print STDERR "$frequency{$stem}\t$stem\n";
     }
+    print STDERR "contiguous annotations: $contiguous\n";
 }
 
 sub usage()
@@ -120,15 +120,13 @@ if (!defined $git_dir) {
 
 my $revs = read_log($git_dir);
 
-if (!$stats) {
-    print STDERR "Commits:\n";
-    for my $rev (@{$revs}) {
-	my $note = $rev->{note};
-	chomp ($note);
-	my $has_note = ($note ne "");
-	my $printit = $all || ($has_note && $notes) || (!$has_note && !$notes);
-	print "$rev->{hash}\t$rev->{note}\n" if ($printit);
-    }
+print STDERR "Commits:\n";
+for my $rev (@{$revs}) {
+    my $note = $rev->{note};
+    chomp ($note);
+    my $has_note = ($note ne "");
+    my $printit = $all || ($has_note && $notes) || (!$has_note && !$notes);
+    print "$rev->{hash}\t$rev->{note}\t$rev->{name}\t$rev->{subject}\n" if ($printit);
 }
 
 if ($stats == 1) {


More information about the Libreoffice-commits mailing list