From 37eeb68f5460b8a53aa472c84354c5914c81b73a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Mar 2004 14:17:48 +0000 Subject: catch exception (bugzilla #8726) --- perl-install/Xconfig/card.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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, -- cgit v1.2.1