X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FAtom.pm;fp=lib%2FCPANPLUS%2FDist%2FGentoo%2FAtom.pm;h=4166d5cc090d4e1cfc7ed7d665ca2289c037af60;hb=9e50d0a5cd63e13e194009d6fbdedb75e75eaa5e;hp=dd35ad6d8f3cfc67efdbf0e324acc6de1b08187a;hpb=1c1a8d6482b5d4baac0e7aa58c6bf1ceb380c8b9;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

diff --git a/lib/CPANPLUS/Dist/Gentoo/Atom.pm b/lib/CPANPLUS/Dist/Gentoo/Atom.pm
index dd35ad6..4166d5c 100644
--- a/lib/CPANPLUS/Dist/Gentoo/Atom.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Atom.pm
@@ -55,7 +55,7 @@ sub new {
   /[^\w-]/ and Carp::confess('Invalid argument') for $name, $category;
  } elsif (defined $args{atom}) {
   my $atom = $args{atom};
-  $atom =~ m{^(<|<=|=|>=|>)?([\w-]+)/([\w-]+)(?-v?($version_rx))?$}
+  $atom =~ m{^(<|<=|=|>=|>)?([\w-]+)/([\w-]+)(?:-v?($version_rx))?$}
                                                or Carp::confess('Invalid atom');
   ($range, $category, $name, $version) = ($1, $2, $3, $4);
  } else {