allow wmlxgettext to extract several strings from a single input line

This commit is contained in:
Yann Dirson 2004-09-05 16:23:22 +00:00
parent 2bf0d4171c
commit b35fbd6b2e

View file

@ -28,6 +28,10 @@ foreach my $file (@ARGV) {
push @{$messages{raw2postring($2)}}, "$file:$."
if ($1 ne ''); # ie. translatable
# process remaining of the line
$_ = $3;
redo LINE;
} elsif (!defined $str and m/^(?:[^\"]*?)((?:_\s*)?)\s*\"([^\"]*)/) {
# start of multi-line
@ -45,6 +49,10 @@ foreach my $file (@ARGV) {
if $translatable;
$str = undef;
# process remaining of the line
$_ = $2;
redo LINE;
} elsif (defined $str) {
# part of multi-line
$str .= $_;