Changeset 15088


Ignore:
Timestamp:
2008-03-17T14:59:28+13:00 (13 years ago)
Author:
kjdon
Message:

changed reg exp to use split and pop instead due to not working under windows

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r15018 r15088  
    710710    #              a/b/c => c
    711711
    712     my $dirsep = get_dirsep();
    713    
    714     my ($tail) = ($filename =~ m/^(?:.*?$dirsep)?(.*?)$/);
     712    my $dirsep = get_re_dirsep();
     713    my @dirs = split (/$dirsep/, $filename);
     714    my $tail = pop @dirs;
     715
     716    # - caused problems under windows
     717    #my ($tail) = ($filename =~ m/^(?:.*?$dirsep)?(.*?)$/);
    715718
    716719    return $tail;
Note: See TracChangeset for help on using the changeset viewer.