summary refs log tree commit diff
diff options
context:
space:
mode:
authorJun-ichi Takimoto <takimoto-j@kba.biglobe.ne.jp>2015-01-22 01:23:18 +0900
committerJun-ichi Takimoto <takimoto-j@kba.biglobe.ne.jp>2015-01-22 01:23:18 +0900
commit102f2aec1e0dd31296a3bba5668b88d0113d2c80 (patch)
tree128397454db524a8c40263e8846c8e8f30846c10
parent0e3548994ee351a317c73c88e6c83e5e9e123f9d (diff)
downloadzsh-102f2aec1e0dd31296a3bba5668b88d0113d2c80.tar.gz
zsh-102f2aec1e0dd31296a3bba5668b88d0113d2c80.tar.xz
zsh-102f2aec1e0dd31296a3bba5668b88d0113d2c80.zip
34327: fix cache identifier used in _cache_invalid
-rw-r--r--ChangeLog5
-rw-r--r--Completion/Unix/Type/_perl_modules2
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index da9547d2f..d99da9d44 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-22  Jun-ichi Takimoto <takimoto-j@kba.biglobe.ne.jp>
+
+	* 34327: _perl_modules: fix cache identifier used in
+	_cache_invalid
+
 2015-01-20  Peter Stephenson  <p.stephenson@samsung.com>
 
 	* 34329: Doc/Zsh/builtins.yo, Src/builtin.c: add -S option
diff --git a/Completion/Unix/Type/_perl_modules b/Completion/Unix/Type/_perl_modules
index 1b61043e7..d27a7f7af 100644
--- a/Completion/Unix/Type/_perl_modules
+++ b/Completion/Unix/Type/_perl_modules
@@ -71,7 +71,7 @@ _perl_modules () {
     perl_modules=_unknown_perl_modules$with_pod
   fi
 
-  if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid $perl_modules ) &&
+  if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid ${perl_modules#_} ) &&
      ! _retrieve_cache ${perl_modules#_};
   then
     if zstyle -t ":completion:${curcontext}:modules" try-to-use-pminst &&