RamiD has asked for the wisdom of the Perl Monks concerning the following question:
I have a problem , eclipse debug stop at
INIT { $global_phase++; foreach my $decl (@declarations) { _apply_handler_AH_($decl, 'INIT'); } }
in handler.pm , although I did not set a breakpoint there
my Env :
OS : windows 7
IDE =eclipse with EPIC 6
Active perl 5.14
also I had the errors in condole logany adviceLoading DB routines from perl5db.pl version 1.33 Editor support available. Enter h or `h h' for help, or `perldoc perldebug' for more help. Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm +:247): 247: $global_phase++; DB<1> printf $DB::OUT "%vd", $^V; 5.14.2 DB<2> print $DB::OUT eval { require PadWalker; PadWalker->VERSION(0. +08) } 1.96 DB<3> ;{ my $file = <<'EOT'; C:/testClass4/mlnx/Tmlnx/Helper/LinuxInstallImpl.pm EOT my $line = <<'EOT'; 27 EOT my $cond = ''; epic_breakpoints::add_breakpoint($file, $line, $cond); }; Undefined subroutine &epic_breakpoints::add_breakpoint called at (eval + 31)[C:/Perl/lib/perl5db.pl:640] line 11. DB<4> ;{ my $file = <<'EOT'; C:/testClass4/mlnx/Tmlnx/Helper/LinuxDevicePropertiesImpl.pm EOT my $line = <<'EOT'; 23 EOT my $cond = ''; epic_breakpoints::add_breakpoint($file, $line, $cond); }; Undefined subroutine &epic_breakpoints::add_breakpoint called at (eval + 32)[C:/Perl/lib/perl5db.pl:640] line 11. DB<5> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm +:247): 247: $global_phase++; DB<6> T $ = Attribute::Handlers::INIT() called from file `C:/testClass4/mlnx/T +mlnx/Trun/IDeviceProperties.t' line 0 $ = eval {...} called from file `C:/testClass4/mlnx/Tmlnx/Trun/IDevice +Properties.t' line 0 DB<7> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm +:247): 247: $global_phase++; DB<8> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm +:247): 247: $global_phase++; DB<9> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm +:247): 247: $global_phase++; DB<10> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $savout = CORE::select($DB::OUT); dumpvar_epic::dump_lexical_vars($offset); CORE::select($savout); }; 8|$builtin|1|1|17|SCALAR(0x1dd8934)|5|undef|1|5 13|$global_phase|1|1|17|SCALAR(0x2988a94)|3|'1'|1|3 8|$qual_id|1|1|17|SCALAR(0x299321c)|5|undef|1|5 14|%global_phases|1|1|15|HASH(0x299323c)|3|...|1|3 9|%lastattr|1|1|15|HASH(0x299325c)|3|...|1|3 6|%phase|1|1|15|HASH(0x2988264)|3|...|1|3 4|%raw|1|1|15|HASH(0x2988284)|3|...|1|3 6|%sigil|1|1|15|HASH(0x29889f4)|3|...|1|3 9|%symcache|1|1|15|HASH(0x299327c)|3|...|1|3 10|%validtype|1|1|15|HASH(0x299326c)|3|...|1|3 13|@declarations|1|1|16|ARRAY(0x2988964)|3|...|1|3 14|@global_phases|1|1|16|ARRAY(0x299322c)|3|...|1|3 DB<11> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%global_phases'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<12> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%global_phases'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<13> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%lastattr'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<14> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%lastattr'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<15>
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: perl debug (EPIC vs Attribute::Handlers)
by LanX (Saint) on Jan 21, 2014 at 20:30 UTC | |
by RamiD (Acolyte) on Jan 22, 2014 at 08:45 UTC | |
by LanX (Saint) on Jan 22, 2014 at 10:50 UTC | |
Re: perl debug
by pemungkah (Priest) on Jan 23, 2014 at 06:21 UTC |