From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Jul 1996 19:06:26 +0000 (+0000)
Subject: (perldb-command-name): New variable.
X-Git-Tag: emacs-19.34~107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ab5d005aa7b6dde7a6d01792aedbe0458e6b6d4;p=emacs.git

(perldb-command-name): New variable.
(perldb): Use it.
---

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))))