debtags-xgettext: Handle linebreaks (and other whitespace) a little more sanely

[deb/packages.git] / bin / debtags-xgettext

diff --git a/bin/debtags-xgettext b/bin/debtags-xgettext
index a7f718b39d421fd80d8d68948b2de4e1a2a18b05..329288b00ab6341bc49c7887fdd9ee9fdc08fbb3 100755 (executable)
--- 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);
            }