Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Build.PL: Require Devel::Callsite >= 0.05 and Devel::Trepan version >…

…= 0.40

Disassemble.pm: reset "Here DOC and inside string status".
  • Loading branch information...
commit fb82c3f21e05aeebe13afeb51244662b7743767f 1 parent 68e986b
rocky authored
View
4 Build.PL
@@ -55,15 +55,15 @@ my $builder = Module::Build->new(
'Test::Simple' => '0.81',
},
recommends => {
- 'Devel::Callsite' => 0.05,
'Pod::Text::Color' => 2.06,
},
requires => {
'perl' => '5.008',
'B::Concise' => 0,
- 'Devel::Trepan' => '0.30',
+ 'Devel::Trepan' => '0.40',
'Getopt::Long' => 0,
'rlib' => '0.02',
+ 'Devel::Callsite' => 0.05,
},
sign => ($ENV{PERL_MB_NOSIGN} ? 0 : 1),
);
View
5 lib/Devel/Trepan/CmdProcessor/Command/Disassemble.pm
@@ -111,6 +111,7 @@ sub parse_options($$)
sub highlight_string($)
{
my ($string) = shift;
+ $perl_formatter->reset();
$string = $perl_formatter->format_string($string);
chomp $string;
$string;
@@ -171,9 +172,7 @@ sub markup_tree($$)
if (/^(\s+)\|-#(\s+)(\d+):(.+)$/) {
my ($space1, $space2, $lineno, $perl_code) = ($1, $2, $3, $4);
if ($highlight) {
- print "perl code: $perl_code\n";
my $marked = highlight_string($perl_code);
- print "Marked: $marked\n";
$_ = "${space1}|-#${space2}${lineno}: $marked";
}
## FIXME: move into DB::Breakpoint and adjust List.pm
@@ -266,6 +265,8 @@ unless (caller) {
sub site { return callsite() };
$DB::OP_addr = site();
$cmd->run([$NAME, '-tree']);
+ print '=' x 50, "\n";
+ $cmd->run([$NAME, '-basic']);
}
1;
Please sign in to comment.
Something went wrong with that request. Please try again.