# HG changeset patch
# User Meredith Howard <mhoward@roomag.org>
# Date 1562465362 14400
# Node ID d6a54f86ab10fe1406ac5102987a147b5ac6c1b6
# Parent  36a9b54b0eeac5ef9d57ab48dcf9ab74dec89baa
Don't exec self

diff --git a/bin/perldoc b/bin/perldoc
--- a/bin/perldoc
+++ b/bin/perldoc
@@ -8,4 +8,6 @@ fi
 if [ -x "$(command -v cpandoc)" ]; then
   exec cpandoc $*
 fi
-exec perldoc $*
+
+BIN="$(which -a perldoc | grep -v $0 | head -n 1)"
+exec $BIN $*