From a4785d9f7f8154443b9b943ec22eaacf889a1882 Mon Sep 17 00:00:00 2001
From: ianmacd <>
Date: Wed, 12 Nov 2003 09:19:52 +0000
Subject: [PATCH] - default to file completion in perldoc, if current parameter
 contains   a slash

---
 bash_completion | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bash_completion b/bash_completion
index c0adb299..3ae5358f 100644
--- a/bash_completion
+++ b/bash_completion
@@ -1,6 +1,6 @@
 #   bash_completion - some programmable completion functions for bash 2.05b
 #
-#   $Id: bash_completion,v 1.651 2003/11/12 10:10:52 ianmacd Exp $
+#   $Id: bash_completion,v 1.652 2003/11/12 10:19:52 ianmacd Exp $
 #
 #   Copyright (C) Ian Macdonald <ian@caliban.org>
 #
@@ -4074,6 +4074,9 @@ _perldoc()
 	    COMPREPLY=( $( compgen -W '-h -v -t -u -m -l -F -X -f -q' -- $cur ))
 	    return 0
 	    ;;
+	*/*)
+	    return 0
+	    ;;
 	*)
 	    _perlmodules
 	    COMPREPLY=( ${COMPREPLY[@]} $( compgen -W '$( PAGER=cat man perl 2>/dev/null | sed -ne "/perl.*Perl overview/,/perlwin32/s/^[^a-z0-9]*\([a-z0-9]*\).*$/\1/p")' -- $cur ) )