From 5a08b6763c4a2efd6da24fc7a3d0149618e086ea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 22:40:00 +0000
Subject: make perl_checker happy again (replacing "{xx}->{yy}" by "{xx}{yy}")

---
 perl-install/Xconfig/various.pm | 1 +
 perl-install/Xconfig/xfreeX.pm  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/Xconfig')

diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index 0089acd30..e24416e01 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -4,6 +4,7 @@ use diagnostics;
 use strict;
 
 use Xconfig::card;
+use Xconfig::default;
 use Xconfig::resolution_and_depth;
 use common;
 use any;
diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm
index f6aa17f78..1112c2234 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