PATCH: Small changes to _cvs & _perl

[Felix Rosencrantz <f_rosencrantz@yahoo.com>]

[-- Attachment #1: Type: text/plain, Size: 405 bytes --]

This patch fixes the "_cvs/arguments/-A" problem on the _cvs side reported in
zsh-workers:16376.  There is a minor fix for "cvs log -R" which is not
"recursive".

Also, I've made a change to _perl to complete the arguments for a perl script
with _normal.

-FR


__________________________________________________
Do You Yahoo!?
Great stuff seeking new owners in Yahoo! Auctions! 
http://auctions.yahoo.com

[-- Attachment #2: Patch_CVS_PERL.txt --]
[-- Type: text/plain, Size: 939 bytes --]

Index: zsh/Completion/Unix/Command/_cvs
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Command/_cvs,v
retrieving revision 1.9
diff -r1.9 _cvs
152d151
<     '-A[reset sticky tags, dates and -k]' \
153a153
>     '-A[reset sticky tags, dates and -k]' \
401,402c401,402
<     '(-R)-l[don'\''t recursive]' \
<     '(-l)-R[recursive]' \
---
>     '-l[don'\''t recurse]' \
>     '-R[Print the name of RCS file in the repository]' \
544d543
<     '-A[reset sticky tags, dates and -k]' \
545a545
>     '-A[reset sticky tags, dates and -k]' \
Index: zsh/Completion/Unix/Command/_perl
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Command/_perl,v
retrieving revision 1.3
diff -r1.3 _perl
34c34,35
<     '*:Perl script:_files -/ -g \*.p\[ml\]'
---
>     '1:Perl script:_files -/ -g \*.p\[ml\]' \
>     '*::args: _normal'