From db0dd4f2c5dbb99f99df8cb9c29a9ff81b3092e0 Mon Sep 17 00:00:00 2001
From: Geoffry Broadwell <geoff@broadwell.org>
Date: Sat, 4 Apr 2009 18:19:29 +0200
Subject: [PATCH] [Configure] change option name to --gen-parrot-option.

Also minor related cleanups

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
---
 Configure.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Configure.pl b/Configure.pl
index 6e24616a3db..0d98d59999f 100644
--- a/Configure.pl
+++ b/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;