# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843943064 0
# Node ID 0a969fac6f6593e13db185aa2a8d38571ef6133c
# Parent  032601b9959b742de04d242952925447adecc1ea
(perldb): Supply visited file name, or -e 0, as default args.

diff -r 032601b9959b -r 0a969fac6f65 lisp/gud.el
--- a/lisp/gud.el	Sat Sep 28 04:34:34 1996 +0000
+++ b/lisp/gud.el	Sat Sep 28 20:37:44 1996 +0000
@@ -1007,7 +1007,11 @@
    (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))))