Skip to content
Browse files

[Configure] change option name to --gen-parrot-option.

Also minor related cleanups

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
  • Loading branch information...
1 parent 2fb96f8 commit db0dd4f2c5dbb99f99df8cb9c29a9ff81b3092e0 @japhb japhb committed with moritz Apr 4, 2009
Showing with 5 additions and 4 deletions.
  1. +5 −4 Configure.pl
View
9 Configure.pl
@@ -8,7 +8,8 @@
MAIN: {
my %options;
- GetOptions(\%options, 'help!', 'parrot-config=s', 'gen-parrot!', 'parrot-opt=s@');
+ GetOptions(\%options, 'help!', 'parrot-config=s',
+ 'gen-parrot!', 'gen-parrot-option=s@');
# Print help if it's requested
if ($options{'help'}) {
@@ -18,7 +19,7 @@
# Update/generate parrot build if needed
if ($options{'gen-parrot'}) {
- my @opts = $options{'parrot-opt'} ? @{$options{'parrot-opt'}} : ();
+ my @opts = @{ $options{'gen-parrot-option'} || [] };
my @command = ($^X, "build/gen_parrot.pl", @opts);
print "Generating Parrot ...\n";
@@ -127,10 +128,10 @@ sub print_help {
General Options:
--help Show this text
--gen-parrot Download and build a copy of Parrot to use
+ --gen-parrot-option='--option=value'
+ Set parrot config option when using --gen-parrot
--parrot-config=(config)
Use configuration information from config
- --parrot-opt='--option=value'
- Set parrot config option when using --gen-parrot
END
return;

0 comments on commit db0dd4f

Please sign in to comment.
Something went wrong with that request. Please try again.