Hello community,
here is the log from the commit of package perl-Devel-NYTProf for
openSUSE:Factory checked in at 2018-04-20 17:26:10
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-NYTProf (Old)
and /work/SRC/openSUSE:Factory/.perl-Devel-NYTProf.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-NYTProf"
Fri Apr 20 17:26:10 2018 rev:13 rq:595028 version:6.05
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Devel-NYTProf/perl-Devel-NYTProf.changes
2016-11-28 15:08:01.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Devel-NYTProf.new/perl-Devel-NYTProf.changes
2018-04-20 17:26:25.117178350 +0200
@@ -1,0 +2,22 @@
+Tue Mar 27 05:15:23 UTC 2018 - [email protected]
+
+- updated to 6.05
+ see /usr/share/doc/packages/perl-Devel-NYTProf/Changes
+
+ =head2 Changes in Devel::NYTProf 6.05 - 23rd March 2018
+
+ Fix test failures on Perl 5.27.6+ #113
+
+ Fix to prevent memory corruption in incr_sub_inclusive_time
+ thanks to lucrocha #115
+
+ Fix test failures on Perl 5.26 w/ PERL_USE_UNSAFE_INC=0,
+ thanks to Kent Fredric #112
+
+ Fix for the double opening of the web browser with --open,
+ thanks to trizen #107
+
+ Updated links in docs from old svn repository to Github
+ thanks to smpeters #114
+
+-------------------------------------------------------------------
Old:
----
Devel-NYTProf-6.04.tar.gz
New:
----
Devel-NYTProf-6.05.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Devel-NYTProf.spec ++++++
--- /var/tmp/diff_new_pack.gfeyRx/_old 2018-04-20 17:26:25.805153402 +0200
+++ /var/tmp/diff_new_pack.gfeyRx/_new 2018-04-20 17:26:25.805153402 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Devel-NYTProf
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,14 +17,14 @@
Name: perl-Devel-NYTProf
-Version: 6.04
+Version: 6.05
Release: 0
%define cpan_name Devel-NYTProf
Summary: Powerful fast feature-rich Perl source code profiler
-License: Artistic-1.0 or GPL-1.0+
+License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Devel-NYTProf/
-Source0:
http://www.cpan.org/authors/id/T/TI/TIMB/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/T/TI/TIMB/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
++++++ Devel-NYTProf-6.04.tar.gz -> Devel-NYTProf-6.05.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/Changes
new/Devel-NYTProf-6.05/Changes
--- old/Devel-NYTProf-6.04/Changes 2016-11-24 23:45:03.000000000 +0100
+++ new/Devel-NYTProf-6.05/Changes 2018-03-23 23:19:49.000000000 +0100
@@ -4,6 +4,22 @@
=cut
+=head2 Changes in Devel::NYTProf 6.05 - 23rd March 2018
+
+ Fix test failures on Perl 5.27.6+ #113
+
+ Fix to prevent memory corruption in incr_sub_inclusive_time
+ thanks to lucrocha #115
+
+ Fix test failures on Perl 5.26 w/ PERL_USE_UNSAFE_INC=0,
+ thanks to Kent Fredric #112
+
+ Fix for the double opening of the web browser with --open,
+ thanks to trizen #107
+
+ Updated links in docs from old svn repository to Github
+ thanks to smpeters #114
+
=head2 Changes in Devel::NYTProf 6.04 - 24th November 2016
Fixed build on perl 5.25+ due to OpSIBLING, thanks to Dan Collins #102
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/FileHandle.xs
new/Devel-NYTProf-6.05/FileHandle.xs
--- old/Devel-NYTProf-6.04/FileHandle.xs 2016-03-19 22:47:20.000000000
+0100
+++ new/Devel-NYTProf-6.05/FileHandle.xs 2018-03-23 23:18:40.000000000
+0100
@@ -20,9 +20,7 @@
#include "FileHandle.h"
#include "NYTProf.h"
-#define NEED_newRV_noinc
#define NEED_sv_2pvbyte
-#define NEED_my_snprintf
#include "ppport.h"
#ifdef HAS_ZLIB
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/META.json
new/Devel-NYTProf-6.05/META.json
--- old/Devel-NYTProf-6.04/META.json 2016-11-24 23:53:17.000000000 +0100
+++ new/Devel-NYTProf-6.05/META.json 2018-03-26 10:21:33.000000000 +0200
@@ -4,7 +4,7 @@
"Tim Bunce <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter
version 2.143240",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter
version 2.150005",
"license" : [
"perl_5"
],
@@ -62,5 +62,6 @@
},
"x_MailingList" : "http://groups.google.com/group/develnytprof-dev";
},
- "version" : "6.04"
+ "version" : "6.05",
+ "x_serialization_backend" : "JSON::PP version 2.27203"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/META.yml
new/Devel-NYTProf-6.05/META.yml
--- old/Devel-NYTProf-6.04/META.yml 2016-11-24 23:53:16.000000000 +0100
+++ new/Devel-NYTProf-6.05/META.yml 2018-03-26 10:21:33.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version
2.143240'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version
2.150005'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -33,4 +33,5 @@
homepage: https://code.google.com/p/perl-devel-nytprof/
license: http://dev.perl.org/licenses/
repository: git://github.com/timbunce/devel-nytprof.git
-version: '6.04'
+version: '6.05'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.012'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/NYTProf.xs
new/Devel-NYTProf-6.05/NYTProf.xs
--- old/Devel-NYTProf-6.04/NYTProf.xs 2016-10-07 12:11:58.000000000 +0200
+++ new/Devel-NYTProf-6.05/NYTProf.xs 2018-03-23 23:18:40.000000000 +0100
@@ -24,11 +24,12 @@
#include "NYTProf.h"
#ifndef NO_PPPORT_H
+#define NEED_my_snprintf_GLOBAL
+#define NEED_newRV_noinc_GLOBAL
#define NEED_eval_pv
#define NEED_grok_number
#define NEED_grok_numeric_radix
#define NEED_newCONSTSUB
-#define NEED_newRV_noinc
#define NEED_sv_2pv_flags
#define NEED_newSVpvn_flags
#define NEED_my_strlcat
@@ -2153,7 +2154,7 @@
/* exclusive = inclusive - time spent in subroutines called by this
subroutine */
excl_subr_ticks = incl_subr_ticks - called_sub_ticks;
- subr_call_key_len = sprintf(subr_call_key, "%s::%s[%u:%d]",
+ subr_call_key_len = my_snprintf(subr_call_key, sizeof(subr_call_key),
"%s::%s[%u:%d]",
subr_entry->caller_subpkg_pv,
(subr_entry->caller_subnam_sv) ?
SvPV_nolen(subr_entry->caller_subnam_sv) : "(null)",
subr_entry->caller_fid, subr_entry->caller_line);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/bin/nytprofcalls
new/Devel-NYTProf-6.05/bin/nytprofcalls
--- old/Devel-NYTProf-6.04/bin/nytprofcalls 2016-11-24 23:34:21.000000000
+0100
+++ new/Devel-NYTProf-6.05/bin/nytprofcalls 2018-03-23 22:53:36.000000000
+0100
@@ -14,7 +14,7 @@
use Devel::NYTProf::Core;
require Devel::NYTProf::Data;
-our $VERSION = '6.04';
+our $VERSION = '6.05';
use Data::Dumper;
use Getopt::Long;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/bin/nytprofcsv
new/Devel-NYTProf-6.05/bin/nytprofcsv
--- old/Devel-NYTProf-6.04/bin/nytprofcsv 2016-11-24 23:34:44.000000000
+0100
+++ new/Devel-NYTProf-6.05/bin/nytprofcsv 2018-03-23 23:18:40.000000000
+0100
@@ -16,7 +16,7 @@
use Devel::NYTProf::Reader;
-our $VERSION = '6.04';
+our $VERSION = '6.05';
use constant NUMERIC_PRECISION => 5;
@@ -202,7 +202,7 @@
Mailing list and discussion at
L<http://groups.google.com/group/develnytprof-dev>
-Public SVN Repository and hacking instructions at
L<http://code.google.com/p/perl-devel-nytprof/>
+Public Github Repository and hacking instructions at
L<https://github.com/timbunce/devel-nytprof/>
L<Devel::NYTProf>
L<Devel::NYTProf::Reader>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/bin/nytprofhtml
new/Devel-NYTProf-6.05/bin/nytprofhtml
--- old/Devel-NYTProf-6.04/bin/nytprofhtml 2016-11-24 23:50:51.000000000
+0100
+++ new/Devel-NYTProf-6.05/bin/nytprofhtml 2018-03-23 23:18:40.000000000
+0100
@@ -61,7 +61,7 @@
);
use Devel::NYTProf::Constants qw(NYTP_SCi_CALLING_SUB);
-our $VERSION = '6.04';
+our $VERSION = '6.05';
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";
@@ -106,6 +106,7 @@
'minimal|m!'=> \my $opt_minimal,
'flame!' => \(my $opt_flame = 1),
'mergeevals!'=> \(my $opt_mergeevals = 1),
+ 'flamewidth=i' => \(my $opt_flame_width = 1200),
'profself!' => sub { }, # handled in BEGIN above
'debug!' => \my $opt_debug,
) or do { exit usage(); };
@@ -122,6 +123,7 @@
--open Open the generated report in a web browser
--lib <lib>, -l <lib> Add <lib> to the beginning of \@INC
--no-flame Disable flame graph (and call stacks processing)
+ --flamewidth <width> Width of the flame graph [default: 1200]
--minimal, -m Don't generate graphviz .dot files or
block/sub-level reports
--no-mergeevals Disable merging of string evals
--help, -h Print this message
@@ -838,11 +840,11 @@
my $factor = 1_000_000 / $profile->{attribute}{ticks_per_sec};
# total (width) for flamegraph is profiler_active in ticks
my $run_us = $profile->{attribute}{profiler_active} *
$profile->{attribute}{ticks_per_sec};
- system("\"$flamegraph\" --nametype=sub --countname=microseconds
--factor=$factor --nameattr=$subattr --hash --total=$run_us
$opt_out/$call_stacks_file > $opt_out/$call_stacks_svg") == 0
+ system("\"$flamegraph\" --nametype=sub --countname=microseconds
--factor=$factor --width=$opt_flame_width --nameattr=$subattr --hash
--total=$run_us $opt_out/$call_stacks_file > $opt_out/$call_stacks_svg") == 0
or die "Generating $opt_out/$call_stacks_svg failed\n";
print $fh qq{<div class="flamegraph">\n};
- print $fh qq{<object data="$call_stacks_svg" width="1200"
type="image/svg+xml" >SVG not supported</object>\n};
+ print $fh qq{<object data="$call_stacks_svg"
width="$opt_flame_width" type="image/svg+xml" >SVG not supported</object>\n};
print $fh qq{<p>The <a
href="http://dtrace.org/blogs/brendan/2011/12/16/flame-graphs/";>Flame Graph</a>
above is a visualization of the time spent in <em>distinct call stacks</em>.
The colors and x-axis position are not meaningful.</p>\n};
print $fh qq{</div>\n};
1;
@@ -1319,7 +1321,8 @@
sub open_browser_on {
my $index = shift;
- return if eval { require Browser::Open;
Browser::Open::open_browser($index, 1); };
+ my $exit_code = eval { require Browser::Open;
Browser::Open::open_browser($index, 1); };
+ return if defined($exit_code) && $exit_code == 0;
warn "$@\n" if $@ && $opt_debug;
return if eval { require ActiveState::Browser;
ActiveState::Browser::open($index); 1 };
@@ -2109,7 +2112,7 @@
Mailing list and discussion at
L<http://groups.google.com/group/develnytprof-dev>
-Public SVN Repository and hacking instructions at
L<http://code.google.com/p/perl-devel-nytprof/>
+Public Github Repository and hacking instructions at
L<https://github.com/timbunce/devel-nytprof/>
L<Devel::NYTProf>,
L<Devel::NYTProf::Reader>,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/bin/nytprofmerge
new/Devel-NYTProf-6.05/bin/nytprofmerge
--- old/Devel-NYTProf-6.04/bin/nytprofmerge 2016-11-24 23:34:21.000000000
+0100
+++ new/Devel-NYTProf-6.05/bin/nytprofmerge 2018-03-23 22:53:36.000000000
+0100
@@ -16,7 +16,7 @@
require Devel::NYTProf::Data;
use List::Util qw(min sum);
-our $VERSION = '6.04';
+our $VERSION = '6.05';
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";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/bin/nytprofpf
new/Devel-NYTProf-6.05/bin/nytprofpf
--- old/Devel-NYTProf-6.04/bin/nytprofpf 2016-11-24 23:34:21.000000000
+0100
+++ new/Devel-NYTProf-6.05/bin/nytprofpf 2018-03-23 22:53:36.000000000
+0100
@@ -54,7 +54,7 @@
);
use Devel::NYTProf::Constants qw(NYTP_SCi_CALLING_SUB);
-our $VERSION = '6.04';
+our $VERSION = '6.05';
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";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/lib/Devel/NYTProf/Core.pm
new/Devel-NYTProf-6.05/lib/Devel/NYTProf/Core.pm
--- old/Devel-NYTProf-6.04/lib/Devel/NYTProf/Core.pm 2016-11-24
23:34:21.000000000 +0100
+++ new/Devel-NYTProf-6.05/lib/Devel/NYTProf/Core.pm 2018-03-23
22:53:36.000000000 +0100
@@ -12,7 +12,7 @@
use XSLoader;
-our $VERSION = '6.04'; # increment with XS changes too
+our $VERSION = '6.05'; # increment with XS changes too
XSLoader::load('Devel::NYTProf', $VERSION);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/lib/Devel/NYTProf.pm
new/Devel-NYTProf-6.05/lib/Devel/NYTProf.pm
--- old/Devel-NYTProf-6.04/lib/Devel/NYTProf.pm 2016-11-24 23:34:21.000000000
+0100
+++ new/Devel-NYTProf-6.05/lib/Devel/NYTProf.pm 2018-03-23 23:18:40.000000000
+0100
@@ -9,7 +9,7 @@
###########################################################
package Devel::NYTProf;
-our $VERSION = '6.04'; # also change in Devel::NYTProf::Core
+our $VERSION = '6.05'; # also change in Devel::NYTProf::Core
package # hide the package from the PAUSE indexer
DB;
@@ -36,7 +36,8 @@
# DB::sub shouldn't be called, but needs to exist for perl <5.8.7 (<perl@24265)
# Could be called in obscure cases, e.g. if "perl -d" (not -d:NYTProf)
# was used with Devel::NYTProf loaded some other way
-sub sub { die "DB::sub called unexpectedly" }
+*sub = sub { warn "DB::sub called unexpectedly (@{[ caller(0) ]})" }
+ if $] < 5.008008;
sub CLONE { DB::disable_profiler }
@@ -1143,7 +1144,7 @@
Blog posts L<http://blog.timbunce.org/tag/nytprof/>
-Public SVN Repository and hacking instructions at
L<http://code.google.com/p/perl-devel-nytprof/>
+Public Github Repository and hacking instructions at
L<https://github.com/timbunce/devel-nytprof/>
L<nytprofhtml> is a script included that produces html reports.
L<nytprofcsv> is another script included that produces plain text CSV reports.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/t/lib/NYTProfTest.pm
new/Devel-NYTProf-6.05/t/lib/NYTProfTest.pm
--- old/Devel-NYTProf-6.04/t/lib/NYTProfTest.pm 2015-02-20 20:58:13.000000000
+0100
+++ new/Devel-NYTProf-6.05/t/lib/NYTProfTest.pm 2017-12-31 19:27:14.000000000
+0100
@@ -69,6 +69,10 @@
pf => { order => 50, tests => 2, },
};
+# having t/* in @INC is necessary for prefix-stripping
+# to reduce test-file names down to the single tokens
+# that are used in the comparison-output files.
+unshift @INC, File::Spec->rel2abs('./t') if -d 't';
chdir('t') if -d 't';
if (-d '../blib') {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/t/test16.p
new/Devel-NYTProf-6.05/t/test16.p
--- old/Devel-NYTProf-6.04/t/test16.p 2016-11-24 23:50:51.000000000 +0100
+++ new/Devel-NYTProf-6.05/t/test16.p 2017-12-31 18:44:03.000000000 +0100
@@ -4,6 +4,7 @@
use strict;
use feature ":5.10";
+no if "$]" >= 5.018, warnings => "experimental";
sub foo {
my $whameth = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/t/test16.rdt
new/Devel-NYTProf-6.05/t/test16.rdt
--- old/Devel-NYTProf-6.04/t/test16.rdt 2016-11-24 23:50:51.000000000 +0100
+++ new/Devel-NYTProf-6.05/t/test16.rdt 2017-12-31 18:44:03.000000000 +0100
@@ -14,64 +14,64 @@
attribute total_stmts_measured 0
attribute total_sub_calls 0
attribute xs_version 0
-fid_block_time 1 9 [ 0 4 ]
-fid_block_time 1 10 [ 0 3 ]
-fid_block_time 1 21 [ 0 4 ]
-fid_block_time 1 30 [ 0 1 ]
+fid_block_time 1 10 [ 0 4 ]
+fid_block_time 1 11 [ 0 3 ]
+fid_block_time 1 22 [ 0 4 ]
fid_block_time 1 31 [ 0 1 ]
fid_block_time 1 32 [ 0 1 ]
fid_block_time 1 33 [ 0 1 ]
+fid_block_time 1 34 [ 0 1 ]
fid_fileinfo 1 [ test16.p 1 2 0 0 ]
-fid_fileinfo 1 sub main::BEGIN 6-6
+fid_fileinfo 1 sub main::BEGIN 7-7
fid_fileinfo 1 sub main::CORE:match 0-0
fid_fileinfo 1 sub main::CORE:print 0-0
fid_fileinfo 1 sub main::CORE:say 0-0
fid_fileinfo 1 sub main::RUNTIME 1-1
-fid_fileinfo 1 sub main::bar 20-27
-fid_fileinfo 1 sub main::foo 8-18
-fid_fileinfo 1 call 11 main::CORE:match [ 2 0 0 0 0 0 0
main::foo ]
-fid_fileinfo 1 call 11 main::CORE:say [ 1 0 0 0 0 0 0
main::foo ]
-fid_fileinfo 1 call 14 main::CORE:match [ 1 0 0 0 0 0 0
main::foo ]
-fid_fileinfo 1 call 14 main::CORE:say [ 1 0 0 0 0 0 0
main::foo ]
-fid_fileinfo 1 call 22 main::CORE:match [ 3 0 0 0 0 0 0
main::bar ]
-fid_fileinfo 1 call 22 main::CORE:print [ 2 0 0 0 0 0 0
main::bar ]
-fid_fileinfo 1 call 30 main::foo [ 1 0 0 0 0 0 0
main::RUNTIME ]
+fid_fileinfo 1 sub main::bar 21-28
+fid_fileinfo 1 sub main::foo 9-19
+fid_fileinfo 1 call 12 main::CORE:match [ 2 0 0 0 0 0 0
main::foo ]
+fid_fileinfo 1 call 12 main::CORE:say [ 1 0 0 0 0 0 0
main::foo ]
+fid_fileinfo 1 call 15 main::CORE:match [ 1 0 0 0 0 0 0
main::foo ]
+fid_fileinfo 1 call 15 main::CORE:say [ 1 0 0 0 0 0 0
main::foo ]
+fid_fileinfo 1 call 23 main::CORE:match [ 3 0 0 0 0 0 0
main::bar ]
+fid_fileinfo 1 call 23 main::CORE:print [ 2 0 0 0 0 0 0
main::bar ]
fid_fileinfo 1 call 31 main::foo [ 1 0 0 0 0 0 0
main::RUNTIME ]
-fid_fileinfo 1 call 32 main::bar [ 1 0 0 0 0 0 0
main::RUNTIME ]
+fid_fileinfo 1 call 32 main::foo [ 1 0 0 0 0 0 0
main::RUNTIME ]
fid_fileinfo 1 call 33 main::bar [ 1 0 0 0 0 0 0
main::RUNTIME ]
-fid_line_time 1 9 [ 0 2 ]
+fid_fileinfo 1 call 34 main::bar [ 1 0 0 0 0 0 0
main::RUNTIME ]
fid_line_time 1 10 [ 0 2 ]
fid_line_time 1 11 [ 0 2 ]
-fid_line_time 1 14 [ 0 1 ]
-fid_line_time 1 21 [ 0 2 ]
+fid_line_time 1 12 [ 0 2 ]
+fid_line_time 1 15 [ 0 1 ]
fid_line_time 1 22 [ 0 2 ]
-fid_line_time 1 30 [ 0 1 ]
+fid_line_time 1 23 [ 0 2 ]
fid_line_time 1 31 [ 0 1 ]
fid_line_time 1 32 [ 0 1 ]
fid_line_time 1 33 [ 0 1 ]
-fid_sub_time 1 9 [ 0 7 ]
-fid_sub_time 1 21 [ 0 4 ]
-fid_sub_time 1 30 [ 0 1 ]
+fid_line_time 1 34 [ 0 1 ]
+fid_sub_time 1 10 [ 0 7 ]
+fid_sub_time 1 22 [ 0 4 ]
fid_sub_time 1 31 [ 0 1 ]
fid_sub_time 1 32 [ 0 1 ]
fid_sub_time 1 33 [ 0 1 ]
+fid_sub_time 1 34 [ 0 1 ]
profile_modes fid_block_time block
profile_modes fid_line_time line
profile_modes fid_sub_time sub
-sub_subinfo main::BEGIN [ 1:6-6 calls 0 times 0 0 0 0 ]
+sub_subinfo main::BEGIN [ 1:7-7 calls 0 times 0 0 0 0 ]
sub_subinfo main::CORE:match [ 1:0-0 calls 6 times 0 0 0 0 ]
-sub_subinfo main::CORE:match called_by 1:11 [ 2 0 0 0 0 0 0
main::foo ]
-sub_subinfo main::CORE:match called_by 1:14 [ 1 0 0 0 0 0 0
main::foo ]
-sub_subinfo main::CORE:match called_by 1:22 [ 3 0 0 0 0 0 0
main::bar ]
+sub_subinfo main::CORE:match called_by 1:12 [ 2 0 0 0 0 0 0
main::foo ]
+sub_subinfo main::CORE:match called_by 1:15 [ 1 0 0 0 0 0 0
main::foo ]
+sub_subinfo main::CORE:match called_by 1:23 [ 3 0 0 0 0 0 0
main::bar ]
sub_subinfo main::CORE:print [ 1:0-0 calls 2 times 0 0 0 0 ]
-sub_subinfo main::CORE:print called_by 1:22 [ 2 0 0 0 0 0 0
main::bar ]
+sub_subinfo main::CORE:print called_by 1:23 [ 2 0 0 0 0 0 0
main::bar ]
sub_subinfo main::CORE:say [ 1:0-0 calls 2 times 0 0 0 0 ]
-sub_subinfo main::CORE:say called_by 1:11 [ 1 0 0 0 0 0 0
main::foo ]
-sub_subinfo main::CORE:say called_by 1:14 [ 1 0 0 0 0 0 0
main::foo ]
+sub_subinfo main::CORE:say called_by 1:12 [ 1 0 0 0 0 0 0
main::foo ]
+sub_subinfo main::CORE:say called_by 1:15 [ 1 0 0 0 0 0 0
main::foo ]
sub_subinfo main::RUNTIME [ 1:1-1 calls 0 times 0 0 0 0 ]
-sub_subinfo main::bar [ 1:20-27 calls 2 times 0 0 0 0 ]
-sub_subinfo main::bar called_by 1:32 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo main::bar [ 1:21-28 calls 2 times 0 0 0 0 ]
sub_subinfo main::bar called_by 1:33 [ 1 0 0 0 0 0 0
main::RUNTIME ]
-sub_subinfo main::foo [ 1:8-18 calls 2 times 0 0 0 0 ]
-sub_subinfo main::foo called_by 1:30 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo main::bar called_by 1:34 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo main::foo [ 1:9-19 calls 2 times 0 0 0 0 ]
sub_subinfo main::foo called_by 1:31 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo main::foo called_by 1:32 [ 1 0 0 0 0 0 0
main::RUNTIME ]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-NYTProf-6.04/t/test16.x
new/Devel-NYTProf-6.05/t/test16.x
--- old/Devel-NYTProf-6.04/t/test16.x 2016-11-24 23:50:51.000000000 +0100
+++ new/Devel-NYTProf-6.05/t/test16.x 2017-12-31 18:44:03.000000000 +0100
@@ -7,6 +7,7 @@
0,0,0,use strict;
0,0,0,
0,0,0,use feature ":5.10";
+0,0,0,no if "$]" >= 5.018, warnings => "experimental";
0,0,0,
0,0,0,sub foo {
0,2,0,my $whameth = shift;
