From 43728af423f98499e6e7c55480ead524452fadbc Mon Sep 17 00:00:00 2001
From: David Paleino <dapal@debian.org>
Date: Mon, 2 May 2011 18:37:49 +0200
Subject: [PATCH] Get rid of BASH_COMPLETION_DIR and
 BASH_COMPLETION_HELPERS_DIR

---
 bash_completion  | 14 ++++++--------
 completions/perl |  4 ++--
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/bash_completion b/bash_completion
index 9be04a10..1459d2cc 100644
--- a/bash_completion
+++ b/bash_completion
@@ -40,10 +40,8 @@ fi
 # Alter the following to reflect the location of this file.
 #
 [ -n "$BASH_COMPLETION" ] || BASH_COMPLETION=/usr/share/bash-completion/bash_completion
-[ -n "$BASH_COMPLETION_DIR" ] || BASH_COMPLETION_DIR=/usr/share/bash-completion/completions
-[ -n "$BASH_COMPLETION_HELPERS_DIR" ] || BASH_COMPLETION_HELPERS_DIR=/usr/share/bash-completion/helpers
 [ -n "$BASH_COMPLETION_COMPAT_DIR" ] || BASH_COMPLETION_COMPAT_DIR=/etc/bash_completion.d
-readonly BASH_COMPLETION BASH_COMPLETION_DIR BASH_COMPLETION_HELPERS_DIR BASH_COMPLETION_COMPAT_DIR
+readonly BASH_COMPLETION BASH_COMPLETION_COMPAT_DIR
 
 # Set a couple of useful vars
 #
@@ -1824,11 +1822,11 @@ if [[ -d $BASH_COMPLETION_COMPAT_DIR && -r $BASH_COMPLETION_COMPAT_DIR && \
             && -f $i && -r $i ]] && . "$i"
     done
 fi
-if [[ $BASH_COMPLETION_DIR != $BASH_COMPLETION_COMPAT_DIR && \
-    -d $BASH_COMPLETION_DIR && -r $BASH_COMPLETION_DIR && \
-    -x $BASH_COMPLETION_DIR ]]; then
-    for i in $(LC_ALL=C command ls "$BASH_COMPLETION_DIR"); do
-        i=$BASH_COMPLETION_DIR/$i
+if [[ "${BASH_COMPLETION%/*}/completions" != $BASH_COMPLETION_COMPAT_DIR && \
+    -d "${BASH_COMPLETION%/*}/completions" && -r "${BASH_COMPLETION%/*}/completions" && \
+    -x "${BASH_COMPLETION%/*}/completions" ]]; then
+    for i in $(LC_ALL=C command ls "${BASH_COMPLETION%/*}/completions"); do
+        i="${BASH_COMPLETION%/*}/completions/$i"
         [[ ${i##*/} != @($_backup_glob|Makefile*) \
             && -f $i && -r $i ]] && . "$i"
     done
diff --git a/completions/perl b/completions/perl
index eb1b4b28..e8334e33 100644
--- a/completions/perl
+++ b/completions/perl
@@ -5,7 +5,7 @@ have perl || return
 _perlmodules()
 {
     COMPREPLY=( $( compgen -P "$prefix" -W \
-        "$( ${1:-perl} $BASH_COMPLETION_HELPERS_DIR/perl modules $cur )" \
+        "$( ${1:-perl} ${BASH_COMPLETION%/*}/helpers/perl modules $cur )" \
         -- "$cur" ) )
     __ltrim_colon_completions "$prefix$cur"
 }
@@ -13,7 +13,7 @@ _perlmodules()
 _perlfunctions()
 {
     COMPREPLY=( $( compgen -P "$prefix" -W \
-        "$( ${1:-perl} $BASH_COMPLETION_HELPERS_DIR/perl functions $cur )" \
+        "$( ${1:-perl} ${BASH_COMPLETION%/*}/helpers/perl functions $cur )" \
         -- "$cur" ) )
 }