From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 May 1995 20:13:06 +0000 (+0000)
Subject: (gud-perldb-massage-args): Pass `-emacs' after the file name.
X-Git-Tag: emacs-19.34~3855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3e6dae78c36c67151243252afb212a7d56e3944;p=emacs.git

(gud-perldb-massage-args): Pass `-emacs' after the file name.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index 90810c6c6ac..adfc14fdbb4 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -881,7 +881,7 @@ directories if your program contains sources from more than one directory."
 (defvar gud-perldb-history nil)
 
 (defun gud-perldb-massage-args (file args)
-  (cons "-d" (cons "-emacs" args)))
+  (cons "-d" (cons (car args) (cons "-emacs" (cdr args)))))
 
 ;; There's no guarantee that Emacs will hand the filter the entire
 ;; marker at once; it could be broken up across several strings.  We