From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 22:20:22 +0000 Subject: - replace ... =~ 'foo' with ... =~ /foo/ - remove unneeded parentheses for things like ... if (...) --- perl-install/Xconfig/card.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/Xconfig/card.pm') diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 3d2f472eb..870ba3f22 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -521,7 +521,7 @@ sub check_bad_card { $bad_card ||= $card->{Driver} eq 'i810' || $card->{Driver} eq 'fbdev'; $bad_card ||= $card->{Driver} eq 's3virge' if $::live; $bad_card ||= $card->{Driver} eq 'nvidia' if !$::isStandalone; #- avoid testing during install at any price. - $bad_card ||= $card->{server} =~ 'FBDev|Sun' if !using_xf4($card); + $bad_card ||= $card->{server} =~ /FBDev|Sun/ if !using_xf4($card); log::l("the graphics card does not like X in framebuffer") if $bad_card; -- cgit v1.2.1