summaryrefslogtreecommitdiffstats
path: root/module-to-dist.pl
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2013-05-21 11:09:47 +0200
committerFlorian Pritz <bluewind@xinu.at>2013-05-21 11:09:47 +0200
commitd6b1d8ad7996e7b39d8dbb0ae4e38b2e14ad7b62 (patch)
tree058bd9928816d3825090798941a933db842acde8 /module-to-dist.pl
parent60cb01f9a81c311f914aed4a23e8e5b35e965918 (diff)
downloadbin-d6b1d8ad7996e7b39d8dbb0ae4e38b2e14ad7b62.tar.gz
bin-d6b1d8ad7996e7b39d8dbb0ae4e38b2e14ad7b62.tar.xz
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>
Diffstat (limited to 'module-to-dist.pl')
-rwxr-xr-xmodule-to-dist.pl2
1 files changed, 1 insertions, 1 deletions
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);
}