Couldn't view array variables

magic_andy wrote on Wed Jan 23 08:07:39 CET 2008:

I just cannot view array variables during debugging. It always remind "an
error occurred while dumping array content. I tried some simple code and
the debugger console displayed information as the following:

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

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

main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<1> printf $DB::OUT "%vd", $^V;
5.8.8
  DB<2> print $DB::OUT eval { require PadWalker; PadWalker->VERSION(0.08)
}
1.6
  DB<3> .
main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<3> T
  DB<3> .
main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<3> .
main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<3> .
main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<3> ;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};


  DB<4> .
main::(/home/dee/workspace/123/123.pl:2):
2:	my $rr=90;
  DB<4> s
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> T
  DB<4> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<4> ;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};

3|$rr|1|1|17|SCALAR(0x81537bc)|4|'90'|1|4

  DB<5> .
main::(/home/dee/workspace/123/123.pl:3):
3:	my @ii=(88,98,980);
  DB<5> s
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> .
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> .
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> .
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> .
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> T
  DB<5> .
main::(/home/dee/workspace/123/123.pl:4):
4:	my $ui=987;
  DB<5> ;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};

3|$rr|1|1|17|SCALAR(0x81537bc)|4|'90'|1|4
3|@ii|1|1|16|ARRAY(0x81537d4)|3|...|1|3

  DB<6> ;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
    
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'@ii'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
my $savbuf = $|;
$| = 0;
$subref->($offset, $varexpr);
$| = $savbuf;
print "";
select($savout);
};

Missing right curly or square bracket at (eval 16)[/home/dee/workspace/.metadata/.plugins/org.epic.debug/perl5db.pl:628]
line 12, at end of line
syntax error at (eval 16)[/home/dee/workspace/.metadata/.plugins/org.epic.debug/perl5db.pl:628]
line 12, at EOF

  DB<7> ;{    
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
    
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'@ii'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
my $savbuf = $|;
$| = 0;
$subref->($offset, $varexpr);
$| = $savbuf;
print "";
select($savout);
};

Unmatched right curly bracket at (eval 17)[/home/dee/workspace/.metadata/.plugins/org.epic.debug/perl5db.pl:628]
line 9, at end of line
syntax error at (eval 17)[/home/dee/workspace/.metadata/.plugins/org.epic.debug/perl5db.pl:628]
line 9, near ";
}"

  DB<8> 


Could anyone help? Thanks a lot.

jploski wrote on Wed Jan 23 20:35:29 CET 2008:

Which version of EPIC and what OS is that? Search the forum for the "unmatched
right curly" symptom. In some installations of Perl a patch was required
for perl5db.pl.