From: Vincent Pit <vince@profvince.com>
Date: Fri, 27 Nov 2009 16:15:01 +0000 (+0100)
Subject: C::D::G::Maps::version_c2g ought to return undef for undef
X-Git-Tag: v0.09~16
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=1c081d8b9a6c65ece91fa1363a4bdd9e49b00a37;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

C::D::G::Maps::version_c2g ought to return undef for undef
---

diff --git a/lib/CPANPLUS/Dist/Gentoo/Maps.pm b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
index d4a3fe6..3365a0f 100644
--- a/lib/CPANPLUS/Dist/Gentoo/Maps.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
@@ -79,6 +79,8 @@ Converts a CPAN version to a Gentoo version.
 sub version_c2g {
  my ($v) = @_;
 
+ return unless defined $v;
+
  $v =~ y/-/_/;
  $v =~ y/0-9._//cd;