Hello community,
here is the log from the commit of package perl-Devel-NYTProf for
openSUSE:Factory checked in at 2013-10-06 14:31:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-NYTProf (Old)
and /work/SRC/openSUSE:Factory/.perl-Devel-NYTProf.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-NYTProf"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Devel-NYTProf/perl-Devel-NYTProf.changes
2013-07-27 15:50:34.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Devel-NYTProf.new/perl-Devel-NYTProf.changes
2013-10-06 14:31:12.000000000 +0200
@@ -1,0 +2,16 @@
+Fri Oct 4 09:15:27 UTC 2013 - [email protected]
+
+- updated to 5.06
+ Fixed for perl 5.19.4. RT#88288 thanks to sprout.
+ Fixed test for change in perl 5.18.x error message text.
+ Fixed to no longer open a file when start=no. RT#86497/RT#87404.
+ Fixed compiler warnings. RT#86728 thanks to Alexander Bluhm.
+
+ Document that Devel::NYTProf needs to be loaded as early as possible
+ even when using start=no. PR#10 thanks to moritz.
+ Removed unused keyword $Id$. PR#9 thanks to dsteinbrunner.
+ Removed old benchmark.pl files. RT#86704.
+ Corrected assorted typos. PR#8 thanks to dsteinbrunner.
+ Added meta-spec to META_MERGE. PR#12 thanks to dsteinbrunner.
+
+-------------------------------------------------------------------
Old:
----
Devel-NYTProf-5.05.tar.gz
New:
----
Devel-NYTProf-5.06.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Devel-NYTProf.spec ++++++
--- /var/tmp/diff_new_pack.qTwEFm/_old 2013-10-06 14:31:13.000000000 +0200
+++ /var/tmp/diff_new_pack.qTwEFm/_new 2013-10-06 14:31:13.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Devel-NYTProf
-Version: 5.05
+Version: 5.06
Release: 0
%define cpan_name Devel-NYTProf
Summary: Powerful fast feature-rich Perl source code profiler
++++++ Devel-NYTProf-5.05.tar.gz -> Devel-NYTProf-5.06.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/Changes
new/Devel-NYTProf-5.06/Changes
--- old/Devel-NYTProf-5.05/Changes 2013-07-02 23:34:33.000000000 +0200
+++ new/Devel-NYTProf-5.06/Changes 2013-09-12 23:04:04.000000000 +0200
@@ -4,6 +4,20 @@
=cut
+=head2 Changes in Devel::NYTProf 5.06 - 12th Sept 2013
+
+ Fixed for perl 5.19.4. RT#88288 thanks to sprout.
+ Fixed test for change in perl 5.18.x error message text.
+ Fixed to no longer open a file when start=no. RT#86497/RT#87404.
+ Fixed compiler warnings. RT#86728 thanks to Alexander Bluhm.
+
+ Document that Devel::NYTProf needs to be loaded as early as possible
+ even when using start=no. PR#10 thanks to moritz.
+ Removed unused keyword $Id$. PR#9 thanks to dsteinbrunner.
+ Removed old benchmark.pl files. RT#86704.
+ Corrected assorted typos. PR#8 thanks to dsteinbrunner.
+ Added meta-spec to META_MERGE. PR#12 thanks to dsteinbrunner.
+
=head2 Changes in Devel::NYTProf 5.05 - 2nd July 2013
Fixed crash on "Can't use string as a subroutine ref" error,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/FileHandle.h
new/Devel-NYTProf-5.06/FileHandle.h
--- old/Devel-NYTProf-5.05/FileHandle.h 2013-04-06 18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/FileHandle.h 2013-09-03 10:51:59.000000000 +0200
@@ -12,8 +12,6 @@
* Steve Peters, steve at fisharerojo.org
*
* ************************************************************************
- * $Id$
- * ************************************************************************
*/
/* Arguably this header is naughty, as it's not self contained, because it
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/HACKING
new/Devel-NYTProf-5.06/HACKING
--- old/Devel-NYTProf-5.05/HACKING 2013-04-06 18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/HACKING 2013-09-03 10:51:59.000000000 +0200
@@ -1,5 +1,4 @@
# vim: ts=8 sw=2 sts=0 noexpandtab:
-# $Id$
HACKING Devel::NYTProf
======================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/INSTALL
new/Devel-NYTProf-5.06/INSTALL
--- old/Devel-NYTProf-5.05/INSTALL 2012-12-27 11:50:17.000000000 +0100
+++ new/Devel-NYTProf-5.06/INSTALL 2013-09-03 10:51:59.000000000 +0200
@@ -1,5 +1,4 @@
# vim: ts=8 sw=2 sts=0 noexpandtab:
-# $Id$
Devel::NYTProf Installation Notes
=================================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/MANIFEST
new/Devel-NYTProf-5.06/MANIFEST
--- old/Devel-NYTProf-5.05/MANIFEST 2013-07-03 11:40:25.000000000 +0200
+++ new/Devel-NYTProf-5.06/MANIFEST 2013-09-12 23:06:13.000000000 +0200
@@ -13,7 +13,6 @@
NYTProf.h
NYTProf.xs
README.md
-benchmark.pl
bin/flamegraph.pl
bin/nytprofcalls
bin/nytprofcg
@@ -22,7 +21,6 @@
bin/nytprofmerge
demo/1m_stmts.pl
demo/README
-demo/benchmark.pl
demo/closure.pl
demo/cpucache.pl
demo/demo-code.pl
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/META.json
new/Devel-NYTProf-5.06/META.json
--- old/Devel-NYTProf-5.05/META.json 2013-07-03 11:40:25.000000000 +0200
+++ new/Devel-NYTProf-5.06/META.json 2013-09-12 23:06:13.000000000 +0200
@@ -4,7 +4,7 @@
"Tim Bunce <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter
version 2.131560",
"license" : [
"perl_5"
],
@@ -28,11 +28,6 @@
"ExtUtils::MakeMaker" : "0"
}
},
- "configure" : {
- "requires" : {
- "ExtUtils::MakeMaker" : "0"
- }
- },
"runtime" : {
"requires" : {
"Getopt::Long" : "0",
@@ -46,11 +41,20 @@
},
"release_status" : "stable",
"resources" : {
+ "bugtracker" : {
+ "mailto" : "[email protected]",
+ "web" : "https://github.com/timbunce/devel-nytprof/issues";
+ },
"homepage" : "https://code.google.com/p/perl-devel-nytprof/";,
"license" : [
"http://dev.perl.org/licenses/";
],
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/timbunce/devel-nytprof.git",
+ "web" : "https://github.com/timbunce/devel-nytprof";
+ },
"x_MailingList" : "http://groups.google.com/group/develnytprof-dev";
},
- "version" : "5.05"
+ "version" : "5.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/META.yml
new/Devel-NYTProf-5.06/META.yml
--- old/Devel-NYTProf-5.05/META.yml 2013-07-03 11:40:25.000000000 +0200
+++ new/Devel-NYTProf-5.06/META.yml 2013-09-12 23:06:13.000000000 +0200
@@ -4,10 +4,8 @@
- 'Tim Bunce <[email protected]>'
build_requires:
ExtUtils::MakeMaker: 0
-configure_requires:
- ExtUtils::MakeMaker: 0
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version
2.120921'
+generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version
2.131560'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,7 +25,9 @@
Test::More: 0.84
XSLoader: 0
resources:
+ MailingList: http://groups.google.com/group/develnytprof-dev
+ bugtracker: https://github.com/timbunce/devel-nytprof/issues
homepage: https://code.google.com/p/perl-devel-nytprof/
license: http://dev.perl.org/licenses/
- x_MailingList: http://groups.google.com/group/develnytprof-dev
-version: 5.05
+ repository: git://github.com/timbunce/devel-nytprof.git
+version: 5.06
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/Makefile.PL
new/Devel-NYTProf-5.06/Makefile.PL
--- old/Devel-NYTProf-5.05/Makefile.PL 2013-05-20 21:33:27.000000000 +0200
+++ new/Devel-NYTProf-5.06/Makefile.PL 2013-09-03 11:00:12.000000000 +0200
@@ -7,8 +7,6 @@
## http://search.cpan.org/dist/Devel-NYTProf/
##
###########################################################
-# $Id$
-###########################################################
use 5.008001;
use warnings;
@@ -110,6 +108,7 @@
if( $ExtUtils::MakeMaker::VERSION >= 6.45 ) {
$mm_opts{META_MERGE} = {
+ "meta-spec" => { version => 2 },
no_index => {
package => [ 'SVG' ], # in bin/flamegraph.pl
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/NYTProf.h
new/Devel-NYTProf-5.06/NYTProf.h
--- old/Devel-NYTProf-5.05/NYTProf.h 2012-12-27 11:50:17.000000000 +0100
+++ new/Devel-NYTProf-5.06/NYTProf.h 2013-09-03 10:51:59.000000000 +0200
@@ -12,7 +12,5 @@
* Steve Peters, steve at fisharerojo.org
*
* ************************************************************************
- * $Id$
- * ************************************************************************
*/
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/NYTProf.xs
new/Devel-NYTProf-5.06/NYTProf.xs
--- old/Devel-NYTProf-5.05/NYTProf.xs 2013-07-02 23:30:42.000000000 +0200
+++ new/Devel-NYTProf-5.06/NYTProf.xs 2013-09-12 22:42:44.000000000 +0200
@@ -13,8 +13,6 @@
* Steve Peters, steve at fisharerojo.org
*
* ************************************************************************
- * $Id$
- * ************************************************************************
*/
#ifndef WIN32
#define PERL_NO_GET_CONTEXT /* we want efficiency */
@@ -1968,8 +1966,8 @@
/* ignore the typical second (fallback) destroy */
&& !(subr_entry->prev_subr_entry_ix == subr_entry_ix &&
subr_entry->already_counted==1)
) {
- logwarn("%2d << %s::%s done %s\n",
- subr_entry->subr_prof_depth,
+ logwarn("%2u << %s::%s done %s\n",
+ (unsigned int)subr_entry->subr_prof_depth,
subr_entry->called_subpkg_pv,
(subr_entry->called_subnam_sv &&
SvOK(subr_entry->called_subnam_sv))
? SvPV_nolen(subr_entry->called_subnam_sv)
@@ -2137,8 +2135,8 @@
}
if (trace_level >= 5) {
- logwarn("%2d <- %s %"NVgf" excl = %"NVgf"t incl - %"NVgf"t
(%"NVgf"-%"NVgf"), oh %"NVff"-%"NVff"=%"NVff"t, d%d @%d:%d #%lu %p\n",
- subr_entry->subr_prof_depth, called_subname_pv,
+ logwarn("%2u <- %s %"NVgf" excl = %"NVgf"t incl - %"NVgf"t
(%"NVgf"-%"NVgf"), oh %"NVff"-%"NVff"=%"NVff"t, d%d @%d:%d #%lu %p\n",
+ (unsigned int)subr_entry->subr_prof_depth, called_subname_pv,
excl_subr_ticks, incl_subr_ticks,
called_sub_ticks,
cumulative_subr_ticks, subr_entry->initial_subr_ticks,
@@ -2509,8 +2507,8 @@
}
if (trace_level >= 4) {
- logwarn("%2d >> %s at %u:%d from %s::%s %s %s\n",
- subr_entry->subr_prof_depth,
+ logwarn("%2u >> %s at %u:%d from %s::%s %s %s\n",
+ (unsigned int)subr_entry->subr_prof_depth,
PL_op_name[op_type],
subr_entry->caller_fid, subr_entry->caller_line,
subr_entry->caller_subpkg_pv,
@@ -2687,8 +2685,8 @@
*/
if (subr_entry->already_counted) {
if (trace_level >= 9)
- logwarn("%2d -- %s::%s already counted %s\n",
- subr_entry->subr_prof_depth,
+ logwarn("%2u -- %s::%s already counted %s\n",
+ (unsigned int)subr_entry->subr_prof_depth,
subr_entry->called_subpkg_pv,
(subr_entry->called_subnam_sv &&
SvOK(subr_entry->called_subnam_sv))
? SvPV_nolen(subr_entry->called_subnam_sv)
@@ -2802,8 +2800,8 @@
subr_entry->already_counted++;
if (trace_level >= 4) {
- logwarn("%2d ->%4s %s::%s from %s::%s @%u:%u (d%d, oh %"NVff"t, sub
%"NVff"s) #%lu\n",
- subr_entry->subr_prof_depth,
+ logwarn("%2u ->%4s %s::%s from %s::%s @%u:%u (d%d, oh %"NVff"t, sub
%"NVff"s) #%lu\n",
+ (unsigned int)subr_entry->subr_prof_depth,
(subr_entry->called_is_xs) ? subr_entry->called_is_xs : "sub",
subr_entry->called_subpkg_pv,
subr_entry->called_subnam_sv ?
SvPV_nolen(subr_entry->called_subnam_sv) : "(null)",
@@ -3011,8 +3009,8 @@
/* downgrade to CLOCK_REALTIME if desired clock not available */
if (clock_gettime(profile_clock, &start_time) != 0) {
if (trace_level)
- logwarn("~ clock_gettime clock %d not available (%s) using
CLOCK_REALTIME instead\n",
- profile_clock, strerror(errno));
+ logwarn("~ clock_gettime clock %ld not available (%s) using
CLOCK_REALTIME instead\n",
+ (long)profile_clock, strerror(errno));
profile_clock = CLOCK_REALTIME;
/* check CLOCK_REALTIME as well, just in case */
if (clock_gettime(profile_clock, &start_time) != 0)
@@ -3021,7 +3019,7 @@
}
#else
if (profile_clock != -1) { /* user tried to select different clock */
- logwarn("clock %ld not available (clock_gettime not supported on this
system)\n", profile_clock);
+ logwarn("clock %ld not available (clock_gettime not supported on this
system)\n", (long)profile_clock);
profile_clock = -1;
}
#endif
@@ -3082,7 +3080,7 @@
if (trace_level)
logwarn("~ init_profiler for pid %d, clock %ld, tps %d, start %d,
perldb 0x%lx, exitf 0x%lx\n",
- last_pid, profile_clock, ticks_per_sec, profile_start,
+ last_pid, (long)profile_clock, ticks_per_sec, profile_start,
(long unsigned)PL_perldb, (long unsigned)PL_exit_flags);
if (get_hv("DB::sub", 0) == NULL) {
@@ -3103,8 +3101,6 @@
fidhash.table = (Hash_entry**)safemalloc(sizeof(Hash_entry*) *
fidhash.size);
memset(fidhash.table, 0, sizeof(Hash_entry*) * fidhash.size);
- open_output_file(aTHX_ PROF_output_file);
-
/* redirect opcodes for statement profiling */
Newxc(PL_ppaddr_orig, OP_max, void *, orig_ppaddr_t);
Copy(PL_ppaddr, PL_ppaddr_orig, OP_max, void *);
@@ -3591,7 +3587,7 @@
}
if (negative_time_calls) {
logwarn("Warning: %d subroutine calls had negative time! See
TROUBLESHOOTING in the documentation. (Clock %ld)\n",
- negative_time_calls, profile_clock);
+ negative_time_calls, (long)profile_clock);
}
}
@@ -4004,7 +4000,7 @@
SvPV_nolen(filename_sv), file_num,
fmt_fid_flags(aTHX_ fid_flags, buf, sizeof(buf)),
eval_file_num);
/* so make it look like a real file instead of an eval */
- av_store(av, NYTP_FIDi_EVAL_FI, &PL_sv_undef);
+ av_store(av, NYTP_FIDi_EVAL_FI, NULL);
eval_file_num = 0;
eval_line_num = 0;
}
@@ -4018,7 +4014,7 @@
}
}
else {
- av_store(av, NYTP_FIDi_EVAL_FI, &PL_sv_undef);
+ av_store(av, NYTP_FIDi_EVAL_FI, NULL);
}
av_store(av, NYTP_FIDi_EVAL_FID, (eval_file_num) ? newSVuv(eval_file_num)
: &PL_sv_no);
av_store(av, NYTP_FIDi_EVAL_LINE, (eval_file_num) ? newSVuv(eval_line_num)
: &PL_sv_no);
@@ -4026,8 +4022,8 @@
av_store(av, NYTP_FIDi_FLAGS, newSVuv(fid_flags));
av_store(av, NYTP_FIDi_FILESIZE, newSVuv(file_size));
av_store(av, NYTP_FIDi_FILEMTIME, newSVuv(file_mtime));
- av_store(av, NYTP_FIDi_PROFILE, &PL_sv_undef);
- av_store(av, NYTP_FIDi_HAS_EVALS, &PL_sv_undef);
+ av_store(av, NYTP_FIDi_PROFILE, NULL);
+ av_store(av, NYTP_FIDi_HAS_EVALS, NULL);
av_store(av, NYTP_FIDi_SUBS_DEFINED, newRV_noinc((SV*)newHV()));
av_store(av, NYTP_FIDi_SUBS_CALLED, newRV_noinc((SV*)newHV()));
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/benchmark.pl
new/Devel-NYTProf-5.06/benchmark.pl
--- old/Devel-NYTProf-5.05/benchmark.pl 2012-12-27 11:50:17.000000000 +0100
+++ new/Devel-NYTProf-5.06/benchmark.pl 1970-01-01 01:00:00.000000000 +0100
@@ -1,125 +0,0 @@
-#! /usr/bin/env perl
-# vim: ts=8 sw=4 sts=4 expandtab:
-##########################################################
-## This script is part of the Devel::NYTProf distribution
-##
-## Copyright, contact and other information can be found
-## at the bottom of this file, or by going to:
-## http://search.cpan.org/perldoc?Devel::NYTProf
-##
-###########################################################
-## $Id$
-###########################################################
-use warnings;
-use strict;
-
-use Carp;
-use Config;
-use Getopt::Long;
-use Benchmark qw(:hireswallclock timethese cmpthese);
-use Devel::NYTProf::Data; # just to print path
-
-GetOptions(
- 'v|verbose' => \my $opt_verbose,
-) or exit 1;
-
-my $regex = shift;
-
-my $subs_count = shift || 2000;
-my $loop_count = shift || 1000;
-
-# simple benchmark script to measure profiling overhead
-my $test_script = "benchmark_code.pl";
-open my $fh, ">", $test_script or die "Can't write to $test_script: $!\n";
-print $fh q{
- my $subs_count = shift || die "No subs count";
- my $loop_count = shift || die "No loop count";
- sub foo {
- my $loop = shift;
- my $a = 0;
- while ($loop-- > 0) { ++$a; ++$a; ++$a; }
- }
- while ($subs_count-- > 0) {
- foo($loop_count)
- }
-};
-close $fh or die "Error writing to $test_script: $!\n";
-END { unlink $test_script };
-
-
-my %tests = (
- baseline => {
- perlargs => '',
- },
- dprof => {
- perlargs => '-d:DProf',
- datafile => 'tmon.out',
- },
- fastprof => {
- perlargs => '-MDevel::FastProf',
- datafile => 'fastprof.out',
- },
- profit => {
- perlargs => '-MDevel::Profit',
- datafile => 'profit.out',
- },
- nytprof_o => {
- env => [ NYTPROF => 'use_db_sub=0:file=nytprof_o.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_o.out',
- },
- nytprof_s => {
- env => [ NYTPROF => 'use_db_sub=1:file=nytprof_s.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_s.out',
- },
- nytprof_ob => {
- env => [ NYTPROF => 'blocks:file=nytprof_ob.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_ob.out',
- },
-);
-
-my %test_subs;
-while ( my ($testname, $testinfo) = each %tests ) {
- if ($regex && $testname ne 'baseline' && $testname !~ m/$regex/o) {
- warn "Skipped $testname\n";
- next;
- }
- if (!run_test($testinfo, 1, 1)) {
- warn "Can't run $testname profiler - skipped\n";
- next;
- }
- $testinfo->{testname} = $testname;
- $test_subs{$testname} = sub { run_test($testinfo, $subs_count,
$loop_count) };
-}
-
-printf "Profiler performance using perl %8s %s (%s %s %s)\n",
- $], $Config{archname},
- $Config{gccversion} ? 'gcc' : $Config{cc},
- (split / /, $Config{gccversion}||$Config{ccversion}||'')[0]||'',
- $Config{optimize};
-printf "NYTProf is $INC{'Devel/NYTProf/Data.pm'}\n";
-
-cmpthese(4, \%test_subs, 'nop');
-
-for my $testname (sort keys %test_subs) {
- my $testinfo = $tests{$testname};
- if ($testinfo->{datafile}) {
- printf "%10s: %6dKB %s\n",
- $testname, (-s $testinfo->{datafile})/1024, $testinfo->{datafile};
- unlink $testinfo->{datafile};
- }
-}
-
-exit 0;
-
-sub run_test {
- my($testinfo, $subs_count, $loop_count) = @_;
-
- my $env = $testinfo->{env};
- local $ENV{$env->[0]} = $env->[1] if $env;
-
- my $cmd = "perl $testinfo->{perlargs} $test_script $subs_count
$loop_count";
- system($cmd) == 0;
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/flamegraph.pl
new/Devel-NYTProf-5.06/bin/flamegraph.pl
--- old/Devel-NYTProf-5.05/bin/flamegraph.pl 2013-04-07 13:25:20.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/flamegraph.pl 2013-09-03 10:51:59.000000000
+0200
@@ -13,9 +13,9 @@
# frame in the stack is semicolon separated, with a space and count at the end
# of the line. These can be generated using DTrace with stackcollapse.pl.
#
-# The output graph shows relative presense of functions in stack samples. The
+# The output graph shows relative presence of functions in stack samples. The
# ordering on the x-axis has no meaning; since the data is samples, time order
-# of events is not known. The order used sorts function names alphabeticly.
+# of events is not known. The order used sorts function names alphabetically.
#
# HISTORY
#
@@ -88,7 +88,7 @@
# internals
my $ypad1 = $fontsize * 4; # pad top, include title
my $ypad2 = $fontsize * 2 + 10; # pad bottom, include labels
-my $xpad = 10; # pad lefm and right
+my $xpad = 10; # pad left and right
my $depthmax = 0;
my %Events;
my %nameattr;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/nytprofcalls
new/Devel-NYTProf-5.06/bin/nytprofcalls
--- old/Devel-NYTProf-5.05/bin/nytprofcalls 2013-07-02 23:47:13.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/nytprofcalls 2013-09-12 23:02:31.000000000
+0200
@@ -14,7 +14,7 @@
use Devel::NYTProf::Core;
require Devel::NYTProf::Data;
-our $VERSION = '5.05';
+our $VERSION = '5.06';
use Data::Dumper;
use Getopt::Long;
@@ -25,7 +25,7 @@
'verbose|v' => \my $opt_verbose,
'calls!' => \my $opt_calls, # sum calls instead of time
'debug|d' => \my $opt_debug,
- 'stable' => \my $opt_stable, # used for testing (stabilty)
+ 'stable' => \my $opt_stable, # used for testing (stability)
) or usage();
$opt_verbose++ if $opt_debug;
@@ -38,7 +38,7 @@
# (We use these because the subroutine entry events don't have reliable
# value for the subroutine name, and obviously don't have timings.)
#
-# Building a call tree from return events is a little ticky because they don't
+# Building a call tree from return events is a little tricky because they don't
# appear in natural order. The code can return from a call at any depth
# deeper than the last seen depth.
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/nytprofcg
new/Devel-NYTProf-5.06/bin/nytprofcg
--- old/Devel-NYTProf-5.05/bin/nytprofcg 2013-04-06 18:38:23.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/nytprofcg 2013-09-03 10:51:59.000000000
+0200
@@ -5,8 +5,6 @@
## See http://search.cpan.org/dist/Devel-NYTProf/
##
##########################################################
-# $Id: /mirror/devel-nytprof/bin/nytprofhtml 13295 2009-04-06T20:34:49.946854Z
tim.bunce $
-###########################################################
use warnings;
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/nytprofcsv
new/Devel-NYTProf-5.06/bin/nytprofcsv
--- old/Devel-NYTProf-5.05/bin/nytprofcsv 2013-04-06 18:38:23.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/nytprofcsv 2013-09-03 10:51:59.000000000
+0200
@@ -7,8 +7,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
##########################################################
-# $Id$
-##########################################################
use warnings;
use strict;
@@ -50,7 +48,7 @@
die "$0: Unable to access $opt{file}\n";
}
-# handle handle output location
+# handle output location
if (!-e $opt{out}) {
# will be created
@@ -199,8 +197,6 @@
0,0,0,#--------------------------------------------------------------------
0,0,0,# My New Source File!
0,0,0,#--------------------------------------------------------------------
- 0,0,0,# $Id$
- 0,0,0,#--------------------------------------------------------------------
0,0,0,
0,0,0,package NYT::Feeds::Util;
0.00047,3,0.000156666666666667,use Date::Calc qw(Add_Delta_DHMS);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/nytprofhtml
new/Devel-NYTProf-5.06/bin/nytprofhtml
--- old/Devel-NYTProf-5.05/bin/nytprofhtml 2013-07-02 23:47:18.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/nytprofhtml 2013-09-12 23:02:36.000000000
+0200
@@ -59,7 +59,7 @@
);
use Devel::NYTProf::Constants qw(NYTP_SCi_CALLING_SUB);
-our $VERSION = '5.05';
+our $VERSION = '5.06';
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";
@@ -117,7 +117,7 @@
}
-# handle handle output location
+# handle output location
if (!-e $opt_out) {
# will be created
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/bin/nytprofmerge
new/Devel-NYTProf-5.06/bin/nytprofmerge
--- old/Devel-NYTProf-5.05/bin/nytprofmerge 2013-07-02 23:47:21.000000000
+0200
+++ new/Devel-NYTProf-5.06/bin/nytprofmerge 2013-09-12 23:02:40.000000000
+0200
@@ -7,8 +7,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
##########################################################
-# $Id$
-##########################################################
use warnings;
use strict;
@@ -18,7 +16,7 @@
require Devel::NYTProf::Data;
use List::Util qw(min sum);
-our $VERSION = '5.05';
+our $VERSION = '5.06';
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";
@@ -308,7 +306,7 @@
# to the sub are collated.
# Have to use the mapped fid as the key to this hash, as
- # only the mapped fids are are unique
+ # only the mapped fids are unique
my $mapped_fid = $fids{$fid};
$map_range{$mapped_fid}[$_] = $folded
for $first_line .. $last_line;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/demo/benchmark.pl
new/Devel-NYTProf-5.06/demo/benchmark.pl
--- old/Devel-NYTProf-5.05/demo/benchmark.pl 2013-04-06 18:38:23.000000000
+0200
+++ new/Devel-NYTProf-5.06/demo/benchmark.pl 1970-01-01 01:00:00.000000000
+0100
@@ -1,125 +0,0 @@
-#! /usr/bin/env perl
-# vim: ts=8 sw=4 sts=4 expandtab:
-##########################################################
-## This script is part of the Devel::NYTProf distribution
-##
-## Copyright, contact and other information can be found
-## at the bottom of this file, or by going to:
-## http://search.cpan.org/perldoc?Devel::NYTProf
-##
-###########################################################
-## $Id: benchmark.pl 322 2008-07-15 04:33:35Z tim.bunce $
-###########################################################
-use warnings;
-use strict;
-
-use Carp;
-use Config;
-use Getopt::Long;
-use Benchmark qw(:hireswallclock timethese cmpthese);
-use Devel::NYTProf::Data; # just to print path
-
-GetOptions(
- 'v|verbose' => \my $opt_verbose,
-) or exit 1;
-
-my $regex = shift;
-
-my $subs_count = shift || 2000;
-my $loop_count = shift || 1000;
-
-# simple benchmark script to measure profiling overhead
-my $test_script = "benchmark_code.pl";
-open my $fh, ">", $test_script or die "Can't write to $test_script: $!\n";
-print $fh q{
- my $subs_count = shift || die "No subs count";
- my $loop_count = shift || die "No loop count";
- sub foo {
- my $loop = shift;
- my $a = 0;
- while ($loop-- > 0) { ++$a; ++$a; ++$a; }
- }
- while ($subs_count-- > 0) {
- foo($loop_count)
- }
-};
-close $fh or die "Error writing to $test_script: $!\n";
-END { unlink $test_script };
-
-
-my %tests = (
- baseline => {
- perlargs => '',
- },
- dprof => {
- perlargs => '-d:DProf',
- datafile => 'tmon.out',
- },
- fastprof => {
- perlargs => '-MDevel::FastProf',
- datafile => 'fastprof.out',
- },
- profit => {
- perlargs => '-MDevel::Profit',
- datafile => 'profit.out',
- },
- nytprof_o => {
- env => [ NYTPROF => 'use_db_sub=0:file=nytprof_o.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_o.out',
- },
- nytprof_s => {
- env => [ NYTPROF => 'use_db_sub=1:file=nytprof_s.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_s.out',
- },
- nytprof_ob => {
- env => [ NYTPROF => 'blocks:file=nytprof_ob.out' ],
- perlargs => '-d:NYTProf',
- datafile => 'nytprof_ob.out',
- },
-);
-
-my %test_subs;
-while ( my ($testname, $testinfo) = each %tests ) {
- if ($regex && $testname ne 'baseline' && $testname !~ m/$regex/o) {
- warn "Skipped $testname\n";
- next;
- }
- if (!run_test($testinfo, 1, 1)) {
- warn "Can't run $testname profiler - skipped\n";
- next;
- }
- $testinfo->{testname} = $testname;
- $test_subs{$testname} = sub { run_test($testinfo, $subs_count,
$loop_count) };
-}
-
-printf "Profiler performance using perl %8s %s (%s %s %s)\n",
- $], $Config{archname},
- $Config{gccversion} ? 'gcc' : $Config{cc},
- (split / /, $Config{gccversion}||$Config{ccversion}||'')[0]||'',
- $Config{optimize};
-printf "NYTProf is $INC{'Devel/NYTProf/Data.pm'}\n";
-
-cmpthese(4, \%test_subs, 'nop');
-
-for my $testname (sort keys %test_subs) {
- my $testinfo = $tests{$testname};
- if ($testinfo->{datafile}) {
- printf "%10s: %6dKB %s\n",
- $testname, (-s $testinfo->{datafile})/1024, $testinfo->{datafile};
- unlink $testinfo->{datafile};
- }
-}
-
-exit 0;
-
-sub run_test {
- my($testinfo, $subs_count, $loop_count) = @_;
-
- my $env = $testinfo->{env};
- local $ENV{$env->[0]} = $env->[1] if $env;
-
- my $cmd = "perl $testinfo->{perlargs} $test_script $subs_count
$loop_count";
- system($cmd) == 0;
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Apache.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Apache.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Apache.pm 2012-12-27
11:50:17.000000000 +0100
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Apache.pm 2013-09-03
10:51:59.000000000 +0200
@@ -7,8 +7,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
-# $Id$
-###########################################################
package Devel::NYTProf::Apache;
our $VERSION = '4.00';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Core.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Core.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Core.pm 2013-07-02
23:47:26.000000000 +0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Core.pm 2013-09-12
23:02:44.000000000 +0200
@@ -7,14 +7,12 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
-# $Id$
-###########################################################
package Devel::NYTProf::Core;
use XSLoader;
-our $VERSION = '5.05'; # increment with XS changes too
+our $VERSION = '5.06'; # increment with XS changes too
XSLoader::load('Devel::NYTProf', $VERSION);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Data.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Data.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Data.pm 2013-04-06
18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Data.pm 2013-09-03
10:51:59.000000000 +0200
@@ -7,8 +7,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
-# $Id$
-###########################################################
package Devel::NYTProf::Data;
=head1 NAME
@@ -313,7 +311,7 @@
my @parts = split /::/, $fullpkgname; # drops empty trailing part
# accumulate @$subinfos for the full package name
- # and also for each succesive truncation of the package name
+ # and also for each successive truncation of the package name
for (my $depth; $depth = @parts; pop @parts) {
my $pkgname = join('::', @parts, '');
@@ -400,7 +398,7 @@
separator => "",
} );
-Writes the profile data in a reasonably human friendly format to the sepcified
+Writes the profile data in a reasonably human friendly format to the specified
C<filehandle> (default STDOUT).
For non-trivial profiles the output can be very large. As a guide, there'll be
@@ -412,7 +410,7 @@
If C<separator> is true then instead of whitespace, each item of data is
indented with the I<path> through the structure with C<separator> used to
-separarate the elements of the path.
+separate the elements of the path.
This format is especially useful for grep'ing and diff'ing.
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/FileInfo.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/FileInfo.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/FileInfo.pm 2013-04-06
18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/FileInfo.pm 2013-09-03
10:51:59.000000000 +0200
@@ -172,7 +172,7 @@
sub evals_by_line {
my ($self) = @_;
- # find all fids that have have this fid as an eval_fid
+ # find all fids that have this fid as an eval_fid
# { line => { fid_of_eval_at_line => $fi, ... } }
my %evals_by_line;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Reader.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Reader.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Reader.pm 2013-04-06
18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Reader.pm 2013-09-03
10:51:59.000000000 +0200
@@ -7,8 +7,6 @@
## http://search.cpan.org/dist/Devel-NYTProf/
##
###########################################################
-## $Id$
-###########################################################
package Devel::NYTProf::Reader;
our $VERSION = '4.06';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Run.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Run.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Run.pm 2012-12-27
11:50:17.000000000 +0100
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Run.pm 2013-09-03
10:51:59.000000000 +0200
@@ -9,8 +9,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
-# $Id: Util.pm 809 2009-07-07 13:24:31Z tim.bunce $
-###########################################################
=head1 NAME
@@ -61,7 +59,7 @@
# croaks on failure to execute
# carps, not croak, if process has non-zero exit status
-# Devel::NYTProf::Data->new may croak, e.g., if data trucated
+# Devel::NYTProf::Data->new may croak, e.g., if data truncated
sub profile_this {
my %opt = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Util.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Util.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf/Util.pm 2013-04-06
18:38:23.000000000 +0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf/Util.pm 2013-09-03
10:51:59.000000000 +0200
@@ -7,8 +7,6 @@
# http://search.cpan.org/dist/Devel-NYTProf/
#
###########################################################
-# $Id$
-###########################################################
package Devel::NYTProf::Util;
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-5.05/lib/Devel/NYTProf.pm
new/Devel-NYTProf-5.06/lib/Devel/NYTProf.pm
--- old/Devel-NYTProf-5.05/lib/Devel/NYTProf.pm 2013-07-02 23:47:30.000000000
+0200
+++ new/Devel-NYTProf-5.06/lib/Devel/NYTProf.pm 2013-09-12 23:02:53.000000000
+0200
@@ -7,11 +7,9 @@
## http://search.cpan.org/dist/Devel-NYTProf/
##
###########################################################
-## $Id$
-###########################################################
package Devel::NYTProf;
-our $VERSION = '5.05'; # also change in Devel::NYTProf::Core
+our $VERSION = '5.06'; # also change in Devel::NYTProf::Core
package # hide the package from the PAUSE indexer
DB;
@@ -182,7 +180,7 @@
}
After the first time around the loop, any further time spent evaluating the
-condition (waiting for input in this example) would be be recorded as having
+condition (waiting for input in this example) would be recorded as having
been spent I<on the last statement executed in the loop>! (Until perl bug
#60954 is fixed this problem still applies to some loops. For more information
see L<http://rt.perl.org/rt3/Ticket/Display.html?id=60954>)
@@ -599,7 +597,9 @@
collecting profile data.
Using the C<start=no> option lets you leave the profiler disabled initially
-until you call DB::enable_profile() at the right moment.
+until you call DB::enable_profile() at the right moment. You still need to
+load Devel::NYTProf as early as possible, even if you don't call
+DB::enable_profile() until much later. See also L</use_db_sub=1>.
The profile output file can't be used until it's been properly completed and
closed. Calling DB::disable_profile() doesn't do that. To make a profile file
@@ -802,7 +802,7 @@
To further boost statement-level profiling performance try L</leave=0> but
note that
I<will> apportion timings for some kinds of statements less accurate).
-If you don't need calls stacks or flamegrph then disable it via L</calls=0>.
+If you don't need call stacks or flamegraph then disable it via L</calls=0>.
If you don't need subroutine profiling then you can disable it via L</subs=0>.
If you do need it but don't need timings for perl opcodes then set
L</slowops=0>.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
