fix leading whitespaces in log messages
authorStefan Metzmacher <metze@samba.org>
Fri, 21 Dec 2007 12:19:21 +0000 (13:19 +0100)
committerStefan Metzmacher <metze@samba.org>
Fri, 21 Dec 2007 12:19:21 +0000 (13:19 +0100)
metze

SVN2GitPatch.pm

index 3f65cbc..cb74ee2 100644 (file)
@@ -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;
 }