X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Fdebtags-xgettext;h=329288b00ab6341bc49c7887fdd9ee9fdc08fbb3;hp=a7f718b39d421fd80d8d68948b2de4e1a2a18b05;hb=be05848488b9d81df046d2adadb671f4ee34315c;hpb=d3634cc475c6de2a95542b8169e22df0ce766d67

diff --git a/bin/debtags-xgettext b/bin/debtags-xgettext
index a7f718b..329288b 100755
--- a/bin/debtags-xgettext
+++ b/bin/debtags-xgettext
@@ -18,7 +18,8 @@ sub escape {
         my $text = shift;
         $text =~ s/\\/\\\\/g;
         $text =~ s/"/\\"/g;
-        $text =~ s/\n/\\n/g;
+        $text =~ s/\n\s*\.\n\s?/\\n/g;
+        $text =~ s/\n//g;
         $text =~ s/\t/\\t/g;
         return $text;
 }
@@ -59,6 +60,7 @@ sub processFile {
 
 	    if ($long) {
 		$long = escape($long);
+		$long =~ s/^\s//;
 		push (@msgids, $long);
 		push (@{$messages->{$long}}, $comment.", long desc", $file);
 	    }