From 9ab5d005aa7b6dde7a6d01792aedbe0458e6b6d4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 22 Jul 1996 19:06:26 +0000
Subject: [PATCH] (perldb-command-name): New variable. (perldb): Use it.

---
 lisp/gud.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/gud.el b/lisp/gud.el
index 6c5c1abcdf6..cbbd4aeb2d9 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -989,6 +989,9 @@ directories if your program contains sources from more than one directory."
       (gud-make-debug-menu)
       buf)))
 
+(defvar perldb-command-name "perl"
+  "File name for executing Perl.")
+
 ;;;###autoload
 (defun perldb (command-line)
   "Run perldb on program FILE in buffer *gud-FILE*.
@@ -998,7 +1001,7 @@ and source-file directory for your debugger."
    (list (read-from-minibuffer "Run perldb (like this): "
 			       (if (consp gud-perldb-history)
 				   (car gud-perldb-history)
-				 "perl ")
+				 (concat perldb-command-name " "))
 			       nil nil
 			       '(gud-perldb-history . 1))))
 
-- 
2.39.5