Changeset 7692
- Timestamp:
- 2004-07-02T09:26:51+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/cfgread.pm
r3507 r7692 42 42 if ($line =~ m/[^\\]([\"\'])/) { 43 43 my $quote=$1; 44 while ($line !~ m/$quote(.*?[^\\])? $quote/) {44 while ($line !~ m/$quote(.*?[^\\])?(\\\\)*$quote/) { 45 45 my $nextline = <$handle>; 46 46 if (defined($nextline)) { … … 54 54 $linecontinues = $line =~ s/\\$//; 55 55 56 while ($line =~ s/\s*(\".*?[^\\] \"|\'.*?[^\\]\'|\S+)\s*//) {56 while ($line =~ s/\s*(\".*?[^\\](\\\\)*\"|\'.*?[^\\](\\\\)*\'|\S+)\s*//) { 57 57 if (defined $1) { 58 58 # remove any enclosing quotes
Note:
See TracChangeset
for help on using the changeset viewer.