From 1c9c0d9b22f44304ba85e57115843a1a4862b13e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 25 Aug 2004 11:13:08 +0000 Subject: killer feature: restore bootsplash mode --- perl-install/standalone/service_harddrake | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'perl-install/standalone/service_harddrake') 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; -- cgit v1.2.1