View | Details | Raw Unified | Return to bug 11937
Collapse All | Expand All

(-)bin/cpan2rpm (-1 / +5 lines)
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;

Return to bug 11937