From 854b6d1446c6a8a1e49d67d3bae3b084ff0bec7a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 27 Oct 2009 10:53:41 +0000 Subject: perl_checker cleanup --- perl-install/standalone/service_harddrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index b441eb662..b92f6304e 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -123,7 +123,7 @@ foreach my $card (@cards) { } else { my @cards = Xconfig::card::probe(); my $driver = $cards[0]{Driver}; - my $old_driver = $1 if cat_('/etc/X11/xorg.conf') =~ /Driver "($card->{xorg_driver_regexp})"/; + my $old_driver = cat_('/etc/X11/xorg.conf') =~ /Driver "($card->{xorg_driver_regexp})"/ && $1; if ($old_driver) { switch_x_driver($card->{xorg_driver_regexp}, $driver, 'proprietary driver not found for current driver'); -- cgit v1.2.1