From 36a43be36a784802cfdb26bb73928272f8c374b4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Dec 2011 19:54:45 +0000 Subject: (to_raw_X) simplify (N.B.: not found by perl_checker :-( ) --- lib/Xconfig/card.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Xconfig') diff --git a/lib/Xconfig/card.pm b/lib/Xconfig/card.pm index 8f2c680..133dd08 100644 --- a/lib/Xconfig/card.pm +++ b/lib/Xconfig/card.pm @@ -60,7 +60,7 @@ sub to_raw_X { my @cards = ($card, @{$card->{cards} || []}); foreach (@cards) { - if (arch() =~ /ppc/ && ($_->{Driver} eq 'r128' || $_->{Driver} eq 'radeon')) { + if (arch() =~ /ppc/ && member($_->{Driver}, qw(r128 radeon))) { $_->{UseFBDev} = 1; } } -- cgit v1.2.1