From: t0m <t0m@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Mon, 15 Jun 2009 23:54:27 +0000 (+0000)
Subject: Fix warning
X-Git-Tag: 1.006009~70
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b143d045389639ccd7aa236efb67b5cbfe65773e;p=p5sagit%2Flocal-lib.git

Fix warning

git-svn-id: http://dev.catalyst.perl.org/repos/bast/local-lib/1.000/trunk@6688 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Changes b/Changes
index 602cc93..98ee953 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 Revision history for local::lib
 
+        - Fix warning from Makefile.PL about ExtUtils::MakeMaker::prompt (t0m)
         - Set PERL5LIB back to calculated @INC with --self-contained, to stop
           invoking other perl scripts from losing the local::lib if they
           mangle @INC from $ENV{PERL5LIB} (t0m)
diff --git a/Makefile.PL b/Makefile.PL
index 6604eb2..3dea5bf 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -53,7 +53,7 @@ DEATH
     system($^X, '-MCPAN', '-e',
       'my $done; require ExtUtils::MakeMaker;
        my $orig = ExtUtils::MakeMaker->can("prompt");
-       *ExtUtils::MakeMaker::prompt = sub {
+       *ExtUtils::MakeMaker::prompt = sub ($;$) {
          if (!$done && $_[0] =~ /manual configuration/) {
            $done++;
            return "no";