From a84c2839ce2137d1d9c5d28bd468c578fb3ea1ff Mon Sep 17 00:00:00 2001
From: Dennis Kaarsemaker <dennis@kaarsemaker.net>
Date: Fri, 19 Aug 2011 09:23:00 +0200
Subject: [PATCH] Don't let Module::AutoInstall run interactively

---
 cpanspec | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/cpanspec b/cpanspec
index ebda354..4ed8188 100755
--- a/cpanspec
+++ b/cpanspec
@@ -819,6 +819,7 @@ for my $file (@args) {
 
     # TODO It's possible these need to be listed instead of just detected.
     my $scripts=(grep /^(?:bin|scripts)\//, @files);
+    my $uses_autoinstall = grep /Module\/AutoInstall.pm/, @files;
     my (%build_requires,%requires);
     my ($yml,$meta);
     if (grep /^META\.yml$/, @files
@@ -1115,6 +1116,12 @@ END
 \%build
 END
 
+    if($uses_autoinstall) {
+        print $spec <<END
+export PERL_AUTOINSTALL="--skipdeps"
+END
+    }
+
     if ($usebuildpl) {
         print $spec <<END;
 \%{__perl} Build.PL installdirs=vendor@{[$noarch ? '' : qq{ optimize="$macro{optimize}"} ]}