Changeset 23346

Show
Ignore:
Timestamp:
26.11.2010 09:43:00 (8 years ago)
Author:
davidb
Message:

Mistake in handling last directory separator fixed

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • test-collections/trunk/filename-encodings/bin/script/dirlist.pl

    r23325 r23346  
    11#!/usr/bin/perl -w 
     2 
     3use strict; 
    24 
    35 
     
    3941    my $dirsep = ($^O =~ /mswin/i) ? "\\" : "/"; 
    4042 
    41     $dirsep =~ s@$dirsep$@@; 
     43    # Remove trailing directory separator 
     44    # (will be explicitly added in later on) 
     45    $f =~ s@$dirsep$@@; 
    4246 
    4347    if ( -e "$dir$dirsep$f" ) {