summaryrefslogtreecommitdiff
path: root/make/console.pm
diff options
context:
space:
mode:
authorAttila Molnar <attilamolnar@hush.com>2015-03-23 00:54:40 +0100
committerAttila Molnar <attilamolnar@hush.com>2015-03-23 00:54:40 +0100
commitaaae660fee19a56c752bdec84da86c4b1e779af0 (patch)
tree56ecaeab588acc4afdbdf1ec4b1c1acdc21364e7 /make/console.pm
parente1e7ab0a18100d7e2cde0eb8d787f6ce1f958643 (diff)
parent214c6bc5254c94aa7f7ab49e3462728fb7be9d2a (diff)
Merge pull request #1005 from SaberUK/master+minor-tweaks
Various changes mainly relating to the build system.
Diffstat (limited to 'make/console.pm')
-rw-r--r--make/console.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/make/console.pm b/make/console.pm
index 9be5ef47c..045df8a70 100644
--- a/make/console.pm
+++ b/make/console.pm
@@ -80,13 +80,13 @@ sub prompt_bool($$$) {
return $answer =~ /y/i;
}
-sub prompt_dir($$$) {
- my ($interactive, $question, $default) = @_;
+sub prompt_dir($$$;$) {
+ my ($interactive, $question, $default, $create_now) = @_;
my ($answer, $create);
do {
$answer = rel2abs(prompt_string($interactive, $question, $default));
$create = prompt_bool($interactive && !-d $answer, "$answer does not exist. Create it?", 'y');
- if ($create) {
+ if ($create && $create_now) {
my $mkpath = eval {
mkpath($answer, 0, 0750);
return 1;