PATCH: _socket and _ports

[Tanaka Akira <akr@xxxxxxxxxxx>]

I found a problem with `socket host <TAB>'.

Index: Completion/User/_ports
===================================================================
RCS file: /projects/zsh/zsh/Completion/User/_ports,v
retrieving revision 1.1.1.4
diff -u -r1.1.1.4 _ports
--- Completion/User/_ports	1999/11/22 12:29:50	1.1.1.4
+++ Completion/User/_ports	1999/12/10 06:31:04
@@ -2,9 +2,9 @@
 
 local expl ports
 
-if ! _style ports ports ports; then
+if ! _style -a ports ports ports; then
   (( $+_cache_ports )) ||
-      : ${(A)ports:=${${(M)${${(f)"$(</etc/services)"}:#\#*}#*/tcp}%%[ 	]*}}
+      : ${(A)_cache_ports:=${${(M)${${(f)"$(</etc/services)"}:#\#*}#*/tcp}%%[ 	]*}}
 
   ports=( "$_cache_ports[@]" )
 fi
Index: Completion/User/_socket
===================================================================
RCS file: /projects/zsh/zsh/Completion/User/_socket,v
retrieving revision 1.1.1.8
diff -u -r1.1.1.8 _socket
--- Completion/User/_socket	1999/11/22 12:29:50	1.1.1.8
+++ Completion/User/_socket	1999/12/10 06:31:04
@@ -48,7 +48,7 @@
 arg2)
   if (( ! $+opt_args[-s] )); then
     _wanted ports expl 'port to connect' &&
-        _combination '' hosts-ports hosts="${line[2]:q}" ports "$expl[@]"
+        _combination '' hosts-ports hosts="${line[1]:q}" ports "$expl[@]"
   fi
   ;;
 esac
-- 
Tanaka Akira