--- bin/cpan2rpm	2007-03-01 01:35:31 +0200

+++ bin/cpan2rpm	2007-05-31 18:43:35 +0300

@@ -1172,7 +1172,11 @@

     chomp($_ = qx/$cmd/);

     $_ = (split)[5] unless $zip;

-    $dst .= "/$1" if m|^(\S+)/|;

+    if (-d $dst.'/'.$_) { # many CPAN tarballs has directory w/o trailing /

+	$dst .= "/$_";    # example is VCP-autrijus-snapshot-0.9-20050110.tar.gz

+    } elsif (~m|^(\S+)/|) {

+	$dst .= "/$1";

+    }

     $dst =~ s|/*$||;    # path shouldn't end in / or tardir gets wiped

     $dst =~ s|\./||;    # paths in tarballs shouldn't be relative

     return $dst;