|
Lines 1172-1178
Link Here
|
| 1172 |
|
1172 |
|
| 1173 |
chomp($_ = qx/$cmd/); |
1173 |
chomp($_ = qx/$cmd/); |
| 1174 |
$_ = (split)[5] unless $zip; |
1174 |
$_ = (split)[5] unless $zip; |
| 1175 |
$dst .= "/$1" if m|^(\S+)/|; |
1175 |
if (-d $dst.'/'.$_) { # many CPAN tarballs has directory w/o trailing / |
|
|
1176 |
$dst .= "/$_"; # example is VCP-autrijus-snapshot-0.9-20050110.tar.gz |
| 1177 |
} elsif (~m|^(\S+)/|) { |
| 1178 |
$dst .= "/$1"; |
| 1179 |
} |
| 1176 |
$dst =~ s|/*$||; # path shouldn't end in / or tardir gets wiped |
1180 |
$dst =~ s|/*$||; # path shouldn't end in / or tardir gets wiped |
| 1177 |
$dst =~ s|\./||; # paths in tarballs shouldn't be relative |
1181 |
$dst =~ s|\./||; # paths in tarballs shouldn't be relative |
| 1178 |
return $dst; |
1182 |
return $dst; |
