19387: add (-.) glob qualifier to globs where only files are directly applicable

4 files changed, 6 insertions, 6 deletions

diff --git a/Completion/Linux/Command/_losetup b/Completion/Linux/Command/_losetup
index 16b726c8e..ff18681f1 100644
--- a/Completion/Linux/Command/_losetup
+++ b/Completion/Linux/Command/_losetup
@@ -10,5 +10,5 @@ _arguments -S \
   '(-d --delete --detach -o --offset)'{-o,--offset}'+[specify data start is offset]:offset (bytes)' \
   '(-d --delete --detach -p --pass-fd)'{-p,--pass-fd}'+[read passphrase from specified file descriptor]:file descriptor:_file_descriptors' \
   '(-d --delete --detach -k --keybits)'{-k,--keybits}'+[set the number of bits to use in key]:key size:(64 128 160 192 256)' \
-  '1:device:_files -g loop\*' \
+  '1:device:_files -g "loop*(-.)"' \
   '(-d --delete --detach)2:file:_files'
diff --git a/Completion/Linux/Command/_mondo b/Completion/Linux/Command/_mondo
index 3d3a6d09c..047a04129 100644
--- a/Completion/Linux/Command/_mondo
+++ b/Completion/Linux/Command/_mondo
@@ -26,7 +26,7 @@ _arguments -C \
   '-F[do not create floppy]' \
   '-H[create autorestore image]' \
   '-L[use lzo instead of bzip2]' \
-  '-P[post-nuke tarball]:post-nuke tarball:_files -g "*.(#i)(tar.gz|tgz)"' \
+  '-P[post-nuke tarball]:post-nuke tarball:_files -g "*.(#i)(tar.gz|tgz)(-.)"' \
   '-S[scratch directory]:scratch directory:_files -/' \
   '-T[temporary directory]:temporary directory:_files -/' \
   '-f[device with MBR]:device with MBR:_files -g "*(%b)"' \
diff --git a/Completion/Linux/Command/_pkgtool b/Completion/Linux/Command/_pkgtool
index 146467d36..5ec95469c 100644
--- a/Completion/Linux/Command/_pkgtool
+++ b/Completion/Linux/Command/_pkgtool
@@ -10,7 +10,7 @@ case "$service" in
       "-ask[always ask on package installation regardless of package's priority]" \
       '-priority[provide a priority for the entire package list to use]:priority list:(ADD REC OPT SKP)' \
       '-tagfile[specify a different file to use for package priorities]:tagfile:_files -/' \
-      '*:package file:_files -g \*.tgz'
+      '*:package file:_files -g "*.tgz(-.)"'
   ;;
 
   removepkg)
@@ -27,11 +27,11 @@ case "$service" in
       '--install-new[install new packages in addition to upgrading existing ones]' \
       '--reinstall[upgrade even when the same version is already installed]' \
       '--verbose[show all the gory details of the upgrade]' \
-      '*:package file:_files -g \*.tgz'
+      '*:package file:_files -g "*.tgz(-.)"'
   ;;
 
   explodepkg)
-    _wanted file expl 'package file' _files -g \*.tgz
+    _wanted file expl 'package file' _files -g '*.tgz(-.)'
   ;;
 
   makepkg)
diff --git a/Completion/Linux/Command/_uml b/Completion/Linux/Command/_uml
index 5c62f6234..1a5619f74 100644
--- a/Completion/Linux/Command/_uml
+++ b/Completion/Linux/Command/_uml
@@ -5,7 +5,7 @@ typeset -A opt_args
 
 case $service in
   uml_moo)
-    _arguments '1:COW file:_files -g \*cow\*' '2:new backing file:_files'
+    _arguments '1:COW file:_files -g "*cow*(-.)"' '2:new backing file:_files'
     return
   ;;
   uml_switch)