Changeset 23346


Ignore:
Timestamp:
11/26/10 09:43:00 (11 years ago)
Author:
davidb
Message:

Mistake in handling last directory separator fixed

File:
1 edited

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" ) {
Note: See TracChangeset for help on using the changeset viewer.