From 804b3d5a24475fd18f3f4a816ce6f58a7d4d41d7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Sep 2004 02:19:11 +0000 Subject: don't allow a broken X configuration to break mouse configuration --- perl-install/mouse.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 52614e10a..959188276 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -438,10 +438,12 @@ sub write_conf { &write($do_pkgs, $mouse); $modules_conf->write if $mouse->{device} eq "usbmouse" && !$::testing; - require Xconfig::xfree; - my $xfree_conf = Xconfig::xfree->read; - set_xfree_conf($mouse, $xfree_conf, $b_keep_auxmouse_unchanged); - $xfree_conf->write; + eval { + require Xconfig::xfree; + my $xfree_conf = Xconfig::xfree->read; + set_xfree_conf($mouse, $xfree_conf, $b_keep_auxmouse_unchanged); + $xfree_conf->write; + } } sub change_mouse_live { -- cgit v1.2.1