From 9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 2 Dec 2002 20:41:44 +0000 Subject: use output_with_perm() --- perl-install/mouse.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 8ba23f7c4..cc164e38e 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -383,8 +383,7 @@ sub various_xfree_conf { if ($mouse->{nbuttons} <= 5) { unlink($f); } else { - output_p($f, "xmodmap -e 'pointer = 1 2 3 6 7 4 5'\n"); - chmod 0755, $f; + output_with_perm($f, 0755, "xmodmap -e 'pointer = 1 2 3 6 7 4 5'\n"); } } { @@ -393,8 +392,7 @@ sub various_xfree_conf { unlink($f); } else { $in->do_pkgs->install('xinput'); - output_p($f, "xinput set-button-map Mouse2 1 2 3 6 7 4 5\n"); - chmod 0755, $f; + output_with_perm($f, 0755, "xinput set-button-map Mouse2 1 2 3 6 7 4 5\n"); } } } -- cgit v1.2.1