bug#14588: 24.1; perldb broken

[Len Weisberg]

This bug report will be sent to the Bug-GNU-Emacs mailing list
and the GNU bug tracker at debbugs.gnu.org.  Please check that
the From: line contains a valid email address.  After a delay of up
to one day, you should receive an acknowledgement at that address.

Please write in English if possible, as the Emacs maintainers
usually do not have translators for other languages.

Please describe exactly what actions triggered the bug, and
the precise symptoms of the bug.  If you can, give a recipe
starting from `emacs -Q':

--------------------------------------------------------------
Here's the bug recipe:

Generate a file in  /tmp/args.pl   containing:
#! /usr/bin/perl
$x = 3 ;
print "here are the args: ", join (' ', @ARGV), "\n" ;

then run:

(perldb "/tmp/args.pl  a b c")

the result is:
Current directory is /tmp/
here are the args: a -emacs b c

Debugger finished
--------------

Two serious problems:
 - inserts second arg  '-emacs'
 - doesn't debug - just runs!
       (ie should stop at line 2, the first exectable line)

---------------------
Second test (simpler, but even worse result:)

(perldb "/tmp/args.pl")
This gets:
*gud* output:
Current directory is ~/

and *Backtrace*:
Debugger entered--Lisp error: (error "Can't use stdin as the script to debug")
  signal(error ("Can't use stdin as the script to debug"))
  error("Can't use stdin as the script to debug")
  gud-perldb-massage-args(nil nil)
  gud-common-init("/tmp/args.pl" gud-perldb-massage-args 
gud-perldb-marker-filter)
  perldb("/tmp/args.pl")
  eval((perldb "/tmp/args.pl") nil)
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)

---------------------
Also, a minor problem in that the perldb command does not initialize
with the currently edited filename
    - it just uses previously used perldb command line.
--------------------------------------------------------------


If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
For information about debugging Emacs, please read the file
/usr/share/emacs/24.1/etc/DEBUG.


In GNU Emacs 24.1.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.12)
 of 2012-09-22 on batsu, modified by Debian
Windowing system distributor `The X.Org Foundation', version 11.0.11300000
Configured using:
 `configure '--build' 'x86_64-linux-gnu' '--build' 'x86_64-linux-gnu'
 '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib'
 '--localstatedir=/var/lib' '--infodir=/usr/share/info'
 '--mandir=/usr/share/man' '--with-pop=yes'
 
'--enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.1/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.1/site-lisp:/usr/share/emacs/site-lisp'
 '--with-crt-dir=/usr/lib/x86_64-linux-gnu' '--with-x=yes'
 '--with-x-toolkit=gtk' '--with-toolkit-scroll-bars'
 'build_alias=x86_64-linux-gnu' 'CFLAGS=-g -O2 -fstack-protector
 --param=ssp-buffer-size=4 -Wformat -Werror=format-security -Wall -O2'
 'CPPFLAGS=-D_FORTIFY_SOURCE=2''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-y <left> <left> <backspace> C-e C-x C-e <help-echo>
<menu-bar> <buffer> C-b <help-echo> <menu-bar> <buffer>
C-b <return> <return> C-y C-b C-b <backspace> <backspace>
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> C-e C-x C-e <help-echo> <help-echo> <menu-bar>
<buffer> C-c <help-echo> <help-echo> <menu-bar> <buffer>
C-c <return> <return> ESC x r e p o r t - TAB <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Mark set
nil
Mark set
Entering debugger...

Load-path shadows: