Forwarded: https://redmine.open-bio.org/issues/3254
From 4d1fe98b390c67170d0d23325de5ccd8fdc6ea1a Mon Sep 17 00:00:00 2001
From: Charles Plessy <plessy@debian.org>
Date: Sat, 18 Jun 2011 12:43:21 +0900
Subject: [PATCH] New --install_scripts option to request script installation non-interactively.

---
 Build.PL |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

--- a/Build.PL
+++ b/Build.PL
@@ -27,7 +27,8 @@ my $build = Module::Build->new(
                            },
     get_options         => {
                             accept  => { },
-                            network => { }
+                            network => { },
+                            install_scripts => { }
                            },
     auto_features       => {
                             Network => {
@@ -42,7 +43,7 @@ my $build = Module::Build->new(
 my $accept = $build->args->{accept};
 
 # Optionally have script files installed.
-if ($accept ? 0 : $build->y_n("Install scripts? y/n", 'n')) {
+if ($build->args('install_scripts') or $accept ? 0 : $build->y_n("Install scripts? y/n", 'n')) {
     my $files = $build->_find_file_by_type('PLS', 'scripts');
     
     my $script_build = File::Spec->catdir($build->blib, 'script');
