Changeset 16929
- Timestamp:
- 2008-08-21T11:10:24+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cfgread.pm
r15894 r16929 42 42 $line =~ s/^\s+//; # remove initial white space 43 43 # Merge with following line if a quoted phrase is left un-closed. 44 if ($line =~ m/ [^\\]([\"\'])/) {44 if ($line =~ m/^([\"\'])/ || $line =~ m/[^\\]([\"\'])/) { 45 45 my $quote=$1; 46 46 while ($line !~ m/$quote(.*?[^\\])?(\\\\)*$quote/) {
Note:
See TracChangeset
for help on using the changeset viewer.