Revision: 1074
Author: tim.bunce
Date: Sat Feb 20 08:19:13 2010
Log: Show "<- Index" backlink on all pages except the main index page.
Updated Changes.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1074
Modified:
/trunk/Changes
/trunk/bin/nytprofhtml
=======================================
--- /trunk/Changes Sat Feb 20 05:21:47 2010
+++ /trunk/Changes Sat Feb 20 08:19:13 2010
@@ -17,9 +17,9 @@
Fixed handling of usecputime=1 option and updated
docs to note the significant limitations.
- Fixed handling of assignment of XS subs to files
+ Fixed association of XS subs to source files
in some edge cases thanks to Nicholas Clark.
- Fixed nytprofmerge edge-cases thanks to Nicholas Clark.
+ Fixed nytprofmerge edge cases thanks to Nicholas Clark.
Added high-resolution (100ns) timer for Mac OS X
many thanks to Markus Peter.
@@ -28,6 +28,7 @@
Changed subroutine profiler to be slightly more efficient.
Changed some tests to be more informative on failure.
Changed nytprofhtml to be smarter when source isn't available.
+ Changed nytprofhtml to show sort arrow on sortable tables.
Updated docs to include a note about timing on Windows.
Updated docs to include a section about making NYTProf faster.
=======================================
--- /trunk/bin/nytprofhtml Sat Feb 20 07:58:06 2010
+++ /trunk/bin/nytprofhtml Sat Feb 20 08:19:13 2010
@@ -119,7 +119,6 @@
profile => $profile,
title => "NYTProf Performance Profile",
subtitle => $subhead,
- mode => qq/-$level/
)
. qq{
<div class="body_content">
@@ -538,7 +537,7 @@
or croak "Unable to open file $opt{out}/$filename: $!";
print $fh get_html_header();
- print $fh get_page_header(profile => $profile, title => "Performance
Profile Index");
+ print $fh get_page_header(profile => $profile, title => "Performance
Profile Index", skip_link_to_index=>1);
print $fh qq{
<div class="body_content"><br />
};
@@ -1404,9 +1403,9 @@
sub get_page_header {
my %args = @_;
- my ($profile, $head1, $head2, $right1, $right2, $mode) = (
+ my ($profile, $head1, $head2, $right1, $right2, $skip_link_to_index) =
(
$args{profile}, $args{title}, $args{subtitle},
- $args{title2}, $args{subtitle2}, $args{mode}
+ $args{title2}, $args{subtitle2}, $args{skip_link_to_index}
);
$head2 ||= qq{<br />For ${ \($profile->{attribute}{application}) }};
@@ -1415,7 +1414,7 @@
. localtime(time);
my $back_link = q//;
- if ($mode) {
+ unless ($skip_link_to_index) {
$back_link = qq{<div class="header_back">
<a href="index.html">← Index</a>
</div>};
--
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]
