# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980508441 0
# Node ID a3f6dfb571a74a4a7ce9e8334e486c1afe62824b
# Parent  c332de00af3685704e7e05249a75c996a2749343
(gud-perldb-massage-args): Avoid nreverse'ing a list
part of which is a constant.

diff -r c332de00af36 -r a3f6dfb571a7 lisp/gud.el
--- a/lisp/gud.el	Fri Jan 26 11:23:52 2001 +0000
+++ b/lisp/gud.el	Fri Jan 26 11:27:21 2001 +0000
@@ -1182,7 +1182,7 @@
 ;; "-d" in inserted as the first switch, and "-emacs" is inserted where
 ;; it will be $ARGV[0] (see perl5db.pl).
 (defun gud-perldb-massage-args (file args)
-  (let* ((new-args '("-d"))
+  (let* ((new-args (list "-d"))
 	 (seen-e nil)
 	 (shift (lambda ()
 		  (setq new-args (cons (car args) new-args))