(gud-common-init): Use absolute file so that

perldb works with tramp (sudo).

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 7c1970f7aa2..f5e6218a432 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2502,7 +2502,9 @@ comint mode, which see."
       (if w
           (setcar w
                   (if (file-remote-p default-directory)
-                      (setq file (file-name-nondirectory file))
+                      ;; Tramp has already been loaded if we are here.
+                      (setq file (tramp-file-name-localname
+                                  (tramp-dissect-file-name file)))
                     file))))
     (apply 'make-comint (concat "gud" filepart) program nil
            (if massage-args (funcall massage-args file args) args))