Revision: 1297
Author: [email protected]
Date: Thu Jun 10 03:24:38 2010
Log: Bump version to 4.01. Restore ordering of line-block-sub links on
index page.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1297
Modified:
/trunk/Changes
/trunk/bin/nytprofcsv
/trunk/bin/nytprofhtml
/trunk/bin/nytprofmerge
/trunk/lib/Devel/NYTProf/Core.pm
/trunk/lib/Devel/NYTProf/Data.pm
/trunk/lib/Devel/NYTProf/Reader.pm
/trunk/lib/Devel/NYTProf.pm
=======================================
--- /trunk/Changes Tue Jun 8 16:29:49 2010
+++ /trunk/Changes Thu Jun 10 03:24:38 2010
@@ -12,6 +12,16 @@
add u key to treemap to trigger moving 'up' a level
add "calls N subs" to treemap mouseover box
+=head2 Changes in Devel::NYTProf 4.01 (svn 1296) 10th June 2010
+
+ Fixed links from block/sub level report pages to string eval report
+ pages. RT#58284
+
+ Restored ordering of line - block - sub links on index page.
+
+ Clarified that saving the source code of string evals requires perl
+ version 5.8.9+, 5.10.1+, 5.12 or later. RT#58283
+
=head2 Changes in Devel::NYTProf 4.00 (svn 1291) 8th June 2010
Major changes:
=======================================
--- /trunk/bin/nytprofcsv Sun May 30 01:30:17 2010
+++ /trunk/bin/nytprofcsv Thu Jun 10 03:24:38 2010
@@ -18,7 +18,7 @@
use Devel::NYTProf::Reader;
-our $VERSION = '4.00';
+our $VERSION = '4.01';
use constant NUMERIC_PRECISION => 5;
=======================================
--- /trunk/bin/nytprofhtml Tue Jun 8 03:10:39 2010
+++ /trunk/bin/nytprofhtml Thu Jun 10 03:24:38 2010
@@ -31,7 +31,7 @@
my $json_any = eval { require JSON::Any; JSON::Any->import; JSON::Any->new
}
or warn "Can't load JSON::Any module - HTML visualizations skipped.\n";
-our $VERSION = '4.00';
+our $VERSION = '4.01';
if ($VERSION != $Devel::NYTProf::Core::VERSION) {
die "$0 version '$VERSION' doesn't match
version '$Devel::NYTProf::Core::VERSION' of
$INC{'Devel/NYTProf/Core.pm'}\n";
@@ -1302,9 +1302,11 @@
);
push @t_stmt_time, $time;
+
+ my %levels = reverse %{$profile->get_profile_levels};
my $rep_links = join ' • ', map {
sprintf(qq{<a %s>%s</a>}, $reporter->href_for_file($fi, undef,
$_), $_)
- } values %{$profile->get_profile_levels};
+ } grep { $levels{$_} } qw(line block sub);
print $fh "<td>$rep_links</td>";
print $fh sprintf q{<td><a name="f%s" title="%s">%s</a> %s</td>},
=======================================
--- /trunk/bin/nytprofmerge Tue Jun 1 06:18:12 2010
+++ /trunk/bin/nytprofmerge Thu Jun 10 03:24:38 2010
@@ -18,7 +18,7 @@
require Devel::NYTProf::Data;
use List::Util qw(min);
-our $VERSION = '4.00';
+our $VERSION = '4.01';
if ($VERSION != $Devel::NYTProf::Core::VERSION) {
die "$0 version '$VERSION' doesn't match
version '$Devel::NYTProf::Core::VERSION' of
$INC{'Devel/NYTProf/Core.pm'}\n";
=======================================
--- /trunk/lib/Devel/NYTProf/Core.pm Sun May 30 01:30:17 2010
+++ /trunk/lib/Devel/NYTProf/Core.pm Thu Jun 10 03:24:38 2010
@@ -14,7 +14,7 @@
use XSLoader;
-our $VERSION = '4.00'; # increment with XS changes too
+our $VERSION = '4.01'; # increment with XS changes too
XSLoader::load('Devel::NYTProf', $VERSION);
=======================================
--- /trunk/lib/Devel/NYTProf/Data.pm Mon Jun 7 08:07:31 2010
+++ /trunk/lib/Devel/NYTProf/Data.pm Thu Jun 10 03:24:38 2010
@@ -55,7 +55,7 @@
trace_level
);
-our $VERSION = '4.00';
+our $VERSION = '4.01';
=head2 new
=======================================
--- /trunk/lib/Devel/NYTProf/Reader.pm Thu Jun 10 02:26:31 2010
+++ /trunk/lib/Devel/NYTProf/Reader.pm Thu Jun 10 03:24:38 2010
@@ -11,7 +11,7 @@
###########################################################
package Devel::NYTProf::Reader;
-our $VERSION = '4.00';
+our $VERSION = '4.01';
use warnings;
use strict;
=======================================
--- /trunk/lib/Devel/NYTProf.pm Thu Jun 10 02:26:31 2010
+++ /trunk/lib/Devel/NYTProf.pm Thu Jun 10 03:24:38 2010
@@ -11,7 +11,7 @@
###########################################################
package Devel::NYTProf;
-our $VERSION = '4.00';
+our $VERSION = '4.01';
package # hide the package from the PAUSE indexer
DB;
--
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]
