diff options
| author | Florian Pritz <bluewind@xinu.at> | 2013-05-21 11:09:47 +0200 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2013-05-21 11:09:47 +0200 |
| commit | d6b1d8ad7996e7b39d8dbb0ae4e38b2e14ad7b62 (patch) | |
| tree | 058bd9928816d3825090798941a933db842acde8 | |
| parent | 60cb01f9a81c311f914aed4a23e8e5b35e965918 (diff) | |
| download | bin-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>
| -rwxr-xr-x | module-to-dist.pl | 2 |
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); } |