0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

oops, do not drop all line-endings allogether !

Browse source
This commit is contained in:
Yann Dirson 2004-11-09 00:34:35 +00:00
parent 08cee34459
commit 31aee272d6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
utils/wmlxgettext
View file

@ -42,7 +42,7 @@ foreach my $file (@ARGV) {
$translatable = ($1 ne '');
$_ = $2;
if (m/(.*)\r/) { $_ = $1; }
if (m/(.*)\r/) { $_ = "$1\n"; }
$str = $_;
$line = $.;
@ -62,7 +62,7 @@ foreach my $file (@ARGV) {
} elsif (defined $str) {
# part of multi-line
if (m/(.*)\r/) { $_ = $1; }
if (m/(.*)\r/) { $_ = "$1\n"; }
$str .= $_;
} elsif (m/(\S+)\s*=\s*(.*?)\s*$/) {