]> git.deb.at Git - deb/packages.git/blobdiff - bin/debtags-xgettext
Replace non working volatile mirror debian.domainmail.org with mirror.csclub.uwaterloo.ca
[deb/packages.git] / bin / debtags-xgettext
index a7f718b39d421fd80d8d68948b2de4e1a2a18b05..91111840870064d6e3c26c1ce0ef0d6c2de010ba 100755 (executable)
@@ -18,7 +18,9 @@ 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  /\\n/g;
+        $text =~ s/\n//g;
         $text =~ s/\t/\\t/g;
         return $text;
 }
@@ -59,6 +61,7 @@ sub processFile {
 
            if ($long) {
                $long = escape($long);
+               $long =~ s/^\s//;
                push (@msgids, $long);
                push (@{$messages->{$long}}, $comment.", long desc", $file);
            }