Author: tim.bunce
Date: Sat Nov 1 01:06:13 2008
New Revision: 583
Added:
trunk/t/test20-streval.x
Modified:
trunk/Changes
trunk/MANIFEST
trunk/lib/Devel/NYTProf.pm
trunk/lib/Devel/NYTProf/Core.pm
trunk/lib/Devel/NYTProf/Data.pm
trunk/lib/Devel/NYTProf/ReadStream.pm
trunk/lib/Devel/NYTProf/Reader.pm
trunk/lib/Devel/NYTProf/Util.pm
Log:
Bump version to 2.07 (because PAUSE indexed the 2.06_RC1 release I made for
cpantesters)
Include t/test20-streval.x that I'd missed previously.
Modified: trunk/Changes
==============================================================================
--- trunk/Changes (original)
+++ trunk/Changes Sat Nov 1 01:06:13 2008
@@ -4,7 +4,7 @@
(As of $Date$ $Revision$)
-=head2 Changes in Devel::NYTProf 2.06
+=head2 Changes in Devel::NYTProf 2.07 (svn r583) 1st Nov 2008
Core:
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Sat Nov 1 01:06:13 2008
@@ -81,6 +81,7 @@
t/test16.x
t/test20-streval.p
t/test20-streval.rdt
+t/test20-streval.x
t/test30-fork.0.p
t/test30-fork.0.rdt
t/test30-fork.0.x
Modified: trunk/lib/Devel/NYTProf.pm
==============================================================================
--- trunk/lib/Devel/NYTProf.pm (original)
+++ trunk/lib/Devel/NYTProf.pm Sat Nov 1 01:06:13 2008
@@ -11,7 +11,7 @@
###########################################################
package Devel::NYTProf;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
package # hide the package from the PAUSE indexer
DB;
Modified: trunk/lib/Devel/NYTProf/Core.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Core.pm (original)
+++ trunk/lib/Devel/NYTProf/Core.pm Sat Nov 1 01:06:13 2008
@@ -14,7 +14,7 @@
use XSLoader;
-our $VERSION = '2.06'; # increment with XS changes too
+our $VERSION = '2.07'; # increment with XS changes too
XSLoader::load('Devel::NYTProf', $VERSION);
Modified: trunk/lib/Devel/NYTProf/Data.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Data.pm (original)
+++ trunk/lib/Devel/NYTProf/Data.pm Sat Nov 1 01:06:13 2008
@@ -50,7 +50,7 @@
use Devel::NYTProf::Core;
use Devel::NYTProf::Util qw(strip_prefix_from_paths
get_abs_paths_alternation_regex);
-our $VERSION = '2.06';
+our $VERSION = '2.07';
my $trace = (($ENV{NYTPROF}||'') =~ m/\b trace=(\d+) /x) && $1; # XXX a
hack
Modified: trunk/lib/Devel/NYTProf/ReadStream.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/ReadStream.pm (original)
+++ trunk/lib/Devel/NYTProf/ReadStream.pm Sat Nov 1 01:06:13 2008
@@ -3,7 +3,7 @@
use warnings;
use strict;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
use base 'Exporter';
our @EXPORT_OK = qw(
Modified: trunk/lib/Devel/NYTProf/Reader.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Reader.pm (original)
+++ trunk/lib/Devel/NYTProf/Reader.pm Sat Nov 1 01:06:13 2008
@@ -11,7 +11,7 @@
###########################################################
package Devel::NYTProf::Reader;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
use warnings;
use strict;
Modified: trunk/lib/Devel/NYTProf/Util.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Util.pm (original)
+++ trunk/lib/Devel/NYTProf/Util.pm Sat Nov 1 01:06:13 2008
@@ -40,7 +40,7 @@
use List::Util qw(sum);
use UNIVERSAL qw( isa can VERSION );
-our $VERSION = '2.06';
+our $VERSION = '2.07';
our @EXPORT_OK = qw(
fmt_float
Added: trunk/t/test20-streval.x
==============================================================================
--- (empty file)
+++ trunk/t/test20-streval.x Sat Nov 1 01:06:13 2008
@@ -0,0 +1,17 @@
+# Profile data generated by Devel::NYTProf::Reader
+# More information at http://search.cpan.org/dist/Devel-NYTProf/
+# Format: time,calls,time/call,code
+0,0,0,# test merging of sub calls from eval fids
+0,0,0,
+0,4,0,sub foo { print "foo\n" }
+0,0,0,
+0,1,0,my $code = 'foo()';
+0,0,0,
+0,0,0,# call once from particular line
+0,1,0,eval $code;
+0,0,0,
+0,0,0,# call twice from the same line
+0,2,0,eval $code or die $@ for (1,2);
+0,0,0,
+0,0,0,# once from an eval inside an eval
+0,1,0,eval "eval q{$code}";
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
