Debugger throwing errors

neiltingley wrote on Wed Oct 24 16:58:35 MEST 2007:

I'm getting these errors starting the debugger (see below). I've got padwalker
installed etc. Any ideas ?


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/neil/workspace/llu-environments/utilities/masterdiff.pl:6):
6:	our $DEBUG=1 ;
  DB<1> printf $DB::OUT "%vd", $^V;
5.8.8
  DB<2> f /home/neil/workspace/llu-environments/utilities/masterdiff.pl
Already in /home/neil/workspace/llu-environments/utilities/masterdiff.pl.
  DB<3> b 59
  DB<4> .
main::(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:6):
6:	our $DEBUG=1 ;
  DB<4> T
  DB<4> .
main::(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:6):
6:	our $DEBUG=1 ;
  DB<4> ;{
    if (eval { require PadWalker; PadWalker->VERSION(0.08) })
    {
        do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

        defined &dumpvar_epic::dump_lexical_vars
            or print $DB::OUT "dumpvar_epic.pm not available.\n";

        my $savout = select($DB::OUT);
        dumpvar_epic::dump_lexical_vars();
        select($savout);
    }
    else
    {
        print $DB::OUT "PadWalker module not found - please install\n";
       
    }
};

Missing right curly or square bracket at (eval 21)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 9, at end of line
syntax error at (eval 21)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 9, at
EOF

  DB<5> syntax error at (eval 22)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line
2, near ";
or"

  DB<6> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    defined &dumpvar_epic::dump_package_vars
        or print $DB::OUT "dumpvar_epic.pm not available.\n";
        
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
};

Unmatched right curly bracket at (eval 23)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 3, at end of line
syntax error at (eval 23)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 3, near
";        
    }"

  DB<7> syntax error at (eval 24)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line
8, at EOF
Missing right curly or square bracket at (eval 24)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 10, at end of line

  DB<8> .
Unmatched right curly bracket at (eval 25)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 5, at end of line
syntax error at (eval 25)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 5, near
";
}"

  DB<9> main::(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:6):
6:	our $DEBUG=1 ;
  DB<9> c
main::recursive_find_dependencies(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:59):
59:				$changed_files_in_module=&find_changed_files_in_module ( $module
, $changed_tags->[0], $changed_tags->[1]) ;
  DB<9> .
main::recursive_find_dependencies(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:59):
59:				$changed_files_in_module=&find_changed_files_in_module ( $module
, $changed_tags->[0], $changed_tags->[1]) ;
  DB<9> .
main::recursive_find_dependencies(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:59):
59:				$changed_files_in_module=&find_changed_files_in_module ( $module
, $changed_tags->[0], $changed_tags->[1]) ;
  DB<9> T
. = main::recursive_find_dependencies(1, ref(HASH), 'llu-sac-build-510',
'llu-sac-build-520') called from file `/home/neil/workspace/llu-environments/utilities/masterdiff.pl'
line 41
  DB<9> .
main::recursive_find_dependencies(/home/neil/workspace/llu-environments/utilities/masterdiff.pl:59):
59:				$changed_files_in_module=&find_changed_files_in_module ( $module
, $changed_tags->[0], $changed_tags->[1]) ;
  DB<9> ;{
    if (eval { require PadWalker; PadWalker->VERSION(0.08) })
    {
        do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

        defined &dumpvar_epic::dump_lexical_vars
            or print $DB::OUT "dumpvar_epic.pm not available.\n";

        my $savout = select($DB::OUT);
        dumpvar_epic::dump_lexical_vars();
        select($savout);
    }
    else
    {
        print $DB::OUT "PadWalker module not found - please install\n";
       
    }
};

Missing right curly or square bracket at (eval 26)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 9, at end of line
syntax error at (eval 26)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 9, at
EOF

  DB<10> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    defined &dumpvar_epic::dump_package_vars
        or print $DB::OUT "dumpvar_epic.pm not available.\n";
        
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
};

syntax error at (eval 27)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2, near
";
or"

  DB<11> syntax error at (eval 28)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 8, at EOF
Missing right curly or square bracket at (eval 28)[/usr/lib/perl5/5.8.8/perl5db.pl:628]
line 10, at end of line

  DB<12> 

neiltingley wrote on Wed Oct 24 17:12:33 MEST 2007:

Sorry, I see this has been covered. I've updated to the latest testing version
and I can debug again! Thanks

neiltingley wrote on Wed Oct 24 17:15:35 MEST 2007:

Oops, spoke too soon

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

Can't use global $; in "my" at (eval 28)[/home/neil/workspace/.metadata/.plugins/org.epic.debug/perl5db.pl:628]
line 12, near "my $;

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

jploski wrote on Wed Oct 24 19:31:40 MEST 2007:

A problem with similar symptoms has been discussed and solved in the forum
before (search for "Missing right curly"). A patch is posted in that thread
which should be applied to your system-wide perl5db.pl.

jploski wrote on Wed Oct 24 19:38:10 MEST 2007:

The patch I mean is https://sourceforge.net/forum/message.php?msg_id=3872285