Devel-NYTProf-6.06_01

rebased our cperl-core branch to 6.06

Support more cperl features:
signatures, enterxssub, builtin strict, anon named subs
See https://github.com/rurban/devel-nytprof/tree/cperl-core

Author: rurban

Diff for: .git-rr-cache

@@ -486,6 +486,7 @@ cpan/Devel-NYTProf/lib/Devel/NYTProf/js/jit/jit-yc.js
 cpan/Devel-NYTProf/lib/Devel/NYTProf/js/jit/Treemap.css
 cpan/Devel-NYTProf/lib/Devel/NYTProf/js/jquery-min.js
 cpan/Devel-NYTProf/lib/Devel/NYTProf/js/jquery-tablesorter-min.js
+cpan/Devel-NYTProf/lib/Devel/NYTProf/js/jquery.floatThead.min.js
 cpan/Devel-NYTProf/lib/Devel/NYTProf/js/style-tablesorter.css
 cpan/Devel-NYTProf/lib/Devel/NYTProf/Reader.pm
 cpan/Devel-NYTProf/lib/Devel/NYTProf/ReadStream.pm

Diff for: MANIFEST

@@ -475,7 +475,7 @@ package Maintainers;
     },
 
     'Devel::NYTProf' => {
-        'DISTRIBUTION' => 'TIMB/Devel-NYTProf-6.04.tar.gz',
+        'DISTRIBUTION' => 'TIMB/Devel-NYTProf-6.06.tar.gz',
         'FILES'        => q[cpan/Devel-NYTProf],
         'EXCLUDED'     => [
             qr{^t/[79].*\.t},
@@ -507,6 +507,7 @@ package Maintainers;
                                 t/lib/NYTProfTest.pm
                                 t/00-load.t
                                 t/22-readstream.t
+                                t/80-version.t
                               )],
     },
 

Diff for: Porting/Maintainers.pl

@@ -171,12 +171,15 @@ WriteMakefile(
         'Test::Differences' => '0.60',
         'XSLoader'     => 0,
         'Getopt::Long' => 0,
-        'Cpanel::JSON::XS' => 0,
+        ($ENV{PERL_CORE} && $Config{usecperl}
+         ? ('Cpanel::JSON::XS' => 0)
+         : ('JSON::MaybeXS' => 0)),
     },
     INST_LIB  => ($ENV{PERL_CORE} ? File::Spec->catfile(qw(.. .. lib)) : 'blib/lib'),
     INST_ARCHLIB => ($ENV{PERL_CORE} ? File::Spec->catfile(qw(.. .. lib)) : 'blib/arch'),
     LIBS      => [join ' ', @libs],
     OBJECT    => q/$(O_FILES)/,
+    FUNCLIST => ['boot_Devel__NYTProf', 'boot_Devel__NYTProf__FileHandle'],
     EXE_FILES => ['bin/nytprofhtml', 'bin/flamegraph.pl', 'bin/nytprofcsv', 'bin/nytprofcalls', 'bin/nytprofcg', 'bin/nytprofmerge', 'bin/nytprofpf'],
     @man,
     INC   => $INCLUDE,

Diff for: cpan/Devel-NYTProf/Makefile.PL

@@ -113,7 +113,7 @@ Others:
 
 =item L<http://docs.google.com/present/view?id=dg7kgpct_24cjs3c9fv>
 
-=over L<http://diotalevi.isa-geek.net/~josh/090402/frontend.png>
+=item L<http://diotalevi.isa-geek.net/~josh/090402/frontend.png>
 
 =back
 

Diff for: cpan/Devel-NYTProf/MemoryProfiling.pod

@@ -10,13 +10,14 @@
  * Adam Kaplan, akaplan at nytimes.com
  * Tim Bunce, http://www.tim.bunce.name and http://blog.timbunce.org
  * Steve Peters, steve at fisharerojo.org
+ * Forked version by Reini Urban for cperl
  *
  * ************************************************************************
  */
 
 /* cperl optims */
 #ifndef strEQc
-/* the buffer ends with \0, includes comparison of the \0.
-   better than strEQ as it uses memcmp, word-wise comparison. */
-#define strEQc(s, c) memEQ(s, ("" c ""), sizeof(c))
+#define strEQc(s,c) memEQ(s, ("" c ""), sizeof(c))
+#define strNEc(s,c) memNE(s, ("" c ""), sizeof(c))
 #endif
+

Diff for: cpan/Devel-NYTProf/NYTProf.h

@@ -106,8 +106,9 @@
 my $help = 0;
 
 sub usage {
-	die <<USAGE_END;
-USAGE: $0 [options] infile > outfile.svg\n
+    die <<USAGE_END;
+flame stack grapher
+Usage: $0 [options] infile > outfile.svg\n
 	--title       # change title text
 	--width       # width of image (default 1200)
 	--height      # height of each frame (default 16)

Diff for: cpan/Devel-NYTProf/NYTProf.xs

@@ -14,7 +14,7 @@ use strict;
 use Devel::NYTProf::Core;
 require Devel::NYTProf::Data;
 
-our $VERSION = '6.04';
+our $VERSION = '6.06_01';
 
 use Data::Dumper;
 use Getopt::Long;
@@ -36,7 +36,8 @@ usage() unless @ARGV;
 
 sub usage {
     print <<END;
-usage: [perl] nytprofcalls [opts] nytprof-file [...]
+Print profiled calls
+Usage: [perl] nytprofcalls [opts] nytprof-file [...]
 
  --help,        -h         Print this message
  --verbose,     -v         Be more verbose
@@ -232,7 +233,7 @@ __END__
 
 =head1 NAME
 
-nytprofcalls - experimental
+nytprofcalls - Print profiled calls (experimental)
 
 =cut
 # vim:ts=8:sw=4:et

Diff for: cpan/Devel-NYTProf/bin/flamegraph.pl

@@ -102,7 +102,8 @@ for (keys %callmap) {
 
 sub usage {
     print <<END;
-usage: [perl] nytprofcg [opts]
+Convert an NYTProf profile into Callgrind format
+Usage: [perl] nytprofcg [opts]
  --file <file>, -f <file>  Specify NYTProf data file [default: nytprof.out]
  --out <file>,  -o <file>  Specify output file [default: nytprof.callgrind]
  --help,        -h         Print this message

Diff for: cpan/Devel-NYTProf/bin/nytprofcalls

@@ -16,7 +16,7 @@ use Getopt::Long;
 
 use Devel::NYTProf::Reader;
 
-our $VERSION = '4.02';
+our $VERSION = '6.06_01';
 
 use constant NUMERIC_PRECISION => 5;
 
@@ -112,7 +112,8 @@ sub _delete {
 
 sub usage {
     print <<END
-usage: [perl] nytprofcsv [opts]
+Generate CSV reports from Devel::NYTProf data (deprecated)
+Usage: [perl] nytprofcsv [opts]
  --file <file>, -f <file>  Use the specified file as Devel::NYTProf database
                             file. [default: ./nytprof.out]
  --out <dir>,   -o <dir>   Place generated files here [default: ./nytprof]
@@ -191,7 +192,7 @@ Print the help message
  0.00468,3,0.00156,use strict; 
  0,0,0,
  0.00000,1,0,require Exporter; 
- ... thats enough, get the picture? ...
+ ... that's enough, get the picture? ...
 
 Note: The format line indicates what fields the numbers correspond to
 
@@ -202,7 +203,7 @@ the source might be misaligned
 
 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>