Commit 5dd9db3b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent bcc0d457
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment