Changeset 3506
- Timestamp:
- 2002-10-29T17:23:42+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/cfgread.pm
r3418 r3506 53 53 $linecontinues = $line =~ s/\\$//; 54 54 55 while ($line =~ s/\s*(\" [^\"]*\"|\'[^\']*\'|\S+)\s*//) {55 while ($line =~ s/\s*(\".*?[^\\]\"|\'.*?[^\\]\'|\S+)\s*//) { 56 56 if (defined $1) { 57 57 # remove any enclosing quotes … … 62 62 $entry =~ s/\$(\w+)/$ENV{$1}/g; 63 63 $entry =~ s/\$\{(\w+)\}/$ENV{$1}/g; 64 65 64 push (@line, $entry); 66 65 } else {
Note:
See TracChangeset
for help on using the changeset viewer.