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.
Note: The above is an archived snapshot of a forum thread. Use the original thread at sf.net to post comments.