From e1fe756d146dbc5e739e867c89ab2c35aeac8de1 Mon Sep 17 00:00:00 2001
From: Bart Schaefer <barts@users.sourceforge.net>
Date: Tue, 4 Jul 2000 16:16:34 +0000
Subject: 12160: Cause compdump to fail early if it won't be able to write the
 file.

---
 Completion/Core/compdump | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Completion')

diff --git a/Completion/Core/compdump b/Completion/Core/compdump
index de998bbd2..ba65d1501 100644
--- a/Completion/Core/compdump
+++ b/Completion/Core/compdump
@@ -21,6 +21,8 @@ typeset _d_file _d_f _d_bks _d_line _d_als _d_files
 _d_file=${_comp_dumpfile-${0:h}/compinit.dump}.$HOST.$$
 [[ $_d_file = //* ]] && _d_file=${_d_file[2,-1]}
 
+[[ -w ${_d_file:h} ]] || return 1
+
 _d_files=( ${^~fpath:/.}/^([^_]*|*~|*.zwc)(N) )
 
 if [[ -n "$_comp_secure" ]]; then
-- 
cgit 1.4.1