NAME / DISTNAME in Makefile.PLv0.14
authorH.Merijn Brand <merijn@lx09.procura.nl>
Wed, 7 Sep 2011 16:12:53 +0000 (7 18:12 +0200)
committerH.Merijn Brand <merijn@lx09.procura.nl>
Wed, 7 Sep 2011 16:12:53 +0000 (7 18:12 +0200)
Changelog
Makefile.PL
sandbox/genMETA.pm

index 3ad1858..aae9dec 100644 (file)
--- 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
 
index b6ac69f..2b49fe6 100644 (file)
@@ -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",
index 7102438..89a34e1 100644 (file)
@@ -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) {