# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 838062386 0
# Node ID 95be49f334539761c79e2b2e7c50b2a467b59335
# Parent  05c14d5cce5c65f6ff299e61773baa2f2afa39d1
(perldb-command-name): New variable.
(perldb): Use it.

diff -r 05c14d5cce5c -r 95be49f33453 lisp/gud.el
--- a/lisp/gud.el	Mon Jul 22 16:33:20 1996 +0000
+++ b/lisp/gud.el	Mon Jul 22 19:06:26 1996 +0000
@@ -989,6 +989,9 @@
       (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 @@
    (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))))