Subversion Repositories gelsvn

Rev

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

Rev 107 Rev 217
Line 36... Line 36...
36 
    foreach my $file ($self->get_component_list($names{$name}, 1)) {
 36 
    foreach my $file ($self->get_component_list($names{$name}, 1)) {
37 
      my($dirname) = $self->mpc_dirname($file);
 37 
      my($dirname) = $self->mpc_dirname($file);
38 
      if ($dirname eq '') {
 38 
      if ($dirname eq '') {
39 
        $dirname = '.';
 39 
        $dirname = '.';
40 
      }
 40 
      }
41 
      elsif ($self->convert_slashes()) {
 41 
      else {
42 
        $dirname = $self->slash_to_backslash($dirname);
 42 
        $dirname =~ s/\//\\/g;
43 
      }
 43 
      }
44 
      $dirnames{$dirname} = 1;
 44 
      $dirnames{$dirname} = 1;
45 
    }
 45 
    }
46 
 
 46 
 
47 
    ## Sort the directories to ensure that '.' comes first
 47 
    ## Sort the directories to ensure that '.' comes first