From e9ea24da4256078d965c699d5b026820caf8bbd6 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 1 Sep 2008 16:33:00 +0000 Subject: keep full kernel version and use another variable for kernel major --- perl-install/standalone/service_harddrake | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 7264b9bd4..8c6464a1a 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -28,10 +28,10 @@ my $modules_conf = modules::any_conf->read; my $isLaptop = detect_devices::isLaptop(); my $curr_kernel = c::kernel_version(); -$curr_kernel =~ s/(^\d+\.\d+).*/$1/; +my ($kernel_major) = $curr_kernel =~ /(^\d+\.\d+).*/; my %previous_kernel_config = getVarsFromSh("$hw_sysconfdir/kernel"); -setVarsInSh("$hw_sysconfdir/kernel", { KERNEL => $curr_kernel, IS_LAPTOP => bool2text($isLaptop) }); +setVarsInSh("$hw_sysconfdir/kernel", { KERNEL => $kernel_major, IS_LAPTOP => bool2text($isLaptop) }); my %cfg = getVarsFromSh("$hw_sysconfdir/service.conf"); # autoreconfigure laptop-dependent services when switching from laptop to desktop, and vice versa @@ -139,7 +139,7 @@ foreach my $hw_class (@harddrake::data::tree) { @added || @was_removed or $cfg{"DETECT_$Ident"} ne 'force' and next; - next if $Ident eq 'MOUSE' && $curr_kernel ne $previous_kernel_config{KERNEL} && $cfg{"DETECT_$Ident"} ne 'force'; + next if $Ident eq 'MOUSE' && $kernel_major ne $previous_kernel_config{KERNEL} && $cfg{"DETECT_$Ident"} ne 'force'; my @configurator_pool; if (harddrake::data::is_auto_configurable_class($Ident)) { -- cgit v1.2.1