From d7d8b2b206f50f44ef5bcad4091efc585da8c9be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Wed, 17 Feb 2010 19:57:32 +0200
Subject: Include *.pl, *.pm, and *.pod files in perldoc completions.

---
 CHANGES      | 6 +++---
 contrib/perl | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/CHANGES b/CHANGES
index a6cdaafa..1ce2fccd 100644
--- a/CHANGES
+++ b/CHANGES
@@ -26,9 +26,9 @@ bash-completion (2.x)
   * Apply pine completion to alpine too.
   * Remove many unnecessary short option completions where long ones exist.
   * Improve chsh, chgrp, chown, configure, cvs, gkrellm, gzip, lftp, look,
-    make, mdadm, modprobe, mplayer, mysqladmin, rsync, screen, service, scp,
-    ssh, sshfs, update-alternatives, vncviewer, yp-tools, and general hostname
-    completions.
+    make, mdadm, modprobe, mplayer, mysqladmin, perldoc, rsync, screen,
+    service, scp, ssh, sshfs, update-alternatives, vncviewer, yp-tools, and
+    general hostname completions.
   * Add abook and wtf completion, based on work by Raphaël Droz.
   * Add cvsps, dragon, fusermount, jarsigner, k3b, lftpget, pm-utils, rtcwake,
     pack200, unpack200, pbzip2, pbunzip2, pbzcat, pigz and unpigz completions.
diff --git a/contrib/perl b/contrib/perl
index ab8877b0..7169add7 100644
--- a/contrib/perl
+++ b/contrib/perl
@@ -114,9 +114,10 @@ _perldoc()
                 sed -ne "/perl.*Perl overview/,/perlwin32/p" | \
                 awk "\$NF=2 { print \$1}" | command grep perl )' -- "$cur" ) )
         fi
+        _filedir '@(pl|PL|pm|PM|pod|POD)'
     fi
 }
-complete -F _perldoc -o default perldoc
+complete -F _perldoc -o bashdefault perldoc
 }
 
 # Local variables:
-- 
cgit v1.2.1