NAME / DISTNAME in Makefile.PLv0.36
authorH.Merijn Brand <merijn@lx09.procura.nl>
Wed, 7 Sep 2011 16:13:26 +0000 (7 18:13 +0200)
committerH.Merijn Brand <merijn@lx09.procura.nl>
Wed, 7 Sep 2011 16:13:26 +0000 (7 18:13 +0200)
ChangeLog
Makefile.PL
Peek.pm
sandbox/genMETA.pm

index 816bbad..0c1c3a3 100644 (file)
--- 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
index e6706f0..0f9bc6a 100644 (file)
@@ -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 (file)
--- 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 );
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) {