Add support for "config.default" file to hold default arguments to Co…

…nfigure.pl.
rakudo · Jun 9, 2011 · 0579b56 · 0579b56
1 parent b3f66e1
commit 0579b56
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -48,3 +48,4 @@ lib/DateTime/strftime.pir
 lib/Safe.pir
 rakudo_test_run.tar.gz
 config.status
+config.default
diff --git a/Configure.pl b/Configure.pl
@@ -4,6 +4,7 @@
 use 5.008;
 use strict;
 use warnings;
+use Text::ParseWords;
 use Getopt::Long;
 use Cwd;
 use lib "tools/lib";
@@ -16,6 +17,10 @@
 my $uclang = uc $lang;
 
 MAIN: {
+    if (-r "config.default") {
+        unshift @ARGV, shellwords(slurp('config.default'));
+    }
+
     my %config;
     my $config_status = "${lclang}_config_status";
     $config{$config_status} = join(' ', map { "\"$_\""} @ARGV);