Debugging Perl with Emacs / perldb

[William L Brown <bbrown@addtoit.com>]

Hi Folks,
    With "perl -d" on the command line, the standard perl debugger, I
see the code inside of a perl eval as I execute it.  Eval'ed code is
code that is created from scratch, outside of a code file and which then
becomes part of your program.  Inside if emacs, depending upon my
environment, I either see:

  Nothing but an indicator of what line I am running with no view of the
line:
    (eval 6)[/home/bbrown/newTmp/emacsDebugTests/foo.pl:8]:7:0

  or a new buffer pops up in emacs, with name (eval x), with absolutely
no text inside of it.

    How do I fix this issue?  Who can I ask?  The issue seems to fit
snuggly between Emacs experts and Perl experts.

    Thanks very much for your time.

             Bill

ps.  I included some sample code just to show you how I typically
     use eval.  A transcript of my "perl -d" session, where I see at 
     least one line of the eval at a time, follows.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
my $code = "
my (\$foo, \$bar) = \@_;
print \$foo;
print \$bar;
return \$bar;
";
my $subroutine = "sub { $code }";
my $proc = eval $subroutine;
my $baz = "1\n";    
my $bat = "2\n";
my $output = eval {no strict "refs"; $proc->($baz, $bat); };
print $output;

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
bbrown@parvathi:~/newTmp/emacsDebugTests$ perl -d foo.pl

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(foo.pl:1):       my $code = "
main::(foo.pl:2):       my (\$foo, \$bar) = \@_;
main::(foo.pl:3):       print \$foo;
main::(foo.pl:4):       print \$bar;
main::(foo.pl:5):       return \$bar;
main::(foo.pl:6):       ";
  DB<1> n
main::(foo.pl:7):       my $subroutine = "sub { $code }";
  DB<1> n
main::(foo.pl:8):       my $proc = eval $subroutine;
  DB<1> n
main::((eval 6)[foo.pl:8]:7):   ;
  DB<1> n
main::(foo.pl:9):       my $baz = "1\n";    
  DB<1> n
main::(foo.pl:10):      my $bat = "2\n";
  DB<1> n
main::(foo.pl:11):      my $output = eval {no strict "refs";
$proc->($baz,
$bat); };
  DB<1> s
main::(foo.pl:11):      my $output = eval {no strict "refs";
$proc->($baz,
$bat); };
  DB<1> s
main::CODE(0x8626a50)((eval 6)[foo.pl:8]:2):
2:      my ($foo, $bar) = @_;               <- I can see the source!!!
  DB<1> n
main::CODE(0x8626a50)((eval 6)[foo.pl:8]:3):
3:      print $foo;
  DB<1> n
1
main::CODE(0x8626a50)((eval 6)[foo.pl:8]:4):
4:      print $bar;
  DB<1> n
2
main::CODE(0x8626a50)((eval 6)[foo.pl:8]:5):
5:      return $bar;
  DB<1> n
main::(foo.pl:12):      print $output;
  DB<1> n
2
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.  
  DB<1> 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

-- 
William L. Brown
______________________________________
bbrown@addtoit.com
603-465-2114     [Office]
617-803-9156     [Cell]
603-574-4922     [Skype Phone]
508-322-1146     [Google Voice (experimental)]
williambrown0000 [Skype/AIM/Yahoo IM]
______________________________________