Subversion Repositories DevTools

Rev

Rev 391 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 391 Rev 2449
Line 155... Line 155...
155 
    @NewDirs = map { split /\s+/ } @_;
 155 
    @NewDirs = map { split /\s+/ } @_;
156 
    @NewDirs = grep { defined $_ } @NewDirs;
 156 
    @NewDirs = grep { defined $_ } @NewDirs;
157 
 
 157 
 
158 
    foreach my $ThisDir ( @NewDirs )
 158 
    foreach my $ThisDir ( @NewDirs )
159 
    {
 159 
    {
- 
 
 160 
        $ThisDir =~ s~/+$~~;
160 
        Warning ("SubDir contains a '\\' character: $ThisDir" )
 161 
        Warning ("SubDir contains a '\\' character: $ThisDir" )
161 
            if ( $ThisDir =~ m~\\~);
 162 
            if ( $ThisDir =~ m~\\~);
162 
 
 163 
 
163 
        if ( grep /^$ThisDir$/, @::SUBDIRS )
 164 
        if ( grep /^$ThisDir$/, @::SUBDIRS )
164 
        {
 165 
        {