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>
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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>
Sorry, I see this has been covered. I've updated to the latest testing version and I can debug again! Thanks
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
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.
The patch I mean is https://sourceforge.net/forum/message.php?msg_id=3872285