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

1 files changed, 5 insertions, 1 deletions

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