From 2d35fd6ab0228ce2b698d7778c4ae134d7408a67 Mon Sep 17 00:00:00 2001
From: Felix Rosencrantz <f_rosencrantz@users.sourceforge.net>
Date: Mon, 4 Feb 2002 06:25:35 +0000
Subject: Fixed some problems with _cvs and flags.  Fixed _perl to complete a
 script args with _normal.

---
 Completion/Unix/Command/_cvs  | 8 ++++----
 Completion/Unix/Command/_perl | 3 ++-
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'Completion/Unix/Command')

diff --git a/Completion/Unix/Command/_cvs b/Completion/Unix/Command/_cvs
index fb2d7092e..2e3288798 100644
--- a/Completion/Unix/Command/_cvs
+++ b/Completion/Unix/Command/_cvs
@@ -149,8 +149,8 @@ _cvs_rannotate () {
 _cvs_checkout () {
   # "+ANnk:d:flRpQqcsr:D:j:P"
   _arguments -s \
-    '-A[reset sticky tags, dates and -k]' \
     '-N[don'\''t shorten module paths]' \
+    '-A[reset sticky tags, dates and -k]' \
     '-n[disable checkout program]' \
     '-f[use most recent revision if -D/-r is not matched]' \
     '(-R)-l[don'\''t recursive]' \
@@ -398,8 +398,8 @@ _cvs_log () {
   _arguments -s \
     '-b[default branch]' \
     '(-t)-h[header]' \
-    '(-R)-l[don'\''t recursive]' \
-    '(-l)-R[recursive]' \
+    '-l[don'\''t recurse]' \
+    '-R[Print the name of RCS file in the repository]' \
     '-N[don'\''t list tags]' \
     '(-h)-t[header with descriptive text]' \
     '-d+[specify dates]:dates:' \
@@ -541,8 +541,8 @@ _cvs_unedit () {
 _cvs_update () {
   # "+ApCPflRQqduk:r:D:j:I:W:"
   _arguments -s \
-    '-A[reset sticky tags, dates and -k]' \
     '-C[overwrite local modification]' \
+    '-A[reset sticky tags, dates and -k]' \
     '-p[check out to standard output]' \
     '-P[prune empty directory]' \
     '-f[use head revision]' \
diff --git a/Completion/Unix/Command/_perl b/Completion/Unix/Command/_perl
index d9554e431..29016e333 100644
--- a/Completion/Unix/Command/_perl
+++ b/Completion/Unix/Command/_perl
@@ -31,7 +31,8 @@ _perl () {
     "-V-[print perl configuration information]:configuration keys:_perl_config_vars" \
     '-w[TURN WARNINGS ON FOR COMPILATION OF YOUR SCRIPT. Recommended.]' \
     '-x-[strip off text before #!perl line and perhaps cd to directory]:directory to cd to:_files -/' \
-    '*:Perl script:_files -/ -g \*.p\[ml\]'
+    '1:Perl script:_files -/ -g \*.p\[ml\]' \
+    '*::args: _normal' 
 }
 
 _perl_m_opt () {
-- 
cgit 1.4.1