Changeset 707 for trunk/gsdl
- Timestamp:
- 1999-10-17T21:47:44+13:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GMLPlug.pm
r537 r707 74 74 return undef unless (-f $fullname && $fullname =~ /\.gml(\.gz)?$/i); 75 75 76 my ($parent_dir, $gz) = $fullname =~ /^(.* )\/[^\/]+.gml(\.gz)?$/i;76 my ($parent_dir, $gz) = $fullname =~ /^(.*?)[\/\\][^\/\\]+.gml(\.gz)?$/i; 77 77 78 78 if (defined $gz && $gz =~ /\.gz/i) {
Note:
See TracChangeset
for help on using the changeset viewer.