From: H.Merijn Brand <merijn@lx09.procura.nl>
Date: Wed, 7 Sep 2011 16:12:53 +0000 (+0200)
Subject: NAME / DISTNAME in Makefile.PL
X-Git-Tag: v0.14
X-Git-Url: https://repo.or.cz/w/Config-Perl-V.git/commitdiff_plain/37e44f01092fafad6a1c0e2136e256526f6e3e8a

NAME / DISTNAME in Makefile.PL
---

diff --git a/Changelog b/Changelog
index 3ad1858..aae9dec 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,7 @@
 0.14	- 07 Sep 2011, H.Merijn Brand
 
     - Upped copyright to 2011
+    - NAME / DISTNAME in Makefile.PL
 
 0.13	- 07 Sep 2011, H.Merijn Brand
 
diff --git a/Makefile.PL b/Makefile.PL
index b6ac69f..2b49fe6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,7 +7,8 @@ use strict;
 use ExtUtils::MakeMaker;
 
 my %wm = (
-    NAME	  =>   "Config-Perl-V",
+    NAME	  =>   "Config::Perl::V",
+    DISTNAME	  =>   "Config-Perl-V",
     AUTHOR        =>   "H.Merijn Brand <h.m.brand\@xs4all.nl>",
     VERSION_FROM  =>   "V.pm",
     ABSTRACT_FROM =>   "V.pm",
diff --git a/sandbox/genMETA.pm b/sandbox/genMETA.pm
index 7102438..89a34e1 100644
--- a/sandbox/genMETA.pm
+++ b/sandbox/genMETA.pm
@@ -36,6 +36,12 @@ sub version_from
 
 	if ($mf =~ m{\b NAME         \s*=>\s* ["'] (\S+) ['"]}x) {
 	    $self->{name} = $1;
+	    $self->{name} =~ m/-/ and
+		warn "NAME in Makefile.PL contains a -\n";
+	    $self->{name} =~ s/::/-/g;
+	    }
+	if ($mf =~ m{\b DISTNAME     \s*=>\s* ["'] (\S+) ['"]}x) {
+	    $self->{name} = $1;
 	    }
 
 	if ($mf =~ m{\b VERSION_FROM \s*=>\s* ["'] (\S+) ['"]}x) {