1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
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');
|
