From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 28 Sep 1996 20:37:44 +0000 (+0000)
Subject: (perldb): Supply visited file name, or -e 0, as default args.
X-Git-Tag: emacs-20.1~3582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dd9db3bbdb22b71459731423b693110756ab28c;p=emacs.git

(perldb): Supply visited file name, or -e 0, as default args.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index 1d5f50b2682..eb0a403dabb 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1007,7 +1007,11 @@ and source-file directory for your debugger."
    (list (read-from-minibuffer "Run perldb (like this): "
 			       (if (consp gud-perldb-history)
 				   (car gud-perldb-history)
-				 (concat perldb-command-name " "))
+				 (concat perldb-command-name
+					 " "
+					 (or (buffer-file-name)
+					     "-e 0"))
+					 " ")
 			       nil nil
 			       '(gud-perldb-history . 1))))