137 |
-e "$root$file" ? "$root$file" : $file; |
-e "$root$file" ? "$root$file" : $file; |
138 |
} |
} |
139 |
|
|
140 |
sub check_cache_dir { |
sub check_dir { |
141 |
my ($urpm, $dir) = @_; |
my ($urpm, $dir) = @_; |
142 |
-d $dir && ! -l $dir or $urpm->{fatal}(1, N("fail to create directory %s", $dir)); |
-d $dir && ! -l $dir or $urpm->{fatal}(1, N("fail to create directory %s", $dir)); |
143 |
-o $dir && -w $dir or $urpm->{fatal}(1, N("invalid owner for directory %s", $dir)); |
-o $dir && -w $dir or $urpm->{fatal}(1, N("invalid owner for directory %s", $dir)); |
148 |
|
|
149 |
mkdir $dir, 0755; # try to create it |
mkdir $dir, 0755; # try to create it |
150 |
|
|
151 |
check_cache_dir($urpm, $dir); |
check_dir($urpm, $dir); |
152 |
|
|
153 |
mkdir "$dir/partial"; |
mkdir "$dir/partial"; |
154 |
mkdir "$dir/rpms"; |
mkdir "$dir/rpms"; |