blob: de4464655b0b15ff56c14fd3bd2de25e4e8a7ef4 (
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
28
29
30
31
32
33
34
35
36
37
|
--- Build.PL.orig 2015-02-21 19:53:18 UTC
+++ Build.PL
@@ -7,10 +7,6 @@ use Config;
use My::Utility qw(check_config_script check_prebuilt_binaries check_prereqs_libs check_prereqs_tools $source_packs
check_perl_buildlibs);
-use Getopt::Long;
-my ( $ans, $travis ) = 0;
-GetOptions( "travis" => \$travis );
-
print "Welcome to Alien::SDL module installation\n";
print "-----------------------------------------\n";
print "checking operating system... $^O\n";
@@ -215,23 +211,6 @@ else {
$prompt_string .= "[" . $i++ . "] " . $c->{title} . "\n";
}
-
- # select option '1' for travis
- if ( defined $travis and $travis == 1 ) {
- $ans = 1;
- }
-
-# or prompt user for build option
- else {
- $prompt_string .= "\nWhat way do you wanna go?";
- $ans = $build->prompt( $prompt_string, $recommended_candidate );
- }
-
- if($ans > 0 && $ans < scalar(@candidates)) {
- $choice = $candidates[$ans - 1];
- }
-
- $| = 0;
} # end else search and prompt for build method
#### store build params into 'notes'
|
