Changeset 15088

Show
Ignore:
Timestamp:
17.03.2008 14:59:28 (11 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

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;