Changeset 3507

Timestamp:

2002-10-29T17:50:25+13:00 (22 years ago)

Author:

jrm21

Message:

updated to also allow '..."foo" ...' as the enclosing quotes (for multi-line)
as this seems to have been previously allowed.

File:

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

trunk/gsdl/perllib/cfgread.pm

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