From efed1e6c10daba9ea4260845a91f518f573ec1d3 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sun, 31 Aug 2008 12:35:36 +0000
Subject: users/13162: strip ~ suffix from modules

---
 ChangeLog                       | 5 +++++
 Completion/Unix/Command/_module | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 04f57c296..c65e2fed7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-31  Peter Stephenson  <p.w.stephenson@ntlworld.com>
+
+	* users/13162: Completion/Unix/Command/_module: strip
+	"~" suffix from modules.
+
 2008-08-30  Clint Adams  <clint@zsh.org>
 
 	* 25553: Completion/Zsh/Command/_precommand:
diff --git a/Completion/Unix/Command/_module b/Completion/Unix/Command/_module
index e220a94e8..65e29430a 100644
--- a/Completion/Unix/Command/_module
+++ b/Completion/Unix/Command/_module
@@ -85,7 +85,7 @@ _module_available_modules()
 {
   if [[ -n $MODULEPATH ]] && [[ ${+_available_modules} -eq 0 ]]
   then
-    _available_modules=($(find ${(e)=MODULEPATH//:/ } -xtype f -print 2>/dev/null | grep -v \\.version | sed -e 's,\('${${(e)=MODULEPATH//:/\/\\\|}%\\\|}'\),,g' -e 's,^/*,,g'))
+    _available_modules=(${$(find ${(e)=MODULEPATH//:/ } -xtype f -print 2>/dev/null | grep -v \\.version | sed -e 's,\('${${(e)=MODULEPATH//:/\/\\\|}%\\\|}'\),,g' -e 's,^/*,,g'):#*\~})
   fi
 }
 
-- 
cgit v1.2.3