Kaydet (Commit) 9490a557 authored tarafından Michael Meeks's avatar Michael Meeks

further cleanup to tolerate DOS line endings.

Change-Id: I60345ed3eed84ef197bf145f2b26dfa8afdc51b1
üst 19752994
......@@ -431,8 +431,10 @@ sub read_lcidlist
for ( my $i = 0; $i <= $#{$lcidlist}; $i++ )
{
my $line = ${$lcidlist}[$i];
$line =~ s/\#.*$//; # removing comments after "#"
# de-mangle various potential DOS line-ending problems
$line =~ s/\r//g;
$line =~ s/\n//g;
$line =~ s/\s*\#.*$//; # removing comments after "#"
if ( $line =~ /^\s*$/ ) { next; } # this is an empty line
if ( $line =~ /^\s*([\w-]+)\s+(\d+)\s+(\d+)\s*$/ )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment