From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 13 Dec 2013 13:29:33 +0000 (+0100)
Subject: Pass the correct NAME attribute to our dummy EUMM invocation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b3e39473d9f38d9f5c97b6a162a95d99163c656;p=dbsrgits%2FDBIx-Class-Historic.git

Pass the correct NAME attribute to our dummy EUMM invocation
---

diff --git a/Makefile.PL b/Makefile.PL
index 32f04c6..23e120f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -156,9 +156,14 @@ if ($Module::Install::AUTHOR  and ! $ENV{MAKELEVEL}) {
 
   # We need the MM facilities to generate the pieces for the final MM run.
   # Just instantiate a throaway object here
+  #
+  # Also EUMM and MI disagree on what is the format of Meta->name, just
+  # punt here until a new M::I is shipped (if at all)
+  my $name = Meta->name || die 'The Module::Install metadata must be available at this point but is not - did you rearrange the Makefile.PL...?';
+  $name =~ s/\-/::/g;
   my $mm_proto = ExtUtils::MakeMaker->new({
     NORECURS => 1,
-    NAME => Meta->name || die 'The Module::Install metadata must be available at this point but is not - did you rearrange the Makefile.PL...?',
+    NAME => $name,
   });
 
   # Crutch for DISTBUILDING_IN_HELL