Changeset 16929 for gsdl/trunk/perllib

Timestamp:

2008-08-21T11:10:24+12:00 (16 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.

File:

• gsdl/trunk/perllib/cfgread.pm (modified) (1 diff)

gsdl/trunk/perllib/cfgread.pm

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