|
|
Author: particle
Date: Sat Jul 26 09:45:20 2008
New Revision: 398
Modified:
mod_parrot/branches/configure/lib/ModParrot/Configure/Options.pm
Log:
[config] i don't care about valid options atm
Modified: mod_parrot/branches/configure/lib/ModParrot/Configure/Options.pm
==============================================================================
--- mod_parrot/branches/configure/lib/ModParrot/Configure/Options.pm
(original)
+++ mod_parrot/branches/configure/lib/ModParrot/Configure/Options.pm Sat Jul
26 09:45:20 2008
@@ -6,23 +6,10 @@
use base qw( Exporter );
our @EXPORT_OK = qw(
process_options
- get_valid_options
);
-sub get_valid_options {
- return qw(ask bindir cage cc ccflags ccwarn cgoto cxx datadir
- debugging define exec-prefix execcapable floatval gc help icu-config
- icudatadir icuheaders icushared includedir infodir inline intval
- jitcapable ld ldflags lex libdir libexecdir libs link linkflags
- localstatedir m make maintainer mandir miniparrot nomanicheck
- oldincludedir opcode ops optimize parrot_is_shared pmc prefix profile
- sbindir sharedstatedir step sysconfdir test verbose verbose-step
- version without-gdbm without-gmp without-icu yacc);
-}
-
sub process_options {
my $optionsref = shift;
- my @valid_opts = get_valid_options();
$optionsref->{argv} = []
unless defined $optionsref->{argv};
$optionsref->{script} = q{Configure.pl}
@@ -37,10 +24,6 @@
$key = 'help' unless defined $key;
$value = 1 unless defined $value;
- unless ( grep $key eq $_, @valid_opts ) {
- die qq/Invalid option $key. See "perl Configure.pl --help" for
valid options\n/;
- }
-
for ($key) {
if ( $key =~ m/version/ ) {
print_version_info($optionsref);
@@ -217,14 +200,11 @@
'$Id: Options.pm 18995 2007-06-14 03:30:24Z jkeenan $',
} );
- @valid_options = get_valid_options();
-
=head1 DESCRIPTION
ModParrot::Configure::Options exports on demand two subroutines:
C<process_options()>, which processes the command-line options provided to
-F<Configure.pl>; and C<get_valid_options()>, which returns the list of
-currently valid options.
+F<Configure.pl>.
If you provide F<Configure.pl> with either C<--help> or C<--version>,
C<process_options()> will print out the appropriate message and perform a
|
|