Author: gisle.aas
Date: Sat Oct 25 08:05:19 2008
New Revision: 550
Modified:
trunk/bin/nytprofhtml
Log:
Simplify; $caller_filename same as $filename.
Modified: trunk/bin/nytprofhtml
==============================================================================
--- trunk/bin/nytprofhtml (original)
+++ trunk/bin/nytprofhtml Sat Oct 25 08:05:19 2008
@@ -301,12 +301,11 @@
my $filename = $profile->fid_filename($fid);
my $href =
$reporter->get_file_stats()->{$filename}{html_safe} || "unknown";
- my $caller_filename = $profile->fid_filename($fid);
push @prologue,
sprintf q{# %*s times%s%s at <a
href="%s#%d">line %d</a> of %s%s},
length($max_calls), $count, $times,
$subname, "$href.html", $line, $line,
- $caller_filename, $avg_time;
+ $filename, $avg_time;
$prologue[-1] =~ s/^(# +)1 times/$1 once/; # better
English
}
}
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
