From: H.Merijn Brand <merijn@lx09.procura.nl>
Date: Wed, 7 Sep 2011 16:13:26 +0000 (+0200)
Subject: NAME / DISTNAME in Makefile.PL
X-Git-Tag: v0.36
X-Git-Url: https://repo.or.cz/w/Data-Peek.git/commitdiff_plain/09c2141fe885b0f58ba03856371962590cc106ba

NAME / DISTNAME in Makefile.PL
---

diff --git a/ChangeLog b/ChangeLog
index 816bbad..0c1c3a3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-07 0.36 - H.Merijn Brand   <h.m.brand@xs4all.nl>
+
+    * NAME / DISTNAME in Makefile.PL
+
 2011-09-07 0.35 - H.Merijn Brand   <h.m.brand@xs4all.nl>
 
     * More cross-checks for META data
diff --git a/Makefile.PL b/Makefile.PL
index e6706f0..0f9bc6a 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,7 +8,8 @@ use strict;
 use ExtUtils::MakeMaker;
 
 my %wm = (
-    NAME         => "Data-Peek",
+    NAME         => "Data::Peek",
+    DISTNAME     => "Data-Peek",
     ABSTRACT     => "Extended/Modified debugging utilities",
     AUTHOR       => "H.Merijn Brand <h.merijn\@xs4all.nl>",
     VERSION_FROM => "Peek.pm",
diff --git a/Peek.pm b/Peek.pm
index 37d2e24..22d10c1 100644
--- a/Peek.pm
+++ b/Peek.pm
@@ -6,7 +6,7 @@ use warnings;
 use DynaLoader ();
 
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION   = "0.35";
+$VERSION   = "0.36";
 @ISA       = qw( DynaLoader Exporter );
 @EXPORT    = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump
 		 DDual DGrow );
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) {