Changeset 16929

Show
Ignore:
Timestamp:
21.08.2008 11:10:24 (11 years ago)
Author:
mdewsnip
Message:

Fixed nasty parsing problem with hierarchy files where lines that started with quotes and contained an odd number of single quotes would be merged into the following line.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/cfgread.pm

    r15894 r16929  
    4242    $line =~ s/^\s+//;     # remove initial white space 
    4343    # Merge with following line if a quoted phrase is left un-closed. 
    44     if ($line =~ m/[^\\]([\"\'])/) { 
     44    if ($line =~ m/^([\"\'])/ || $line =~ m/[^\\]([\"\'])/) { 
    4545        my $quote=$1; 
    4646        while ($line !~ m/$quote(.*?[^\\])?(\\\\)*$quote/) {