--- Gentoo/CPAN.pm	2010-03-24 21:58:46.000000000 +0100
+++ Gentoo/CPAN.pm	2010-04-10 17:48:17.000000000 +0200
@@ -214,6 +214,7 @@
     # While we're at it, get the ${S} dir for the ebuld ;)
     $self->{'cpan'}{ lc($module_name) }{'portage_sdir'} = $pack->{build_dir};
     $self->{'cpan'}{ lc($module_name) }{'portage_sdir'} =~ s{.*/}{}xmsg;
+    $self->{'cpan'}{ lc($module_name) }{'portage_sdir'} =~ s{(-[\d._]+)-\w+$}{$1};
     # If name is bundle::, then scan the bundle's deps, otherwise findep it
     if (lc($module_name) =~ m{^bundle\::})
     {