diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig/card.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 27d1583c5..f7ed0fe8c 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -84,8 +84,8 @@ sub from_raw_X { my ($xfree3_server) = readlink("$::prefix/etc/X11/X") =~ /XF86_(.*)/; my $card = { - use_UTAH_GLX => (any { /glx/ } $raw_X->{xfree3}->get_modules), - use_DRI_GLX => (any { /dri/ } $raw_X->{xfree4}->get_modules), + use_UTAH_GLX => eval { any { /glx/ } $raw_X->{xfree3}->get_modules }, + use_DRI_GLX => eval { any { /dri/ } $raw_X->{xfree4}->get_modules }, server => $xfree3_server, prefer_xf3 => $xfree3_server && !$force_xf4, %$device, |