From 4033bc27a2a0d49d9de8d55b7bd9424f2148c89c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 22:56:33 +0000 Subject: *** empty log message *** --- perl-install/Xconfig/xfreeX.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm index 1112c2234..f6aa17f78 100644 --- a/perl-install/Xconfig/xfreeX.pm +++ b/perl-install/Xconfig/xfreeX.pm @@ -87,7 +87,7 @@ sub get_devices { map { my $raw_device = $_; my $device = raw_export_section($raw_device, [ 'Identifier', $raw_X->get_device_section_fields ]); - $device->{Options} = raw_export_section($raw_device, [ grep { (deref_array($raw_device->{$_}))[0]{Option} } keys %$raw_device ]); + $device->{Options} = raw_export_section($raw_device, [ grep { (deref_array($raw_device->{$_}))[0]->{Option} } keys %$raw_device ]); $device; } @raw_devices; } -- cgit v1.2.1