blob: 0c246215e7910ca72cd60045dcfa8dd230081761 (
plain) (
blame)
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
|
--- a/Makefile.PL 2016-06-21 05:50:27.000000000 -0500
+++ b/Makefile.PL 2019-09-16 10:51:28.436352022 -0500
@@ -15,23 +15,7 @@
my $opt= $ARGV[0] ? $ARGV[0] : '';
-if( $opt eq "-n")
- { @programs=(); }
-elsif( $opt eq "-y")
- { @programs= map { $_->[0] } @prompts; }
-elsif( $opt eq "-d")
- { @programs= map { $_->[0] if( $_->[1] eq 'y') } @prompts; }
-elsif( $ENV{AUTOMATED_TESTING} || $ENV{NONINTERACTIVE_TESTING})
- { @programs=(); }
-else
- { print "run 'perl Makefile.PL -y' to install all tools,\n",
- " 'perl Makefile.PL -n' to skip installation\n";
- foreach my $prompt (@prompts)
- { my ($program, $default, $description) = @$prompt;
- if( prompt("Do you want to install '$program' ($description)?", $default) =~ /^y/i)
- { push(@programs, $program); }
- }
- }
+@programs= map { $_->[0] } @prompts;
MyWriteMakefile(
META_MERGE => {
|