fixed lookup of multiline strings on import

This commit is contained in:
Yann Dirson 2004-08-09 20:55:54 +00:00
parent 420406da77
commit 7492ccf2a0
2 changed files with 2 additions and 1 deletions

View file

@ -92,6 +92,7 @@ sub po2rawstring {
$line =~ m/"(.*)"/;
$str .= $1;
}
$str =~ s/\\n/\n/gm;
return $str;
}

View file

@ -31,7 +31,7 @@ foreach my $file (@ARGV) {
die "nested string in $file" if defined $str;
$translatable = ($1 ne '');
$str = $2 . "\n";
$str = $2;
$line = $.;
} elsif (m/(.*)\"\s*(?:\#.*)?$/) {