install-scripts.patch 1.21 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
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
Andreas Tille's avatar
Andreas Tille committed
13
@@ -27,7 +27,8 @@ my $build = Module::Build->new(
14 15 16 17 18 19 20 21 22
                            },
     get_options         => {
                             accept  => { },
-                            network => { }
+                            network => { },
+                            install_scripts => { }
                            },
     auto_features       => {
                             Network => {
Andreas Tille's avatar
Andreas Tille committed
23
@@ -42,7 +43,7 @@ my $build = Module::Build->new(
24 25 26 27 28 29
 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');
Andreas Tille's avatar
Andreas Tille committed
30
     
31
     my $script_build = File::Spec->catdir($build->blib, 'script');