From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-12152-mason-zsh=primenet.com.au@sunsite.auc.dk>
Received: (qmail 1341 invoked from network); 3 Jul 2000 21:03:42 -0000
Received: from sunsite.auc.dk (130.225.51.30)
  by ns1.primenet.com.au with SMTP; 3 Jul 2000 21:03:41 -0000
Received: (qmail 22382 invoked by alias); 3 Jul 2000 21:03:30 -0000
Mailing-List: contact zsh-workers-help@sunsite.auc.dk; run by ezmlm
Precedence: bulk
X-No-Archive: yes
X-Seq: 12152
Received: (qmail 22374 invoked from network); 3 Jul 2000 21:03:29 -0000
Date: Mon, 3 Jul 2000 22:03:27 +0100
From: Adam Spiers <adam@spiers.net>
To: zsh workers mailing list <zsh-workers@sunsite.auc.dk>
Subject: PATCH: _perl tweak
Message-ID: <20000703220327.A10204@thelonious.new.ox.ac.uk>
Reply-To: Adam Spiers <adam@spiers.net>
Mail-Followup-To: zsh workers mailing list <zsh-workers@sunsite.auc.dk>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Mailer: Mutt 1.0.1i
X-Home-Page: http://www.new.ox.ac.uk/~adam/
X-OS: RedHat Linux

Index: Completion/User/_perl
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/User/_perl,v
retrieving revision 1.2
diff -u -r1.2 _perl
--- Completion/User/_perl	2000/05/31 09:38:26	1.2
+++ Completion/User/_perl	2000/07/03 20:59:46
@@ -31,7 +31,7 @@
     "-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 \*.pl'
+    '*:Perl script:_files -/ -g \*.p\[ml\]'
 }
 
 _perl_m_opt () {