split status texts with newline when using multiple repos foerste
authorMatthias Förste <foerste@schlittermann.de>
Fri, 08 Jun 2012 09:46:39 +0200
branchfoerste
changeset 48 a1b051269c2e
parent 47 e8f30ec7d962
child 49 da0430f37b87
split status texts with newline when using multiple repos
Logbuch/HG.pm
log.pl
--- a/Logbuch/HG.pm	Fri Jun 08 09:41:46 2012 +0200
+++ b/Logbuch/HG.pm	Fri Jun 08 09:46:39 2012 +0200
@@ -120,7 +120,7 @@
     my $path = $self->get_repo() . "/";
     $result[1] =~ s/^([^\s]+)(\s+)(.*)$/${1}${2}${path}${3}/mg;
 
-    return $result[1];
+    return "$result[1]\n" if $result[1];
 }
 
 
--- a/log.pl	Fri Jun 08 09:41:46 2012 +0200
+++ b/log.pl	Fri Jun 08 09:46:39 2012 +0200
@@ -169,7 +169,7 @@
       ? ""
       : "\n"
       . " Modified config files since last log entry listend below...\n"
-      . $hg_status_text . "\n";
+      . $hg_status_text;
 
     # Kopftext eintragen
     print $fh "Date: ", scalar(localtime()), "\n",