Subversion Repositories gelsvn

Rev

Rev 68 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 21... Line 21...
21 
  my($dir)  = shift;
 21 
  my($dir)  = shift;
22 
 
 22 
 
23 
  ## $(...) could contain a drive letter and Windows can not
 23 
  ## $(...) could contain a drive letter and Windows can not
24 
  ## make a directory that resembles a drive letter.  So, we have
 24 
  ## make a directory that resembles a drive letter.  So, we have
25 
  ## to exclude those directories with $(...).
 25 
  ## to exclude those directories with $(...).
26 
  if ($dir =~ /\$\([^\)]+\)/ || $dir =~ /\.\.\\/) {
 26 
  if ($dir =~ /\$\([^\)]+\)/ || $dir =~ /\.\.\\/ || $dir =~ /^[A-Z]:/i) {
27 
    return '.';
 27 
    return '.';
28 
  }
 28 
  }
29 
  else {
 29 
  else {
30 
    return $dir;
 30 
    return $dir;
31 
  }
 31 
  }