Revision: 1370
Author: [email protected]
Date: Wed Sep 29 13:51:15 2010
Log: add underscore to private function
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1370
Modified:
/trunk/lib/Devel/NYTProf/SubInfo.pm
=======================================
--- /trunk/lib/Devel/NYTProf/SubInfo.pm Wed Jun 16 15:48:43 2010
+++ /trunk/lib/Devel/NYTProf/SubInfo.pm Wed Sep 29 13:51:15 2010
@@ -258,8 +258,8 @@
if (trace_level() >= 5) {
carp sprintf "_merge_in_caller_info%s merging from $src_line_info
-> $dst_line_info:", $tag;
- warn sprintf " . %s\n", fmt_sc($src_line_info);
- warn sprintf " + %s\n", fmt_sc($dst_line_info);
+ warn sprintf " . %s\n", _fmt_sc($src_line_info);
+ warn sprintf " + %s\n", _fmt_sc($dst_line_info);
}
if (!...@$dst_line_info) {
@$dst_line_info = (0) x NYTP_SCi_elements;
@@ -280,13 +280,13 @@
my $dst_cs = $dst_line_info->[NYTP_SCi_CALLING_SUB]||={};
$dst_cs->{$_} = $src_cs->{$_} for keys %$src_cs;
- warn sprintf " = %s\n", fmt_sc($dst_line_info)
+ warn sprintf " = %s\n", _fmt_sc($dst_line_info)
if trace_level() >= 5;
return;
}
-sub fmt_sc {
+sub _fmt_sc {
my ($sc) = @_;
return "(empty)" if !...@$sc;
my $dst_cs = $sc->[NYTP_SCi_CALLING_SUB]||{};
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
