From 0d73d737911a2b3b2dc543c690d4878c6a4d0cf2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 17 Mar 2015 00:13:36 +0100 Subject: Getopt::Long enables us to further simplify let's regroup options --- perl-install/install/install2.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 81b91fa4c..bf4a21420 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -551,9 +551,8 @@ sub parse_args { 'vga=s' => sub { $o->{vga} = $_[1] =~ /0x/ ? hex($_[1]) : $_[1] }, 'display=s' => \$o->{display}, askdisplay => sub { print "Please enter the X11 display to perform the install on ? "; $o->{display} = chomp_(scalar()) }, - text => sub { $o->{interactive} = "curses" }, + 'newt|text' => sub { $o->{interactive} = "curses" }, stdio => sub { $o->{interactive} = "stdio" }, - newt => sub { $o->{interactive} = "curses" }, simple_themes => \$o->{simple_themes}, 'theme=s' => \$o->{theme}, doc => \$o->{doc}, #- will be used to know that we're running for the doc team, @@ -566,11 +565,10 @@ sub parse_args { testing => \$::testing, patch => \$patch, 'defcfg=s' => \$cfg, - 'kickstart=s' => \$::auto_install, + 'auto_install|kickstart=s' => \$::auto_install, local_install => \$::local_install, uml_install => sub { $::uml_install = $::local_install = 1 }, - 'auto_install=s' => \$::auto_install, # debugging options: useless_thing_accepted => \$o->{useless_thing_accepted}, -- cgit v1.2.1