diff options
author | Olivier Blin <oblin@mandriva.com> | 2008-09-01 16:33:20 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2008-09-01 16:33:20 +0000 |
commit | 6dc106922858a67429f64a898c4ac5999b4afaae (patch) | |
tree | 96b1d7f33d9bde977555b92a771f070c60bd2f11 /perl-install | |
parent | e9ea24da4256078d965c699d5b026820caf8bbd6 (diff) | |
download | drakx-backup-do-not-use-6dc106922858a67429f64a898c4ac5999b4afaae.tar drakx-backup-do-not-use-6dc106922858a67429f64a898c4ac5999b4afaae.tar.gz drakx-backup-do-not-use-6dc106922858a67429f64a898c4ac5999b4afaae.tar.bz2 drakx-backup-do-not-use-6dc106922858a67429f64a898c4ac5999b4afaae.tar.xz drakx-backup-do-not-use-6dc106922858a67429f64a898c4ac5999b4afaae.zip |
read harddrake config earlier
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/service_harddrake | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 8c6464a1a..ee5997fc9 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -24,6 +24,15 @@ my $last_boot_config = "$hw_sysconfdir/previous_hw"; $last_boot_config .= '_X11' if $invert_do_it; +# first run ? if not read old hw config +my $previous_config; +if (-f $last_boot_config && -s $last_boot_config) { + eval { $previous_config = Storable::retrieve($last_boot_config) }; + log::explanations("resetting previous hardware file ($@)") if $@; +} +$previous_config ||= {}; +$previous_config = $$previous_config if ref($previous_config) !~ /HASH/; + my $modules_conf = modules::any_conf->read; my $isLaptop = detect_devices::isLaptop(); @@ -83,17 +92,6 @@ foreach my $card (@cards) { my $is_globetrotter = -f '/usr/sbin/mdkmove'; -# first run ? if not read old hw config -my $previous_config; - -if (-f $last_boot_config && -s $last_boot_config) { - eval { $previous_config = Storable::retrieve($last_boot_config) }; - log::explanations("resetting previous hardware file ($@)") if $@; -} - -$previous_config ||= {}; - -$previous_config = $$previous_config if ref($previous_config) !~ /HASH/; my (%config, $wait); my $in; my $splash = -f '/proc/splash'; |