# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801778386 0
# Node ID 58854589c7f78284025f8b2c7bd13c6de0c0e981
# Parent  9d22f732d7d83ae5a38d1166d84915b5c6022d76
(gud-perldb-massage-args): Pass `-emacs' after the file name.

diff -r 9d22f732d7d8 -r 58854589c7f7 lisp/gud.el
--- a/lisp/gud.el	Mon May 29 20:10:58 1995 +0000
+++ b/lisp/gud.el	Mon May 29 20:13:06 1995 +0000
@@ -881,7 +881,7 @@
 (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