diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
| commit | d004436dc848800c9d65b90e39c39836c4d44cdf (patch) | |
| tree | b37bdcac9dad762a2b692076522785a83533c5f6 /perl-install/install2.pm | |
| parent | 1dc94110fc837dbe6cf06806f60c207ab1b64e83 (diff) | |
| download | drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.gz drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.bz2 drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.xz drakx-d004436dc848800c9d65b90e39c39836c4d44cdf.zip | |
no_comment
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 24489c54e..12007e28d 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -5,7 +5,7 @@ use diagnostics; use strict; use Data::Dumper; -use vars qw($o); +use vars qw($o $version); #-###################################################################################### #- misc imports @@ -33,6 +33,7 @@ use install_steps_interactive; #-###################################################################################### #- Steps table #-###################################################################################### +$::VERSION = "7.0"; my (%installSteps, @orderedInstallSteps); { @@ -384,11 +385,11 @@ sub configureNetwork { if ($o->{isUpgrade} && !$clicked) { $o->{netc} or $o->{netc} = {}; - add2hash($o->{netc}, { network::read_conf("$o->{prefix}/etc/sysconfig/network") }) if -r "$o->{prefix}/etc/sysconfig/network"; - add2hash($o->{netc}, { network::read_resolv_conf("$o->{prefix}/etc/resolv.conf") }) if -r "$o->{prefix}/etc/resolv.conf"; + add2hash($o->{netc}, network::read_conf("$o->{prefix}/etc/sysconfig/network")) if -r "$o->{prefix}/etc/sysconfig/network"; + add2hash($o->{netc}, network::read_resolv_conf("$o->{prefix}/etc/resolv.conf")) if -r "$o->{prefix}/etc/resolv.conf"; foreach (all("$o->{prefix}/etc/sysconfig/network-scripts")) { - if (/ifcfg-(\w*)/) { - push @{$o->{intf}}, { network::read_conf("$o->{prefix}/etc/sysconfig/network-scripts/$_") }; + if (/ifcfg-(\w+)/) { + push @{$o->{intf}}, { getVarsFromSh("$o->{prefix}/etc/sysconfig/network-scripts/$_") }; } } } @@ -576,7 +577,7 @@ sub main { #- } #- needed very early for install_steps_gtk - eval { $o->{mouse} ||= mouse::detect() } unless $o->{nomouseprobe}; + eval { ($o->{mouse}, $o->{wacom}) = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse}; $::o = $o = $::auto_install ? install_steps_auto_install->new($o) : |