diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-03-17 00:13:36 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-12-25 10:33:21 +0100 |
| commit | 0d73d737911a2b3b2dc543c690d4878c6a4d0cf2 (patch) | |
| tree | 940925693c6421a22aea97aebf5483fdabab3709 /perl-install | |
| parent | 560f9ca983d743cc42701c24546ac8c2080a13fe (diff) | |
| download | drakx-0d73d737911a2b3b2dc543c690d4878c6a4d0cf2.tar drakx-0d73d737911a2b3b2dc543c690d4878c6a4d0cf2.tar.gz drakx-0d73d737911a2b3b2dc543c690d4878c6a4d0cf2.tar.bz2 drakx-0d73d737911a2b3b2dc543c690d4878c6a4d0cf2.tar.xz drakx-0d73d737911a2b3b2dc543c690d4878c6a4d0cf2.zip | |
Getopt::Long enables us to further simplify
let's regroup options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/install2.pm | 6 |
1 files changed, 2 insertions, 4 deletions
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(<STDIN>)) }, - 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}, |