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

5dd9db3b · Richard M. Stallman · bcc0d457 · 5dd9db3b
Commit 5dd9db3b authored Sep 28, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/gud.el lisp/gud.el +5 -1

No files found.
--- 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))))