From d6b1d8ad7996e7b39d8dbb0ae4e38b2e14ad7b62 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Tue, 21 May 2013 11:09:47 +0200
Subject: module-to-dist.pl: always convert - to ::

test case: Boost::Geometry::Utils was Boost::Geometry-Utils before this
patch

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 module-to-dist.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module-to-dist.pl')

diff --git a/module-to-dist.pl b/module-to-dist.pl
index 8783bf8..9d099d3 100755
--- a/module-to-dist.pl
+++ b/module-to-dist.pl
@@ -21,7 +21,7 @@ sub cpan_provider
     my $dist = $cpanpath;
     $dist =~ s{\A.+/}{};    # remove author directory
     $dist =~ s{-[^-]+\z}{}; # remove version and extension
-	$dist =~ s/-/::/;
+	$dist =~ s/-/::/g;
     return ($dist eq 'perl' ? undef : $dist);
 }
 
-- 
cgit v1.2.3-24-g4f1b