fix leading whitespaces in log messages

metze

diff --git a/SVN2GitPatch.pm b/SVN2GitPatch.pm
index 3f65cbc947fe0af8810f3a88e24a997888fd93c4..cb74ee2a1e4b5938bc0696ea54811ad03cd8839d 100644 (file)
--- a/SVN2GitPatch.pm
+++ b/SVN2GitPatch.pm
@@ -125,7 +125,15 @@ sub svn2git_log($$)
 {
        my ($self, $in) = @_;
 
-       my $out = $in;
+       my @tmp = split("\n", $in);
+
+       while (1){
+               my $l = $tmp[0];
+               last unless $l =~ /^[ \t]*$/;
+               shift(@tmp);
+       }
+
+       my $out = join("\n", @tmp);
 
        return $out;
 }