diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-04 18:52:47 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-04 18:52:47 +0000 |
commit | 7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a (patch) | |
tree | 7a95498bdea029c559ceace58f09e30719d4daab | |
parent | ead06eb55004bc197f37c4f4a68230b40186a291 (diff) | |
download | drakx-7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a.tar drakx-7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a.tar.gz drakx-7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a.tar.bz2 drakx-7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a.tar.xz drakx-7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a.zip |
have an empty configuration when a config file is buggy
-rw-r--r-- | perl-install/Xconfig/xfree.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 { |