From 35704509a2c3e818d76077315ce6624f699dce8c Mon Sep 17 00:00:00 2001 From: Nathaniel Nutter Date: Fri, 24 Jan 2014 16:59:14 -0600 Subject: [PATCH] whitespace Change-Id: Icca940ca0f59d97f509d7b55681b3f247bf3cc45 --- lib/Devel/callcount.pm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lib/Devel/callcount.pm b/lib/Devel/callcount.pm index 1fabe51b..d5a13497 100644 --- a/lib/Devel/callcount.pm +++ b/lib/Devel/callcount.pm @@ -7,29 +7,29 @@ use Data::Dumper; # Debugger flags, so you can see what we turn on below. # # 0x01 Debug subroutine enter/exit. -# +# # 0x02 Line-by-line debugging. -# +# # 0x04 Switch off optimizations. -# +# # 0x08 Preserve more data for future interactive inspections. -# +# # 0x10 Keep info about source lines on which a subroutine is defined. -# +# # 0x20 Start with single-step on. -# +# # 0x40 Use subroutine address instead of name when reporting. -# +# # 0x80 Report "goto &subroutine" as well. -# +# # 0x100 Provide informative "file" names for evals based on the place they were com- # piled. -# +# # 0x200 Provide informative names to anonymous subroutines based on the place they # were compiled. -# +# # 0x400 Debug assertion subroutines enter/exit. -# +# BEGIN { $^P |= (0x01 | 0x80 | 0x100 | 0x200); }; #BEGIN { $^P |= (0x004 | 0x100 ); }; @@ -55,8 +55,8 @@ sub sub { my ($pkg,$file,$line) = @c1; my $csub = $c0[3] || '-'; my $caller = join(",", $file,$line,$pkg,$csub); - print STDERR ((' ' x $DB::CALL_DEPTH) . $DB::sub{$DB::sub} . ' > ' . $DB::sub . "(@_) : " . $caller . "\n") if $CALL_WATCH; - $DB::CALLED{$DB::sub}{$caller}++; + print STDERR ((' ' x $DB::CALL_DEPTH) . $DB::sub{$DB::sub} . ' > ' . $DB::sub . "(@_) : " . $caller . "\n") if $CALL_WATCH; + $DB::CALLED{$DB::sub}{$caller}++; &{$DB::sub}; }