allow wmlxgettext to extract several strings from a single input line
This commit is contained in:
parent
2bf0d4171c
commit
b35fbd6b2e
1 changed files with 8 additions and 0 deletions
|
@ -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 .= $_;
|
||||
|
|
Loading…
Add table
Reference in a new issue