Debugger throwing errors

Help
2007-10-24
2013-05-20
  • Neil Tingley
    Neil Tingley
    2007-10-24

    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>

     
    • Neil Tingley
      Neil Tingley
      2007-10-24

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

       
    • Neil Tingley
      Neil Tingley
      2007-10-24

      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 = \&amp;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

       
      • Jan Ploski
        Jan Ploski
        2007-10-24

        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.