Ignore:
Timestamp:
1999-10-17T21:47:44+13:00 (25 years ago)
Author:
sjboddie
Message:

fixed a windows specific bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/GMLPlug.pm

    r537 r707  
    7474    return undef unless (-f $fullname && $fullname =~ /\.gml(\.gz)?$/i);
    7575
    76     my ($parent_dir, $gz) = $fullname =~ /^(.*)\/[^\/]+.gml(\.gz)?$/i;
     76    my ($parent_dir, $gz) = $fullname =~ /^(.*?)[\/\\][^\/\\]+.gml(\.gz)?$/i;
    7777
    7878    if (defined $gz && $gz =~ /\.gz/i) {
Note: See TracChangeset for help on using the changeset viewer.