summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-25 11:13:08 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-25 11:13:08 +0000
commit1c9c0d9b22f44304ba85e57115843a1a4862b13e (patch)
tree22d9405e08c9c9efbcf46abdfecd85aa2677d77c /perl-install/standalone
parent76bd5da4ba4140e2473deaf3c85b8d57f2dd7998 (diff)
downloaddrakx-backup-do-not-use-1c9c0d9b22f44304ba85e57115843a1a4862b13e.tar
drakx-backup-do-not-use-1c9c0d9b22f44304ba85e57115843a1a4862b13e.tar.gz
drakx-backup-do-not-use-1c9c0d9b22f44304ba85e57115843a1a4862b13e.tar.bz2
drakx-backup-do-not-use-1c9c0d9b22f44304ba85e57115843a1a4862b13e.tar.xz
drakx-backup-do-not-use-1c9c0d9b22f44304ba85e57115843a1a4862b13e.zip
killer feature: restore bootsplash mode
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/service_harddrake5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 4b96856eb..3e82ca661 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -61,6 +61,8 @@ $previous_config = $$previous_config if ref($previous_config) !~ /HASH/;
my (%config, $wait);
my $in;
my $splash = -f '/proc/splash';
+my $splash_was_silent = cat_('/proc/splash') =~ /, silent : on/;
+
# For each hw, class, detect device, compare and offer to reconfigure if needed
foreach my $hw_class (@harddrake::data::tree) {
my ($Ident, $item, $configurator, $detector, $do_it) = @$hw_class{qw(class string configurator detector checked_on_boot)};
@@ -180,5 +182,8 @@ foreach my $hw_class (@harddrake::data::tree) {
log::explanations("created file $last_boot_config");
Storable::store(\%config, $last_boot_config);
+# restore bootsplash mode
+$splash_was_silent and eval { output('/proc/splash', 'silent') };
+
$in->exit(0) if $in;