correctly handle the special case of final newlines in strings,

so wmlxgettext does the right thing
This commit is contained in:
Yann Dirson 2004-10-21 21:14:21 +00:00
parent 7ed54eca5e
commit 932f492915

View file

@ -78,6 +78,7 @@ sub raw2postring {
my $str = shift;
$str =~ s/^(.*)$/"$1\\n"/mg;
$str =~ s/\n$/\n"\\n"/mg;
$str =~ s/\\n\"$/\"\n/g;
return $str;