From 7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 4 Nov 2002 18:52:47 +0000 Subject: have an empty configuration when a config file is buggy --- perl-install/Xconfig/xfree.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index 583229f4b..89b06a61f 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -13,8 +13,8 @@ use log; #- files are optional sub read { my ($class, $xfree3_file, $xfree4_file) = @_; - bless { xfree3 => Xconfig::xfree3->read($xfree3_file), - xfree4 => Xconfig::xfree4->read($xfree4_file) }, $class; + bless { xfree3 => eval { Xconfig::xfree3->read($xfree3_file) } || [], + xfree4 => eval { Xconfig::xfree4->read($xfree4_file) } || [] }, $class; } #- files are optional sub write { -- cgit v1.2.1