Don't try to look for a version if none was passed to _cpan2portage

[perl/modules/CPANPLUS-Dist-Gentoo.git] / lib / CPANPLUS / Dist / Gentoo.pm

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index dc35d0bb52eabe2c42402c4437755f83b770cdae..c2380648fb8a0ae5994e1c944698958a4b44c6f4 100644 (file)
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -365,10 +365,11 @@ sub create {
 }
 
 sub _cpan2portage {
- my ($self, $name, $ver) = @_;
+ my ($self, $name, $version) = @_;
 
  $name = CPANPLUS::Dist::Gentoo::Maps::name_c2g($name);
- $ver  = CPANPLUS::Dist::Gentoo::Maps::version_c2g($ver);
+ my $ver;
+ $ver = CPANPLUS::Dist::Gentoo::Maps::version_c2g($version) if defined $version;
 
  my @portdirs = ($main_portdir, @{$self->status->portdir_overlay});