16 lines
537 B
Diff
16 lines
537 B
Diff
|
--- Alien-SDL-1.440/Build.PL.orig 2013-07-18 17:35:04.515696493 +0200
|
||
|
|
+++ Alien-SDL-1.440/Build.PL 2013-07-18 17:37:34.616231291 +0200
|
||
|
|
@@ -208,11 +208,8 @@
|
||
|
|
$prompt_string .= "[" . $i++ . "] " . $c->{title} . "\n";
|
||
|
|
}
|
||
|
|
$prompt_string .= "\nWhat way do you wanna go?";
|
||
|
|
- my $ans = $build->prompt($prompt_string, $recommended_candidate);
|
||
|
|
|
||
|
|
- if($ans > 0 && $ans < scalar(@candidates)) {
|
||
|
|
- $choice = $candidates[$ans - 1];
|
||
|
|
- }
|
||
|
|
+ $choice = $candidates[0];
|
||
|
|
|
||
|
|
$| = 0;
|
||
|
|
} # end else search and prompt for build method
|