[Libreoffice-commits] .: Branch 'libreoffice-3-5' - 2 commits - bin/lo-commit-stat

[Petr Mladek]

 bin/lo-commit-stat |   11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

New commits:
commit 4801fd38822297981b5b04108ba5adea22f7b78e
Author: Petr Mladek <pmladek at suse.cz>
Date:   Wed Jun 13 12:55:13 2012 +0200

    lo-commit-stat: really print the piece title into the log file
    
    perl is really funny; the file handle can't be delimited by a comma
    
    Change-Id: I49661d784ec3a10134e448800a3b81343e6748b1

diff --git a/bin/lo-commit-stat b/bin/lo-commit-stat
index d6b7846..d2b6d85 100755
--- a/bin/lo-commit-stat
+++ b/bin/lo-commit-stat
@@ -243,7 +243,7 @@ sub print_summary_in_stat($$$$$$)
 
     # print piece title if not done yet
     if ( defined ${$ppiece_title} ) {
-        print $log, "${$ppiece_title}\n";
+        print $log "${$ppiece_title}\n";
         ${$ppiece_title} = undef;
     }
 
commit 4e5deb16a5172faaeb235a24fe4ac84d70345370
Author: Thorsten Behrens <tbehrens at suse.com>
Date:   Wed Jun 13 11:20:47 2012 +0200

    No need for fancy string formatting, use plain print
    
    Change-Id: I6886664951e76ce66c991f3657751f79e7896f0b
    Signed-off-by: Petr Mladek <pmladek at suse.cz>

diff --git a/bin/lo-commit-stat b/bin/lo-commit-stat
index 1a8e6bb..d6b7846 100755
--- a/bin/lo-commit-stat
+++ b/bin/lo-commit-stat
@@ -80,9 +80,6 @@ sub standardize_summary($)
         my $first_char = lc($1);
         $line =~ s/^./$first_char/;
     }
-    # print does not like 0% or so
-    $line =~ s/%/%%/g;
-    
 
     # FIXME: remove do at the end of line
     #        remove bug numbers
@@ -246,7 +243,7 @@ sub print_summary_in_stat($$$$$$)
 
     # print piece title if not done yet
     if ( defined ${$ppiece_title} ) {
-        printf $log "${$ppiece_title}\n";
+        print $log, "${$ppiece_title}\n";
         ${$ppiece_title} = undef;
     }
 
@@ -261,7 +258,7 @@ sub print_summary_in_stat($$$$$$)
         $authors = " [" . join (", ", keys %{$pauthors}) . "]";
     }
 
-    printf $log $prefix . $summary . $bugs . $authors . "\n";
+    print $log $prefix, $summary, $bugs, $authors, "\n";
 }
 
 sub print_stat($$)
@@ -363,7 +360,7 @@ sub print_bugs($$$)
             $authors = " [" . join (", ", keys %{$bugs{$bug}{'author'}}) . "]";
         }
 
-        printf $log "%s %s%s\n", $convert_func->($bug), $summary, $authors;
+        print $log $convert_func->($bug), " ", $summary, $authors, "\n";
     }
 }
 
@@ -381,7 +378,7 @@ sub print_bugnumbers($$)
         }
     }
 
-    printf $log join ("\n", sort { $a cmp $b } keys %bugs) . "\n";
+    print $log join ("\n", sort { $a cmp $b } keys %bugs), "\n";
 }
 
 ########################################################################