diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel')
21 files changed, 564 insertions, 829 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf.pm b/Master/tlpkg/tlperl/lib/Devel/DProf.pm deleted file mode 100644 index 62485a9f3cb..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf.pm +++ /dev/null @@ -1,247 +0,0 @@ -use 5.006_001; - -=head1 NAME - -Devel::DProf - a B<DEPRECATED> Perl code profiler - -=head1 SYNOPSIS - - perl -d:DProf test.pl - -=head1 ACHTUNG! - -C<Devel::DProf> is B<DEPRECATED> and will be removed from a future version of -Perl. We strongly recommend that you install and use L<Devel::NYTProf> instead, -as it offers significantly improved profiling and reporting. - -=head1 DESCRIPTION - -The Devel::DProf package is a Perl code profiler. This will collect -information on the execution time of a Perl script and of the subs in that -script. This information can be used to determine which subroutines are -using the most time and which subroutines are being called most often. This -information can also be used to create an execution graph of the script, -showing subroutine relationships. - -To profile a Perl script run the perl interpreter with the B<-d> debugging -switch. The profiler uses the debugging hooks. So to profile script -F<test.pl> the following command should be used: - - perl -d:DProf test.pl - -When the script terminates (or when the output buffer is filled) the -profiler will dump the profile information to a file called -F<tmon.out>. A tool like I<dprofpp> can be used to interpret the -information which is in that profile. The following command will -print the top 15 subroutines which used the most time: - - dprofpp - -To print an execution graph of the subroutines in the script use the -following command: - - dprofpp -T - -Consult L<dprofpp> for other options. - -=head1 PROFILE FORMAT - -The old profile is a text file which looks like this: - - #fOrTyTwO - $hz=100; - $XS_VERSION='DProf 19970606'; - # All values are given in HZ - $rrun_utime=2; $rrun_stime=0; $rrun_rtime=7 - PART2 - + 26 28 566822884 DynaLoader::import - - 26 28 566822884 DynaLoader::import - + 27 28 566822885 main::bar - - 27 28 566822886 main::bar - + 27 28 566822886 main::baz - + 27 28 566822887 main::bar - - 27 28 566822888 main::bar - [....] - -The first line is the magic number. The second line is the hertz value, or -clock ticks, of the machine where the profile was collected. The third line -is the name and version identifier of the tool which created the profile. -The fourth line is a comment. The fifth line contains three variables -holding the user time, system time, and realtime of the process while it was -being profiled. The sixth line indicates the beginning of the sub -entry/exit profile section. - -The columns in B<PART2> are: - - sub entry(+)/exit(-) mark - app's user time at sub entry/exit mark, in ticks - app's system time at sub entry/exit mark, in ticks - app's realtime at sub entry/exit mark, in ticks - fully-qualified sub name, when possible - -With newer perls another format is used, which may look like this: - - #fOrTyTwO - $hz=10000; - $XS_VERSION='DProf 19971213'; - # All values are given in HZ - $over_utime=5917; $over_stime=0; $over_rtime=5917; - $over_tests=10000; - $rrun_utime=1284; $rrun_stime=0; $rrun_rtime=1284; - $total_marks=6; - - PART2 - @ 406 0 406 - & 2 main bar - + 2 - @ 456 0 456 - - 2 - @ 1 0 1 - & 3 main baz - + 3 - @ 141 0 141 - + 2 - @ 141 0 141 - - 2 - @ 1 0 1 - & 4 main foo - + 4 - @ 142 0 142 - + & Devel::DProf::write - @ 5 0 5 - - & Devel::DProf::write - -(with high value of $ENV{PERL_DPROF_TICKS}). - -New C<$over_*> values show the measured overhead of making $over_tests -calls to the profiler These values are used by the profiler to -subtract the overhead from the runtimes. - -Lines starting with C<@> mark the amount of time passed since the -previous C<@> line. The numbers following the C<@> are integer tick -counts representing user, system, and real time. Divide these numbers -by the $hz value in the header to get seconds. - -Lines starting with C<&> map subroutine identifiers (an integer) to -subroutine packages and names. These should only occur once per -subroutine. - -Lines starting with C<+> or C<-> mark normal entering and exit of -subroutines. The number following is a reference to a subroutine -identifier. - -Lines starting with C<*> mark where subroutines are entered by C<goto -&subr>, but note that the return will still be marked as coming from -the original sub. The sequence might look like this: - - + 5 - * 6 - - 5 - -Lines starting with C</> is like C<-> but mark where subroutines are -exited by dying. Example: - - + 5 - + 6 - / 6 - / 5 - -Finally you might find C<@> time stamp marks surrounded by C<+ & -Devel::DProf::write> and C<- & Devel::DProf::write> lines. These 3 -lines are outputted when printing of the mark above actually consumed -measurable time. - -=head1 AUTOLOAD - -When Devel::DProf finds a call to an C<&AUTOLOAD> subroutine it looks at the -C<$AUTOLOAD> variable to find the real name of the sub being called. See -L<perlsub/"Autoloading">. - -=head1 ENVIRONMENT - -C<PERL_DPROF_BUFFER> sets size of output buffer in words. Defaults to 2**14. - -C<PERL_DPROF_TICKS> sets number of ticks per second on some systems where -a replacement for times() is used. Defaults to the value of C<HZ> macro. - -C<PERL_DPROF_OUT_FILE_NAME> sets the name of the output file. If not set, -defaults to tmon.out. - -=head1 BUGS - -Builtin functions cannot be measured by Devel::DProf. - -With a newer Perl DProf relies on the fact that the numeric slot of -$DB::sub contains an address of a subroutine. Excessive manipulation -of this variable may overwrite this slot, as in - - $DB::sub = 'current_sub'; - ... - $addr = $DB::sub + 0; - -will set this numeric slot to numeric value of the string -C<current_sub>, i.e., to C<0>. This will cause a segfault on the exit -from this subroutine. Note that the first assignment above does not -change the numeric slot (it will I<mark> it as invalid, but will not -write over it). - -Another problem is that if a subroutine exits using goto(LABEL), -last(LABEL) or next(LABEL) then perl may crash or Devel::DProf will die -with the error: - - panic: Devel::DProf inconsistent subroutine return - -For example, this code will break under Devel::DProf: - - sub foo { - last FOO; - } - FOO: { - foo(); - } - -A pattern like this is used by Test::More's skip() function, for -example. See L<perldiag> for more details. - -=head1 SEE ALSO - -L<perl>, L<dprofpp>, times(2) - -=cut - -# This sub is needed for calibration. -package Devel::DProf; - -sub NONESUCH_noxs { - return $Devel::DProf::VERSION; -} - -{ - package DB; - - # - # As of perl5.003_20, &DB::sub stub is not needed (some versions - # even had problems if stub was redefined with XS version). - # - - # disable DB single-stepping - BEGIN { $single = 0; } - - # This sub is needed during startup. - sub DB { - # print "nonXS DBDB\n"; - } -} - -use XSLoader (); - -$Devel::DProf::VERSION = '20110228.00'; # this version not authorized by - # Dean Roehrich. See "Changes" file. - -use if $] >= 5.013, 'deprecate'; - -sub import { - XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION; -} - -1; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/V.pm b/Master/tlpkg/tlperl/lib/Devel/DProf/V.pm deleted file mode 100644 index e613f6f4410..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/V.pm +++ /dev/null @@ -1,63 +0,0 @@ -package V; - -use Getopt::Std 'getopts'; -getopts('vp:d:'); - -require Exporter; -@ISA = 'Exporter'; - -@EXPORT = qw( dprofpp $opt_v $results $expected report @results ); -@EXPORT_OK = qw( notok ok $num ); - -$num = 0; -$results = $expected = ''; -$perl = $opt_p || $^X; -$dpp = $opt_d || '../../utils/dprofpp'; -$dpp .= '.com' if $^O eq 'VMS'; - -print "\nperl: $perl\n" if $opt_v; -if( ! -f $perl ){ die "Where's Perl?" } -if( ! -f $dpp ) { - ($dpp = $^X) =~ s@(^.*)[/|\\].*@$1/dprofpp@; - die "Where's dprofpp?" if( ! -f $dpp ); -} - -sub dprofpp { - my $switches = shift; - - open( D, "$perl \"-I../lib\" $dpp \"$switches\" 2> err |" ) || warn "$0: Can't run. $!\n"; - @results = <D>; - close D; - - open( D, "<err" ) || warn "$0: Can't open: $!\n"; - @err = <D>; - close D; - push( @results, @err ) if @err; - - $results = qq{@results}; - # ignore Loader (Dyna/Auto etc), leave newline - $results =~ s/^\w+Loader::import//; - $results =~ s/\n /\n/gm; - $results; -} - -sub report { - $num = shift; - my $sub = shift; - my $x; - - $x = &$sub; - $x ? &ok : ¬ok; -} - -sub ok { - print "ok $num\n"; -} - -sub notok { - print "not ok $num\n"; - print "\nResult\n{$results}\n"; - print "Expected\n{$expected}\n"; -} - -1; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test1_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test1_t deleted file mode 100644 index d504cd55365..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test1_t +++ /dev/null @@ -1,18 +0,0 @@ -sub foo { - print "in sub foo\n"; - bar(); -} - -sub bar { - print "in sub bar\n"; -} - -sub baz { - print "in sub baz\n"; - bar(); - foo(); -} - -bar(); -baz(); -foo(); diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test1_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test1_v deleted file mode 100644 index 542a503414e..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test1_v +++ /dev/null @@ -1,24 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::bar -main::baz - main::bar - main::foo - main::bar -main::foo - main::bar -}; -report 1, sub { $expected eq $results }; - -dprofpp('-TF'); -report 2, sub { $expected eq $results }; - -dprofpp( '-t' ); -report 3, sub { $expected eq $results }; - -dprofpp('-tF'); -report 4, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test2_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test2_t deleted file mode 100644 index edc46c527e6..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test2_t +++ /dev/null @@ -1,21 +0,0 @@ -sub foo { - print "in sub foo\n"; - bar(); -} - -sub bar { - print "in sub bar\n"; -} - -sub baz { - print "in sub baz\n"; - bar(); - bar(); - bar(); - foo(); -} - -bar(); -bar(); -baz(); -foo(); diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test2_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test2_v deleted file mode 100644 index 8b775b31315..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test2_v +++ /dev/null @@ -1,36 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::bar -main::bar -main::baz - main::bar - main::bar - main::bar - main::foo - main::bar -main::foo - main::bar -}; -report 5, sub { $expected eq $results }; - -dprofpp('-TF'); -report 6, sub { $expected eq $results }; - -dprofpp( '-t' ); -$expected = -qq{main::bar (2x) -main::baz - main::bar (3x) - main::foo - main::bar -main::foo - main::bar -}; -report 7, sub { $expected eq $results }; - -dprofpp('-tF'); -report 8, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test3_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test3_t deleted file mode 100644 index a5327f4d7ad..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test3_t +++ /dev/null @@ -1,19 +0,0 @@ -sub foo { - print "in sub foo\n"; - exit(0); - bar(); -} - -sub bar { - print "in sub bar\n"; -} - -sub baz { - print "in sub baz\n"; - bar(); - foo(); -} - -bar(); -baz(); -foo(); diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test3_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test3_v deleted file mode 100644 index df7543e2b80..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test3_v +++ /dev/null @@ -1,29 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$e1 = $expected = -qq{main::bar -main::baz - main::bar - main::foo -}; -report 9, sub { $expected eq $results }; - -dprofpp('-TF'); -$e2 = $expected = -qq{main::bar -main::baz - main::bar - main::foo -}; -report 10, sub { $expected eq $results }; - -dprofpp( '-t' ); -$expected = $e1; -report 11, sub { 1 }; - -dprofpp('-tF'); -$expected = $e2; -report 12, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t deleted file mode 100644 index 729968270aa..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t +++ /dev/null @@ -1,24 +0,0 @@ -sub foo { - print "in sub foo\n"; - bar(); -} - -sub bar { - print "in sub bar\n"; -} - -sub baz { - print "in sub baz\n"; - bar(); - bar(); - bar(); - foo(); -} - -bar(); - -eval { fork }; - -bar(); -baz(); -foo(); diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test4_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test4_v deleted file mode 100644 index d9677ff7853..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test4_v +++ /dev/null @@ -1,36 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::bar -main::bar -main::baz - main::bar - main::bar - main::bar - main::foo - main::bar -main::foo - main::bar -}; -report 13, sub { $expected eq $results }; - -dprofpp('-TF'); -report 14, sub { $expected eq $results }; - -dprofpp( '-t' ); -$expected = -qq{main::bar (2x) -main::baz - main::bar (3x) - main::foo - main::bar -main::foo - main::bar -}; -report 15, sub { $expected eq $results }; - -dprofpp('-tF'); -report 16, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test5_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test5_t deleted file mode 100644 index 0b1113757fd..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test5_t +++ /dev/null @@ -1,25 +0,0 @@ -# Test that dprof doesn't break -# &bar; used as &bar(@_); - -sub foo1 { - print "in foo1(@_)\n"; - bar(@_); -} -sub foo2 { - print "in foo2(@_)\n"; - &bar; -} -sub bar { - print "in bar(@_)\n"; - if( @_ > 0 ){ - &yeppers; - } -} -sub yeppers { - print "rest easy\n"; -} - - -&foo1( A ); -&foo2( B ); - diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test5_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test5_v deleted file mode 100644 index 9e9298c6896..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test5_v +++ /dev/null @@ -1,15 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::foo1 - main::bar - main::yeppers -main::foo2 - main::bar - main::yeppers -}; -report 17, sub { $expected eq $results }; - diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test6_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test6_t deleted file mode 100644 index 7b8bf4a722b..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test6_t +++ /dev/null @@ -1,29 +0,0 @@ -sub foo { - my $x; - my $y; - print "in sub foo\n"; - for( $x = 1; $x < 100; ++$x ){ - bar(); - for( $y = 1; $y < 100; ++$y ){ - } - } -} - -sub bar { - my $x; - print "in sub bar\n"; - for( $x = 1; $x < 100; ++$x ){ - } - die "bar exiting"; -} - -sub baz { - print "in sub baz\n"; - eval { bar(); }; - eval { foo(); }; -} - -eval { bar(); }; -baz(); -eval { foo(); }; - diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test6_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test6_v deleted file mode 100644 index 2f651ea7945..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test6_v +++ /dev/null @@ -1,16 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::bar -main::baz - main::bar - main::foo - main::bar -main::foo - main::bar -}; -report 18, sub { $expected eq $results }; - diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test7_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test7_t deleted file mode 100644 index 56dbfd341c4..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test7_t +++ /dev/null @@ -1,9 +0,0 @@ -BEGIN { - print "in BEGIN\n"; -} - -sub foo { - print "in sub foo\n"; -} - -foo(); diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test7_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test7_v deleted file mode 100644 index 1d19fe5cd52..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test7_v +++ /dev/null @@ -1,10 +0,0 @@ -# perl - -use V; - -dprofpp( '-T' ); -$expected = -qq{main::BEGIN -main::foo -}; -report 19, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test8_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test8_t deleted file mode 100644 index 6154c8a5307..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test8_t +++ /dev/null @@ -1,15 +0,0 @@ -sub foo { - print "in sub foo\n"; -} - -sub bar { - print "in sub bar\n"; - $^P -= 0x40; -} - -foo(); -$^P -= 0x40; -foo(); -$^P += 0x40; -bar(); -$^P += 0x40; diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test8_v b/Master/tlpkg/tlperl/lib/Devel/DProf/test8_v deleted file mode 100644 index d5de3087fea..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/DProf/test8_v +++ /dev/null @@ -1,11 +0,0 @@ -# perl - -use V; - -dprofpp( '-t' ); -$expected = -qq{main::foo (2x) -main::bar -}; - -report 20, sub { $expected eq $results }; diff --git a/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm b/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm index 614a59a85e5..69f8dcaa447 100644 --- a/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm +++ b/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm @@ -4,7 +4,7 @@ use strict; use base qw(Exporter); use vars qw($VERSION @EXPORT_OK); -$VERSION = '0.3'; +$VERSION = '0.4'; @EXPORT_OK = qw(list_packages); =pod @@ -83,12 +83,12 @@ sub list_packages { sub _loaded { my ($class, $name) = @_; - no strict 'refs'; + no strict 'refs'; # Handle by far the two most common cases # This is very fast and handles 99% of cases. return 1 if defined ${"${name}::VERSION"}; - return 1 if defined @{"${name}::ISA"}; + return 1 if @{"${name}::ISA"}; # Are there any symbol table entries other than other namespaces foreach ( keys %{"${name}::"} ) { diff --git a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm index 5d786f12a50..3748c48b6db 100644 --- a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm +++ b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm @@ -12,13 +12,13 @@ # ################################################################################ # -# $Revision: 65 $ +# $Revision: 67 $ # $Author: mhx $ -# $Date: 2009/06/12 04:10:36 +0200 $ +# $Date: 2010/03/07 13:15:41 +0100 $ # ################################################################################ # -# Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz. +# Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz. # Version 2.x, Copyright (C) 2001, Paul Marquess. # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. # @@ -49,7 +49,7 @@ C<Devel::PPPort> contains a single function, called C<WriteFile>. Its only purpose is to write the F<ppport.h> C header file. This file contains a series of macros and, if explicitly requested, functions that allow XS modules to be built using older versions of Perl. Currently, -Perl versions from 5.003 to 5.10.0 are supported. +Perl versions from 5.003 to 5.11.5 are supported. This module is used by C<h2xs> to write the file F<ppport.h>. @@ -103,7 +103,7 @@ Otherwise it returns a false value. =head1 COMPATIBILITY -F<ppport.h> supports Perl versions from 5.003 to 5.10.0 +F<ppport.h> supports Perl versions from 5.003 to 5.11.5 in threaded and non-threaded configurations. =head2 Provided Perl compatibility API @@ -165,6 +165,8 @@ in older Perl releases: G_METHOD get_av get_cv + get_cvn_flags + get_cvs get_hv get_sv grok_bin @@ -175,6 +177,7 @@ in older Perl releases: grok_oct gv_fetchpvn_flags gv_fetchpvs + gv_fetchsv gv_stashpvn gv_stashpvs GvSVn @@ -208,7 +211,9 @@ in older Perl releases: IVTYPE load_module memEQ + memEQs memNE + memNEs MoveD mPUSHi mPUSHn @@ -237,6 +242,7 @@ in older Perl releases: newSVpvn_utf8 newSVpvs newSVpvs_flags + newSVpvs_share newSVuv Newx Newxc @@ -585,34 +591,214 @@ Perl below which it is unsupported: =over 4 -=item perl 5.11.0 +=item perl 5.14.0 - HeUTF8 + BhkDISABLE + BhkENABLE + BhkENTRY_set MULTICALL PERL_SYS_TERM POP_MULTICALL PUSH_MULTICALL + XopDISABLE + XopENABLE + XopENTRY + XopENTRY_set + cophh_new_empty + my_lstat + my_stat + ref + stashpv_hvname_match + +=item perl 5.13.10 + + foldEQ_utf8_flags + is_utf8_xidcont + is_utf8_xidfirst + +=item perl 5.13.8 + + foldEQ_latin1 + mg_findext + parse_arithexpr + parse_fullexpr + parse_listexpr + parse_termexpr + sv_unmagicext + +=item perl 5.13.7 + + HvENAME + OP_CLASS + SvPV_nomg_nolen + XopFLAGS + amagic_deref_call + bytes_cmp_utf8 + cop_hints_2hv + cop_hints_fetch_pv + cop_hints_fetch_pvn + cop_hints_fetch_pvs + cop_hints_fetch_sv + cophh_2hv + cophh_copy + cophh_delete_pv + cophh_delete_pvn + cophh_delete_pvs + cophh_delete_sv + cophh_fetch_pv + cophh_fetch_pvn + cophh_fetch_pvs + cophh_fetch_sv + cophh_free + cophh_store_pv + cophh_store_pvn + cophh_store_pvs + cophh_store_sv + custom_op_register + custom_op_xop + newFOROP + newWHILEOP + op_lvalue + op_scope + parse_barestmt + parse_block + parse_label + +=item perl 5.13.6 + + LINKLIST + SvTRUE_nomg + ck_entersub_args_list + ck_entersub_args_proto + ck_entersub_args_proto_or_list + cv_get_call_checker + cv_set_call_checker + isWORDCHAR + lex_stuff_pv + mg_free_type + newSVpv_share + op_append_elem + op_append_list + op_contextualize + op_linklist + op_prepend_elem + parse_stmtseq + rv2cv_op_cv + savesharedpvs + savesharedsvpv + sv_2bool_flags + sv_catpv_flags + sv_catpv_nomg + sv_catpvs_flags + sv_catpvs_mg + sv_catpvs_nomg + sv_cmp_flags + sv_cmp_locale_flags + sv_collxfrm_flags + sv_eq_flags + sv_setpvs_mg + sv_setref_pvs + +=item perl 5.13.5 + + PL_rpeepp + caller_cx + isOCTAL + lex_stuff_pvs + parse_fullstmt + +=item perl 5.13.4 + + XS_APIVERSION_BOOTCHECK + +=item perl 5.13.3 + + blockhook_register + croak_no_modify + +=item perl 5.13.2 + + SvNV_nomg + find_rundefsv + foldEQ + foldEQ_locale + foldEQ_utf8 + hv_fill + sv_dec_nomg + sv_inc_nomg + +=item perl 5.13.1 + + croak_sv + die_sv + mess_sv + sv_2nv_flags + warn_sv + +=item perl 5.11.5 + + sv_pos_u2b_flags + +=item perl 5.11.4 + + prescan_version + +=item perl 5.11.2 + + PL_keyword_plugin + lex_bufutf8 + lex_discard_to + lex_grow_linestr + lex_next_chunk + lex_peek_unichar + lex_read_space + lex_read_to + lex_read_unichar + lex_stuff_pvn + lex_stuff_sv + lex_unstuff + pad_findmy + +=item perl 5.11.1 + + ck_warner + ck_warner_d + is_utf8_perl_space + is_utf8_perl_word + is_utf8_posix_digit + +=item perl 5.11.0 + + Gv_AMupdate + PL_opfreehook SvOOK_offset av_iter_p - croak_xs_usage fetch_cop_label + gv_add_by_type gv_fetchmethod_flags - hv_assert + is_ascii_string + pregfree2 + save_adelete + save_aelem_flags + save_hdelete + save_helem_flags + sv_utf8_upgrade_flags_grow + +=item perl 5.10.1 + + HeUTF8 + croak_xs_usage mro_get_from_name mro_get_private_data mro_register mro_set_mro mro_set_private_data - pad_sv - pregfree2 - ref - save_adelete - save_helem_flags + save_hints save_padsv_and_mortalize + save_pushi32ptr save_pushptr - stashpv_hvname_match + save_pushptrptr sv_insert_flags - sv_utf8_upgrade_flags_grow =item perl 5.10.0 @@ -625,13 +811,14 @@ Perl below which it is unsupported: =item perl 5.9.5 + PL_parser Perl_signbit SvRX SvRXOK av_create_and_push av_create_and_unshift_one - get_cvn_flags gv_fetchfile_flags + lex_start mro_get_linear_isa mro_method_changed_in my_dirfd @@ -659,6 +846,7 @@ Perl below which it is unsupported: PerlIO_context_layers gv_name_set + hv_copy_hints_hv my_vsnprintf newXS_flags regclass_swash @@ -685,9 +873,7 @@ Perl below which it is unsupported: is_utf8_string_loclen newGIVENOP newSVhek - newSVpvs_share newWHENOP - newWHILEOP savepvs sortsv_flags vverify @@ -696,7 +882,6 @@ Perl below which it is unsupported: SvPVbyte_force find_rundefsvoffset - gv_fetchsv op_refcnt_lock op_refcnt_unlock savesvpv @@ -748,6 +933,9 @@ Perl below which it is unsupported: =item perl 5.7.3 + OP_DESC + OP_NAME + PL_peepp PerlIO_clearerr PerlIO_close PerlIO_eof @@ -911,8 +1099,6 @@ Perl below which it is unsupported: init_i18nl14n is_uni_alnum is_uni_alnum_lc - is_uni_alnumc - is_uni_alnumc_lc is_uni_alpha is_uni_alpha_lc is_uni_ascii @@ -938,7 +1124,6 @@ Perl below which it is unsupported: is_uni_xdigit is_uni_xdigit_lc is_utf8_alnum - is_utf8_alnumc is_utf8_alpha is_utf8_ascii is_utf8_char @@ -1043,6 +1228,7 @@ Perl below which it is unsupported: runops_debug runops_standard save_iv + save_op screaminstr sv_iv sv_nv @@ -1155,7 +1341,7 @@ Version 3.x was ported back to CPAN by Marcus Holland-Moritz. =head1 COPYRIGHT -Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz. +Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz. Version 2.x, Copyright (C) 2001, Paul Marquess. @@ -1175,7 +1361,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; +$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.20 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; sub _init_data { @@ -1262,7 +1448,7 @@ SKIP |>=head1 COMPATIBILITY |> |>This version of F<ppport.h> is designed to support operation with Perl -|>installations back to 5.003, and has been tested up to 5.10.0. +|>installations back to 5.003, and has been tested up to 5.11.5. |> |>=head1 OPTIONS |> @@ -1564,7 +1750,7 @@ SKIP |> |>=head1 COPYRIGHT |> -|>Version 3.x, Copyright (c) 2004-2009, Marcus Holland-Moritz. +|>Version 3.x, Copyright (c) 2004-2010, Marcus Holland-Moritz. |> |>Version 2.x, Copyright (C) 2001, Paul Marquess. |> @@ -1653,6 +1839,12 @@ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/ : die "invalid spec: $_" } qw( AvFILLp|5.004050||p AvFILL||| +BhkDISABLE||5.014000| +BhkENABLE||5.014000| +BhkENTRY_set||5.014000| +BhkENTRY||| +BhkFLAGS||| +CALL_BLOCK_HOOKS||| CLASS|||n CPERLscope|5.005000||p CX_CURPAD_SAVE||| @@ -1673,7 +1865,7 @@ Copy||| CvPADLIST||| CvSTASH||| CvWEAKOUTSIDE||| -DEFSV_set|5.011000||p +DEFSV_set|5.010001||p DEFSV|5.004050||p END_EXTERN_C|5.005000||p ENTER||| @@ -1695,7 +1887,7 @@ G_VOID||5.004000| GetVars||| GvSVn|5.009003||p GvSV||| -Gv_AMupdate||| +Gv_AMupdate||5.011000| HEf_SVKEY||5.004000| HeHASH||5.004000| HeKEY||5.004000| @@ -1704,8 +1896,9 @@ HePV||5.004000| HeSVKEY_force||5.004000| HeSVKEY_set||5.004000| HeSVKEY||5.004000| -HeUTF8||5.011000| +HeUTF8||5.010001| HeVAL||5.004000| +HvENAME||5.013007| HvNAMELEN_get|5.009003||p HvNAME_get|5.009003||p HvNAME||| @@ -1724,9 +1917,10 @@ IVSIZE|5.006000||p IVTYPE|5.006000||p IVdf|5.006000||p LEAVE||| +LINKLIST||5.013006| LVRET||| MARK||| -MULTICALL||5.011000| +MULTICALL||5.014000| MY_CXT_CLONE|5.009002||p MY_CXT_INIT|5.007003||p MY_CXT|5.007003||p @@ -1746,6 +1940,9 @@ Nullch||| Nullcv||| Nullhv||| Nullsv||| +OP_CLASS||5.013007| +OP_DESC||5.007003| +OP_NAME||5.007003| ORIGMARK||| PAD_BASE_SV||| PAD_CLONE_VARS||| @@ -1767,7 +1964,7 @@ PAD_SV||| PERLIO_FUNCS_CAST|5.009003||p PERLIO_FUNCS_DECL|5.009003||p PERL_ABS|5.008001||p -PERL_BCDVERSION|5.011000||p +PERL_BCDVERSION|5.014000||p PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p PERL_HASH|5.004000||p PERL_INT_MAX|5.004000||p @@ -1785,10 +1982,10 @@ PERL_MAGIC_envelem|5.007002||p PERL_MAGIC_env|5.007002||p PERL_MAGIC_ext|5.007002||p PERL_MAGIC_fm|5.007002||p -PERL_MAGIC_glob|5.011000||p +PERL_MAGIC_glob|5.014000||p PERL_MAGIC_isaelem|5.007002||p PERL_MAGIC_isa|5.007002||p -PERL_MAGIC_mutex|5.011000||p +PERL_MAGIC_mutex|5.014000||p PERL_MAGIC_nkeys|5.007002||p PERL_MAGIC_overload_elem|5.007002||p PERL_MAGIC_overload_table|5.007002||p @@ -1840,7 +2037,7 @@ PERL_SIGNALS_UNSAFE_FLAG|5.008001||p PERL_SUBVERSION|5.006000||p PERL_SYS_INIT3||5.006000| PERL_SYS_INIT||| -PERL_SYS_TERM||5.011000| +PERL_SYS_TERM||5.014000| PERL_UCHAR_MAX|5.004000||p PERL_UCHAR_MIN|5.004000||p PERL_UINT_MAX|5.004000||p @@ -1862,10 +2059,10 @@ PL_DBsingle|||pn PL_DBsub|||pn PL_DBtrace|||pn PL_Sv|5.005000||p -PL_bufend|5.011000||p -PL_bufptr|5.011000||p +PL_bufend|5.014000||p +PL_bufptr|5.014000||p PL_compiling|5.004050||p -PL_copline|5.011000||p +PL_copline|5.014000||p PL_curcop|5.004050||p PL_curstash|5.004050||p PL_debstash|5.004050||p @@ -1874,27 +2071,31 @@ PL_diehook|5.004050||p PL_dirty|5.004050||p PL_dowarn|||pn PL_errgv|5.004050||p -PL_error_count|5.011000||p -PL_expect|5.011000||p +PL_error_count|5.014000||p +PL_expect|5.014000||p PL_hexdigit|5.005000||p PL_hints|5.005000||p -PL_in_my_stash|5.011000||p -PL_in_my|5.011000||p +PL_in_my_stash|5.014000||p +PL_in_my|5.014000||p +PL_keyword_plugin||5.011002| PL_last_in_gv|||n PL_laststatval|5.005000||p -PL_lex_state|5.011000||p -PL_lex_stuff|5.011000||p -PL_linestr|5.011000||p +PL_lex_state|5.014000||p +PL_lex_stuff|5.014000||p +PL_linestr|5.014000||p PL_modglobal||5.005000|n PL_na|5.004050||pn PL_no_modify|5.006000||p PL_ofsgv|||n -PL_parser|5.009005||p +PL_opfreehook||5.011000|n +PL_parser|5.009005|5.009005|p +PL_peepp||5.007003|n PL_perl_destruct_level|5.004050||p PL_perldb|5.004050||p PL_ppaddr|5.006000||p -PL_rsfp_filters|5.004050||p -PL_rsfp|5.004050||p +PL_rpeepp||5.013005|n +PL_rsfp_filters|5.014000||p +PL_rsfp|5.014000||p PL_rs|||n PL_signals|5.008001||p PL_stack_base|5.004050||p @@ -1907,8 +2108,8 @@ PL_sv_undef|5.004050||pn PL_sv_yes|5.004050||pn PL_tainted|5.004050||p PL_tainting|5.004050||p -PL_tokenbuf|5.011000||p -POP_MULTICALL||5.011000| +PL_tokenbuf|5.014000||p +POP_MULTICALL||5.014000| POPi|||n POPl|||n POPn|||n @@ -1923,7 +2124,7 @@ PTR2nat|5.009003||p PTR2ul|5.007001||p PTRV|5.006000||p PUSHMARK||| -PUSH_MULTICALL||5.011000| +PUSH_MULTICALL||5.014000| PUSHi||| PUSHmortal|5.009002||p PUSHn||| @@ -2034,6 +2235,7 @@ SvNOK_on||| SvNOKp||| SvNOK||| SvNVX||| +SvNV_nomg||5.013002| SvNV_set||| SvNVx||| SvNV||| @@ -2067,6 +2269,7 @@ SvPV_nolen_const|5.009003||p SvPV_nolen|5.006000||p SvPV_nomg_const_nolen|5.009003||p SvPV_nomg_const|5.009003||p +SvPV_nomg_nolen||5.013007| SvPV_nomg|5.007002||p SvPV_renew|5.009003||p SvPV_set||| @@ -2112,6 +2315,7 @@ SvTAINTED_off||5.004000| SvTAINTED_on||5.004000| SvTAINTED||5.004000| SvTAINT||| +SvTRUE_nomg||5.013006| SvTRUE||| SvTYPE||| SvUNLOCK||5.007003| @@ -2139,7 +2343,7 @@ UVuf|5.006000||p UVxf|5.006000||p WARN_ALL|5.006000||p WARN_AMBIGUOUS|5.006000||p -WARN_ASSERTIONS|5.011000||p +WARN_ASSERTIONS|5.014000||p WARN_BAREWORD|5.006000||p WARN_CLOSED|5.006000||p WARN_CLOSURE|5.006000||p @@ -2211,37 +2415,52 @@ XST_mPV||| XST_mUNDEF||| XST_mUV|5.008001||p XST_mYES||| +XS_APIVERSION_BOOTCHECK||5.013004| XS_VERSION_BOOTCHECK||| XS_VERSION||| XSprePUSH|5.006000||p XS||| +XopDISABLE||5.014000| +XopENABLE||5.014000| +XopENTRY_set||5.014000| +XopENTRY||5.014000| +XopFLAGS||5.013007| ZeroD|5.009002||p Zero||| _aMY_CXT|5.007003||p +_append_range_to_invlist||| +_new_invlist||| _pMY_CXT|5.007003||p +_swash_inversion_hash||| +_swash_to_invlist||| aMY_CXT_|5.007003||p aMY_CXT|5.007003||p -aTHXR_|5.011000||p -aTHXR|5.011000||p +aTHXR_|5.014000||p +aTHXR|5.014000||p aTHX_|5.006000||p aTHX|5.006000||p +add_alternate||| +add_cp_to_invlist||| add_data|||n +add_range_to_invlist||| +add_utf16_textfilter||| addmad||| allocmy||| amagic_call||| amagic_cmp_locale||| amagic_cmp||| +amagic_deref_call||5.013007| amagic_i_ncmp||| amagic_ncmp||| +anonymise_cv_maybe||| any_dup||| ao||| -append_elem||| -append_list||| append_madprops||| apply_attrs_my||| apply_attrs_string||5.006001| apply_attrs||| apply||| +assert_uft8_cache_coherent||| atfork_lock||5.007003|n atfork_unlock||5.007003|n av_arylen_p||5.009003| @@ -2269,10 +2488,12 @@ bind_match||| block_end||| block_gimme||5.004000| block_start||| +blockhook_register||5.013003| boolSV|5.004000||p boot_core_PerlIO||| boot_core_UNIVERSAL||| boot_core_mro||| +bytes_cmp_utf8||5.013007| bytes_from_utf8||5.007001| bytes_to_uni|||n bytes_to_utf8||5.006001| @@ -2282,6 +2503,7 @@ call_list||5.004000| call_method|5.006000||p call_pv|5.006000||p call_sv|5.006000||p +caller_cx||5.013005| calloc||5.007002|n cando||| cast_i32||5.006000| @@ -2290,76 +2512,73 @@ cast_ulong||5.006000| cast_uv||5.006000| check_type_and_open||| check_uni||| +check_utf8_print||| checkcomma||| checkposixcc||| ckWARN|5.006000||p -ck_anoncode||| -ck_bitop||| -ck_concat||| -ck_defined||| -ck_delete||| -ck_die||| -ck_each||| -ck_eof||| -ck_eval||| -ck_exec||| -ck_exists||| -ck_exit||| -ck_ftst||| -ck_fun||| -ck_glob||| -ck_grep||| -ck_index||| -ck_join||| -ck_lfun||| -ck_listiob||| -ck_match||| -ck_method||| -ck_null||| -ck_open||| -ck_readline||| -ck_repeat||| -ck_require||| -ck_return||| -ck_rfun||| -ck_rvconst||| -ck_sassign||| -ck_select||| -ck_shift||| -ck_sort||| -ck_spair||| -ck_split||| -ck_subr||| -ck_substr||| -ck_svconst||| -ck_trunc||| -ck_unpack||| +ck_entersub_args_list||5.013006| +ck_entersub_args_proto_or_list||5.013006| +ck_entersub_args_proto||5.013006| +ck_warner_d||5.011001|v +ck_warner||5.011001|v +ckwarn_common||| ckwarn_d||5.009003| ckwarn||5.009003| cl_and|||n cl_anything|||n -cl_init_zero|||n cl_init|||n cl_is_anything|||n cl_or|||n clear_placeholders||| +clone_params_del|||n +clone_params_new|||n closest_cop||| convert||| cop_free||| +cop_hints_2hv||5.013007| +cop_hints_fetch_pvn||5.013007| +cop_hints_fetch_pvs||5.013007| +cop_hints_fetch_pv||5.013007| +cop_hints_fetch_sv||5.013007| +cophh_2hv||5.013007| +cophh_copy||5.013007| +cophh_delete_pvn||5.013007| +cophh_delete_pvs||5.013007| +cophh_delete_pv||5.013007| +cophh_delete_sv||5.013007| +cophh_fetch_pvn||5.013007| +cophh_fetch_pvs||5.013007| +cophh_fetch_pv||5.013007| +cophh_fetch_sv||5.013007| +cophh_free||5.013007| +cophh_new_empty||5.014000| +cophh_store_pvn||5.013007| +cophh_store_pvs||5.013007| +cophh_store_pv||5.013007| +cophh_store_sv||5.013007| cr_textfilter||| create_eval_scope||| +croak_no_modify||5.013003| croak_nocontext|||vn -croak_xs_usage||5.011000| +croak_sv||5.013001| +croak_xs_usage||5.010001| croak|||v csighandler||5.009003|n curmad||| +curse||| custom_op_desc||5.007003| custom_op_name||5.007003| +custom_op_register||5.013007| +custom_op_xop||5.013007| cv_ckproto_len||| cv_clone||| cv_const_sv||5.004000| cv_dump||| +cv_get_call_checker||5.013006| +cv_set_call_checker||5.013006| cv_undef||| +cvgv_set||| +cvstash_set||| cx_dump||5.005000| cx_dup||| cxinc||| @@ -2374,7 +2593,7 @@ dNOOP|5.006000||p dORIGMARK||| dSP||| dTHR|5.004050||p -dTHXR|5.011000||p +dTHXR|5.014000||p dTHXa|5.006000||p dTHXoa|5.006000||p dTHX|5.006000||p @@ -2397,13 +2616,13 @@ debug_start_match||| deb||5.007003|v del_sv||| delete_eval_scope||| -delimcpy||5.004000| -deprecate_old||| -deprecate||| +delimcpy||5.004000|n +deprecate_commaless_var_list||| despatch_signals||5.007001| destroy_matcher||| die_nocontext|||vn -die_where||| +die_sv||5.013001| +die_unwind||| die|||v dirp_dup||| div128||| @@ -2413,8 +2632,8 @@ do_aexec||| do_aspawn||| do_binmode||5.004050| do_chomp||| -do_chop||| do_close||| +do_delete_local||| do_dump_pad||| do_eof||| do_exec3||| @@ -2426,7 +2645,6 @@ do_hv_dump||5.006000| do_ipcctl||| do_ipcget||| do_join||| -do_kv||| do_magic_dump||5.006000| do_msgrcv||| do_msgsnd||| @@ -2478,6 +2696,7 @@ dopoptowhen||| doref||5.009003| dounwind||| dowantarray||| +dump_all_perl||| dump_all||5.006000| dump_eval||5.006000| dump_exec_pos||| @@ -2485,7 +2704,9 @@ dump_fds||| dump_form||5.006000| dump_indent||5.006000|v dump_mstats||| +dump_packsubs_perl||| dump_packsubs||5.006000| +dump_sub_perl||| dump_sub||5.006000| dump_sv_child||| dump_trie_interim_list||| @@ -2515,14 +2736,21 @@ find_hash_subscript||| find_in_my_stash||| find_runcv||5.008001| find_rundefsvoffset||5.009002| +find_rundefsv||5.013002| find_script||| find_uninit_var||| first_symbol|||n +foldEQ_latin1||5.013008|n +foldEQ_locale||5.013002|n +foldEQ_utf8_flags||5.013010| +foldEQ_utf8||5.013002| +foldEQ||5.013002|n fold_constants||| forbid_setid||| force_ident||| force_list||| force_next||| +force_strict_version||| force_version||| force_word||| forget_pmop||| @@ -2534,17 +2762,16 @@ free_global_struct||| free_tied_hv_pool||| free_tmps||| gen_constant_list||| -get_arena||| get_aux_mg||| get_av|5.006000||p get_context||5.006000|n -get_cvn_flags||5.009005| +get_cvn_flags|5.009005||p +get_cvs|5.011000||p get_cv|5.006000||p get_db_sub||| get_debug_opts||| get_hash_seed||| get_hv|5.006000||p -get_isa_hash||| get_mstats||| get_no_modify||| get_num||| @@ -2564,6 +2791,8 @@ gp_dup||| gp_free||| gp_ref||| grok_bin|5.007003||p +grok_bslash_c||| +grok_bslash_o||| grok_hex|5.007003||p grok_number|5.007002||p grok_numeric_radix|5.007002||p @@ -2573,6 +2802,7 @@ gv_AVadd||| gv_HVadd||| gv_IOadd||| gv_SVadd||| +gv_add_by_type||5.011000| gv_autoload4||5.004000| gv_check||| gv_const_sv||5.009003| @@ -2591,7 +2821,7 @@ gv_fetchmeth||| gv_fetchpvn_flags|5.009002||p gv_fetchpvs|5.009004||p gv_fetchpv||| -gv_fetchsv||5.009002| +gv_fetchsv|5.009002||p gv_fullname3||5.004000| gv_fullname4||5.006001| gv_fullname||| @@ -2599,34 +2829,40 @@ gv_get_super_pkg||| gv_handler||5.007001| gv_init_sv||| gv_init||| +gv_magicalize_isa||| +gv_magicalize_overload||| gv_name_set||5.009004| gv_stashpvn|5.004000||p gv_stashpvs|5.009003||p gv_stashpv||| gv_stashsv||| +gv_try_downgrade||| he_dup||| hek_dup||| hfreeentries||| hsplit||| -hv_assert||5.011000| +hv_assert||| hv_auxinit|||n hv_backreferences_p||| hv_clear_placeholders||5.009001| hv_clear||| hv_common_key_len||5.010000| hv_common||5.010000| -hv_copy_hints_hv||| +hv_copy_hints_hv||5.009004| hv_delayfree_ent||5.004000| hv_delete_common||| hv_delete_ent||5.004000| hv_delete||| hv_eiter_p||5.009003| hv_eiter_set||5.009003| +hv_ename_add||| +hv_ename_delete||| hv_exists_ent||5.004000| hv_exists||| hv_fetch_ent||5.004000| hv_fetchs|5.009003||p hv_fetch||| +hv_fill||5.013002| hv_free_ent||5.004000| hv_iterinit||| hv_iterkeysv||5.004000| @@ -2651,6 +2887,7 @@ hv_store_ent||5.004000| hv_store_flags||5.008000| hv_stores|5.009004||p hv_store||| +hv_undef_flags||| hv_undef||| ibcmp_locale||5.004000| ibcmp_utf8||5.007003| @@ -2661,6 +2898,7 @@ incpush_use_sep||| incpush||| ingroup||| init_argv_symbols||| +init_dbargs||| init_debugger||| init_global_struct||| init_i18nl10n||5.006000| @@ -2673,14 +2911,25 @@ init_postdump_symbols||| init_predump_symbols||| init_stacks||5.005000| init_tm||5.007002| -instr||| +instr|||n intro_my||| intuit_method||| intuit_more||| invert||| +invlist_array||| +invlist_destroy||| +invlist_extend||| +invlist_intersection||| +invlist_len||| +invlist_max||| +invlist_set_array||| +invlist_set_len||| +invlist_set_max||| +invlist_trim||| +invlist_union||| +invoke_exception_hook||| io_close||| isALNUMC|5.006000||p -isALNUM||| isALPHA||| isASCII|5.006000||p isBLANK|5.006001||p @@ -2689,20 +2938,22 @@ isDIGIT||| isGRAPH|5.006000||p isGV_with_GP|5.009004||p isLOWER||| +isOCTAL||5.013005| isPRINT|5.004000||p isPSXSPC|5.006001||p isPUNCT|5.006000||p isSPACE||| isUPPER||| +isWORDCHAR||5.013006| isXDIGIT|5.006000||p is_an_int||| +is_ascii_string||5.011000|n is_gv_magical_sv||| is_handle_constructor|||n +is_inplace_av||| is_list_assignment||| is_lvalue_sub||5.007001| is_uni_alnum_lc||5.006000| -is_uni_alnumc_lc||5.006000| -is_uni_alnumc||5.006000| is_uni_alnum||5.006000| is_uni_alpha_lc||5.006000| is_uni_alpha||5.006000| @@ -2728,12 +2979,21 @@ is_uni_upper_lc||5.006000| is_uni_upper||5.006000| is_uni_xdigit_lc||5.006000| is_uni_xdigit||5.006000| -is_utf8_alnumc||5.006000| +is_utf8_X_LVT||| +is_utf8_X_LV_LVT_V||| +is_utf8_X_LV||| +is_utf8_X_L||| +is_utf8_X_T||| +is_utf8_X_V||| +is_utf8_X_begin||| +is_utf8_X_extend||| +is_utf8_X_non_hangul||| +is_utf8_X_prepend||| is_utf8_alnum||5.006000| is_utf8_alpha||5.006000| is_utf8_ascii||5.006000| is_utf8_char_slow|||n -is_utf8_char||5.006000| +is_utf8_char||5.006000|n is_utf8_cntrl||5.006000| is_utf8_common||| is_utf8_digit||5.006000| @@ -2742,24 +3002,41 @@ is_utf8_idcont||5.008000| is_utf8_idfirst||5.006000| is_utf8_lower||5.006000| is_utf8_mark||5.006000| +is_utf8_perl_space||5.011001| +is_utf8_perl_word||5.011001| +is_utf8_posix_digit||5.011001| is_utf8_print||5.006000| is_utf8_punct||5.006000| is_utf8_space||5.006000| -is_utf8_string_loclen||5.009003| -is_utf8_string_loc||5.008001| -is_utf8_string||5.006001| +is_utf8_string_loclen||5.009003|n +is_utf8_string_loc||5.008001|n +is_utf8_string||5.006001|n is_utf8_upper||5.006000| is_utf8_xdigit||5.006000| +is_utf8_xidcont||5.013010| +is_utf8_xidfirst||5.013010| isa_lookup||| items|||n ix|||n jmaybe||| join_exact||| +keyword_plugin_standard||| keyword||| leave_scope||| -lex_end||| -lex_start||| -linklist||| +lex_bufutf8||5.011002| +lex_discard_to||5.011002| +lex_grow_linestr||5.011002| +lex_next_chunk||5.011002| +lex_peek_unichar||5.011002| +lex_read_space||5.011002| +lex_read_to||5.011002| +lex_read_unichar||5.011002| +lex_start||5.009005| +lex_stuff_pvn||5.011002| +lex_stuff_pvs||5.013005| +lex_stuff_pv||5.013006| +lex_stuff_sv||5.011002| +lex_unstuff||5.011002| listkids||| list||| load_module_nocontext|||vn @@ -2771,18 +3048,19 @@ lop||| mPUSHi|5.009002||p mPUSHn|5.009002||p mPUSHp|5.009002||p -mPUSHs|5.011000||p +mPUSHs|5.010001||p mPUSHu|5.009002||p mXPUSHi|5.009002||p mXPUSHn|5.009002||p mXPUSHp|5.009002||p -mXPUSHs|5.011000||p +mXPUSHs|5.010001||p mXPUSHu|5.009002||p mad_free||| madlex||| madparse||| magic_clear_all_env||| magic_clearenv||| +magic_clearhints||| magic_clearhint||| magic_clearisa||| magic_clearpack||| @@ -2804,7 +3082,8 @@ magic_getvec||| magic_get||| magic_killbackrefs||| magic_len||| -magic_methcall||| +magic_methcall1||| +magic_methcall|||v magic_methpack||| magic_nextpack||| magic_regdata_cnt||| @@ -2843,19 +3122,24 @@ malloc||5.007002|n markstack_grow||| matcher_matches_sv||| measure_struct||| +memEQs|5.009005||p memEQ|5.004000||p +memNEs|5.009005||p memNE|5.004000||p mem_collxfrm||| mem_log_common|||n mess_alloc||| mess_nocontext|||vn +mess_sv||5.013001| mess||5.006000|v method_common||| mfree||5.007002|n mg_clear||| mg_copy||| mg_dup||| +mg_findext||5.013008| mg_find||| +mg_free_type||5.013006| mg_free||| mg_get||| mg_length||5.005000| @@ -2871,19 +3155,23 @@ mod||| more_bodies||| more_sv||| moreswitches||| -mro_get_from_name||5.011000| +mro_clean_isarev||| +mro_gather_and_rename||| +mro_get_from_name||5.010001| mro_get_linear_isa_dfs||| mro_get_linear_isa||5.009005| -mro_get_private_data||5.011000| +mro_get_private_data||5.010001| mro_isa_changed_in||| mro_meta_dup||| mro_meta_init||| mro_method_changed_in||5.009005| -mro_register||5.011000| -mro_set_mro||5.011000| -mro_set_private_data||5.011000| +mro_package_moved||| +mro_register||5.010001| +mro_set_mro||5.010001| +mro_set_private_data||5.010001| mul128||| mulexp10|||n +munge_qwlist_to_paren_list||| my_atof2||5.007002| my_atof||5.006000| my_attrs||| @@ -2925,7 +3213,8 @@ my_letoh64|||n my_letohi|||n my_letohl|||n my_letohs|||n -my_lstat||| +my_lstat_flags||| +my_lstat||5.014000| my_memcmp||5.004000|n my_memset|||n my_ntohl||| @@ -2936,7 +3225,8 @@ my_setenv||| my_snprintf|5.009004||pvn my_socketpair||5.007003|n my_sprintf|5.009003||pvn -my_stat||| +my_stat_flags||| +my_stat||5.014000| my_strftime||5.007002| my_strlcat|5.009004||pn my_strlcpy|5.009004||pn @@ -2959,7 +3249,7 @@ newCONSTSUB|5.004050||p newCVREF||| newDEFSVOP||| newFORM||| -newFOROP||| +newFOROP||5.013007| newGIVENOP||5.009003| newGIVWHENOP||| newGP||| @@ -2996,14 +3286,15 @@ newSV_type|5.009005||p newSVhek||5.009003| newSViv||| newSVnv||| +newSVpv_share||5.013006| newSVpvf_nocontext|||vn newSVpvf||5.004000|v -newSVpvn_flags|5.011000||p +newSVpvn_flags|5.010001||p newSVpvn_share|5.007001||p -newSVpvn_utf8|5.011000||p +newSVpvn_utf8|5.010001||p newSVpvn|5.004050||p -newSVpvs_flags|5.011000||p -newSVpvs_share||5.009003| +newSVpvs_flags|5.010001||p +newSVpvs_share|5.009003||p newSVpvs|5.009003||p newSVpv||| newSVrv||| @@ -3013,7 +3304,7 @@ newSV||| newTOKEN||| newUNOP||| newWHENOP||5.009003| -newWHILEOP||5.009003| +newWHILEOP||5.013007| newXS_flags||5.009004| newXSproto||5.006000| newXS||5.006000| @@ -3029,7 +3320,7 @@ new_warnings_bitfield||| next_symbol||| nextargv||| nextchar||| -ninstr||| +ninstr|||n no_bareword_allowed||| no_fh_allowed||| no_op||| @@ -3037,22 +3328,29 @@ not_a_number||| nothreadhook||5.008000| nuke_stacks||| num_overflow|||n -offer_nice_chunk||| oopsAV||| oopsHV||| +op_append_elem||5.013006| +op_append_list||5.013006| op_clear||| op_const_sv||| +op_contextualize||5.013006| op_dump||5.006000| op_free||| op_getmad_weak||| op_getmad||| +op_linklist||5.013006| +op_lvalue||5.013007| op_null||5.007002| +op_prepend_elem||5.013006| op_refcnt_dec||| op_refcnt_inc||| op_refcnt_lock||5.009002| op_refcnt_unlock||5.009002| +op_scope||5.013007| op_xmldump||| open_script||| +opt_scalarhv||| pMY_CXT_|5.007003||p pMY_CXT|5.007003||p pTHX_|5.006000||p @@ -3060,16 +3358,18 @@ pTHX|5.006000||p packWARN|5.007003||p pack_cat||5.007003| pack_rec||| +package_version||| package||| packlist||5.008001| pad_add_anon||| +pad_add_name_sv||| pad_add_name||| pad_alloc||| pad_block_start||| pad_check_dup||| pad_compname_type||| pad_findlex||| -pad_findmy||| +pad_findmy||5.011002| pad_fixup_inner_anons||| pad_free||| pad_leavemy||| @@ -3078,11 +3378,20 @@ pad_peg|||n pad_push||| pad_reset||| pad_setsv||| -pad_sv||5.011000| +pad_sv||| pad_swipe||| pad_tidy||| -pad_undef||| +padlist_dup||| +parse_arithexpr||5.013008| +parse_barestmt||5.013007| +parse_block||5.013007| parse_body||| +parse_fullexpr||5.013008| +parse_fullstmt||5.013005| +parse_label||5.013007| +parse_listexpr||5.013008| +parse_stmtseq||5.013006| +parse_termexpr||5.013008| parse_unicode_opts||| parser_dup||| parser_free||| @@ -3100,18 +3409,18 @@ perl_parse||5.006000|n perl_run|||n pidgone||| pm_description||| -pmflag||| pmop_dump||5.006000| pmop_xmldump||| pmruntime||| pmtrans||| pop_scope||| +populate_isa|||v pregcomp||5.009005| pregexec||| pregfree2||5.011000| pregfree||| -prepend_elem||| prepend_madprops||| +prescan_version||5.011004| printbuf||| printf_nocontext|||vn process_special_blocks||| @@ -3143,14 +3452,20 @@ reentrant_retry|||vn reentrant_size||| ref_array_or_hash||| refcounted_he_chain_2hv||| -refcounted_he_fetch||| +refcounted_he_fetch_pvn||| +refcounted_he_fetch_pvs||| +refcounted_he_fetch_pv||| +refcounted_he_fetch_sv||| refcounted_he_free||| -refcounted_he_new_common||| -refcounted_he_new||| +refcounted_he_inc||| +refcounted_he_new_pvn||| +refcounted_he_new_pvs||| +refcounted_he_new_pv||| +refcounted_he_new_sv||| refcounted_he_value||| refkids||| refto||| -ref||5.011000| +ref||5.014000| reg_check_named_buff_matched||| reg_named_buff_all||5.009005| reg_named_buff_exists||5.009005| @@ -3177,7 +3492,7 @@ regclass_swash||5.009004| regclass||| regcppop||| regcppush||| -regcurly|||n +regcurly||| regdump_extflags||| regdump||5.005000| regdupe_internal||| @@ -3201,13 +3516,15 @@ regtry||| reguni||| regwhite|||n reg||| -repeatcpy||| +repeatcpy|||n report_evil_fh||| report_uninit||| +report_wrongway_fh||| require_pv||5.006000| require_tie_mod||| restore_magic||| -rninstr||| +rninstr|||n +rpeep||| rsignal_restore||| rsignal_save||| rsignal_state||5.004000| @@ -3216,6 +3533,7 @@ run_body||| run_user_filter||| runops_debug||5.005000| runops_standard||5.005000| +rv2cv_op_cv||5.013006| rvpv_dup||| rxres_free||| rxres_restore||| @@ -3229,6 +3547,7 @@ save_I16||5.004000| save_I32||| save_I8||5.006000| save_adelete||5.011000| +save_aelem_flags||5.011000| save_aelem||5.004050| save_alloc||5.006000| save_aptr||| @@ -3245,10 +3564,11 @@ save_generic_pvref||5.006001| save_generic_svref||5.005030| save_gp||5.004000| save_hash||| +save_hdelete||5.011000| save_hek_flags|||n save_helem_flags||5.011000| save_helem||5.004050| -save_hints||| +save_hints||5.010001| save_hptr||| save_int||| save_item||| @@ -3259,13 +3579,13 @@ save_long||| save_magic||| save_mortalizesv||5.007001| save_nogv||| -save_op||| -save_padsv_and_mortalize||5.011000| +save_op||5.005000| +save_padsv_and_mortalize||5.010001| save_pptr||| -save_pushi32ptr||| +save_pushi32ptr||5.010001| save_pushptri32ptr||| -save_pushptrptr||| -save_pushptr||5.011000| +save_pushptrptr||5.010001| +save_pushptr||5.010001| save_re_context||5.006000| save_scalar_at||| save_scalar||| @@ -3278,7 +3598,9 @@ savepvn||| savepvs||5.009003| savepv||| savesharedpvn||5.009005| +savesharedpvs||5.013006| savesharedpv||5.007003| +savesharedsvpv||5.013006| savestack_grow_cnt||5.008001| savestack_grow||| savesvpv||5.009002| @@ -3306,7 +3628,6 @@ scan_trans||| scan_version||5.009001| scan_vstring||5.009005| scan_word||| -scope||| screaminstr||5.005000| search_const||| seed||5.008001| @@ -3317,6 +3638,8 @@ set_context||5.006000|n set_numeric_local||5.006000| set_numeric_radix||5.006000| set_numeric_standard||5.006000| +set_regclass_bit_fold||| +set_regclass_bit||| setdefout||| share_hek_flags||| share_hek||5.004000| @@ -3339,7 +3662,7 @@ stack_grow||| start_force||| start_glob||| start_subparse||5.004000| -stashpv_hvname_match||5.011000| +stashpv_hvname_match||5.014000| stdize_locale||| store_cop_label||| strEQ||| @@ -3357,6 +3680,7 @@ sub_crush_depth||| sublex_done||| sublex_push||| sublex_start||| +sv_2bool_flags||5.013006| sv_2bool||| sv_2cv||| sv_2io||| @@ -3366,7 +3690,7 @@ sv_2iv_flags||5.009001| sv_2iv||| sv_2mortal||| sv_2num||| -sv_2nv||| +sv_2nv_flags||5.013001| sv_2pv_flags|5.007002||p sv_2pv_nolen|5.006000||p sv_2pvbyte_nolen|5.006000||p @@ -3381,7 +3705,9 @@ sv_add_backref||| sv_backoff||| sv_bless||| sv_cat_decode||5.008001| +sv_catpv_flags||5.013006| sv_catpv_mg|5.004050||p +sv_catpv_nomg||5.013006| sv_catpvf_mg_nocontext|||pvn sv_catpvf_mg|5.006000|5.004000|pv sv_catpvf_nocontext|||vn @@ -3390,6 +3716,9 @@ sv_catpvn_flags||5.007002| sv_catpvn_mg|5.004050||p sv_catpvn_nomg|5.007002||p sv_catpvn||| +sv_catpvs_flags||5.013006| +sv_catpvs_mg||5.013006| +sv_catpvs_nomg||5.013006| sv_catpvs|5.009003||p sv_catpv||| sv_catsv_flags||5.007002| @@ -3397,24 +3726,33 @@ sv_catsv_mg|5.004050||p sv_catsv_nomg|5.007002||p sv_catsv||| sv_catxmlpvn||| +sv_catxmlpv||| sv_catxmlsv||| sv_chop||| sv_clean_all||| sv_clean_objs||| sv_clear||| +sv_cmp_flags||5.013006| +sv_cmp_locale_flags||5.013006| sv_cmp_locale||5.004000| sv_cmp||| +sv_collxfrm_flags||5.013006| sv_collxfrm||| +sv_compile_2op_is_broken||| sv_compile_2op||5.008001| sv_copypv||5.007003| +sv_dec_nomg||5.013002| sv_dec||| sv_del_backref||| sv_derived_from||5.004000| sv_destroyable||5.010000| sv_does||5.009004| sv_dump||| +sv_dup_common||| sv_dup_inc_multiple||| +sv_dup_inc||| sv_dup||| +sv_eq_flags||5.013006| sv_eq||| sv_exp_grow||| sv_force_normal_flags||5.007001| @@ -3425,8 +3763,9 @@ sv_free||| sv_gets||5.004000| sv_grow||| sv_i_ncmp||| +sv_inc_nomg||5.013002| sv_inc||| -sv_insert_flags||5.011000| +sv_insert_flags||5.010001| sv_insert||| sv_isa||| sv_isobject||| @@ -3434,7 +3773,7 @@ sv_iv||5.005000| sv_kill_backrefs||| sv_len_utf8||5.006000| sv_len||| -sv_magic_portable|5.011000|5.004000|p +sv_magic_portable|5.014000|5.004000|p sv_magicext||5.007003| sv_magic||| sv_mortalcopy||| @@ -3449,6 +3788,7 @@ sv_peek||5.005000| sv_pos_b2u_midway||| sv_pos_b2u||5.006000| sv_pos_u2b_cached||| +sv_pos_u2b_flags||5.011005| sv_pos_u2b_forwards|||n sv_pos_u2b_midway|||n sv_pos_u2b||5.006000| @@ -3483,11 +3823,13 @@ sv_setpviv_mg||5.008001| sv_setpviv||5.008001| sv_setpvn_mg|5.004050||p sv_setpvn||| +sv_setpvs_mg||5.013006| sv_setpvs|5.009004||p sv_setpv||| sv_setref_iv||| sv_setref_nv||| sv_setref_pvn||| +sv_setref_pvs||5.013006| sv_setref_pv||| sv_setref_uv||5.007001| sv_setsv_cow||| @@ -3502,6 +3844,7 @@ sv_taint||5.004000| sv_true||5.005000| sv_unglob||| sv_uni_display||5.007003| +sv_unmagicext||5.013008| sv_unmagic||| sv_unref_flags||5.007001| sv_unref||| @@ -3527,7 +3870,6 @@ sv_vsetpvf|5.006000|5.004000|p sv_xmlpeek||| svtype||| swallow_bom||| -swap_match_buff||| swash_fetch||5.007002| swash_get||| swash_init||5.006000| @@ -3539,6 +3881,7 @@ sys_intern_init||| sys_term||5.010000|n taint_env||| taint_proper||| +tied_method|||v tmps_grow||5.006000| toLOWER||| toUPPER||| @@ -3563,11 +3906,14 @@ tokeq||| tokereport||| too_few_arguments||| too_many_arguments||| +try_amagic_bin||| +try_amagic_un||| uiv_2buf|||n unlnk||| unpack_rec||| unpack_str||5.007003| unpackstring||5.008001| +unreferenced_to_tmp_stack||| unshare_hek_or_pvn||| unshare_hek||| unsharepvn||5.004000| @@ -3575,11 +3921,13 @@ unwind_handler_stack||| update_debugger_info||| upg_version||5.009005| usage||| +utf16_textfilter||| utf16_to_utf8_reversed||5.006001| utf16_to_utf8||5.006001| utf8_distance||5.006000| utf8_hop||5.006000| utf8_length||5.007001| +utf8_mg_len_cache_update||| utf8_mg_pos_cache_update||| utf8_to_bytes||5.006001| utf8_to_uvchr||5.007001| @@ -3596,9 +3944,6 @@ varname||| vcmp||5.009000| vcroak||5.006000| vdeb||5.007003| -vdie_common||| -vdie_croak_common||| -vdie||| vform||5.006000| visit||| vivify_defelem||| @@ -3614,24 +3959,32 @@ vwarner||5.006000| vwarn||5.006000| wait4pid||| warn_nocontext|||vn +warn_sv||5.013001| warner_nocontext|||vn warner|5.006000|5.004000|pv warn|||v watch||| whichsig||| +with_queued_errors||| write_no_mem||| write_to_stderr||| +xmldump_all_perl||| xmldump_all||| xmldump_attr||| xmldump_eval||| xmldump_form||| xmldump_indent|||v +xmldump_packsubs_perl||| xmldump_packsubs||| +xmldump_sub_perl||| xmldump_sub||| xmldump_vindent||| +xs_apiversion_bootcheck||| +xs_version_bootcheck||| yyerror||| yylex||| yyparse||| +yyunlex||| yywarn||| ); @@ -4865,6 +5218,14 @@ __DATA__ #endif #endif +#ifndef memEQs +# define memEQs(s1, l, s2) \ + (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1))) +#endif + +#ifndef memNEs +# define memNEs(s1, l, s2) !memEQs(s1, l, s2) +#endif #ifndef MoveD # define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t)) #endif @@ -5233,11 +5594,11 @@ typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*); #endif #ifndef isASCII -# define isASCII(c) ((c) <= 127) +# define isASCII(c) ((U8) (c) <= 127) #endif #ifndef isCNTRL -# define isCNTRL(c) ((c) < ' ' || (c) == 127) +# define isCNTRL(c) ((U8) (c) < ' ' || (c) == 127) #endif #ifndef isGRAPH @@ -6520,6 +6881,12 @@ DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...) } STMT_END #endif +/* Hint: newSVpvn_share + * The SVs created by this function only mimic the behaviour of + * shared PVs without really being shared. Only use if you know + * what you're doing. + */ + #ifndef newSVpvn_share #if defined(NEED_newSVpvn_share) @@ -6572,6 +6939,17 @@ DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash) #ifndef isGV_with_GP # define isGV_with_GP(gv) isGV(gv) #endif + +#ifndef gv_fetchpvn_flags +# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt) +#endif + +#ifndef gv_fetchsv +# define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt) +#endif +#ifndef get_cvn_flags +# define get_cvn_flags(name, namelen, flags) get_cv(name, flags) +#endif #ifndef WARN_ALL # define WARN_ALL 0 #endif @@ -6820,6 +7198,10 @@ DPPP_(my_warner)(U32 err, const char *pat, ...) # define newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags) #endif +#ifndef newSVpvs_share +# define newSVpvs_share(str) newSVpvn_share(str "", sizeof(str) - 1, 0) +#endif + #ifndef sv_catpvs # define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1) #endif @@ -6835,10 +7217,6 @@ DPPP_(my_warner)(U32 err, const char *pat, ...) #ifndef hv_stores # define hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0) #endif -#ifndef gv_fetchpvn_flags -# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt) -#endif - #ifndef gv_fetchpvs # define gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt) #endif @@ -6846,6 +7224,9 @@ DPPP_(my_warner)(U32 err, const char *pat, ...) #ifndef gv_stashpvs # define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags) #endif +#ifndef get_cvs +# define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags) +#endif #ifndef SvGETMAGIC # define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END #endif diff --git a/Master/tlpkg/tlperl/lib/Devel/Peek.pm b/Master/tlpkg/tlperl/lib/Devel/Peek.pm index ab0d5eb7608..d066c9d8bc5 100644 --- a/Master/tlpkg/tlperl/lib/Devel/Peek.pm +++ b/Master/tlpkg/tlperl/lib/Devel/Peek.pm @@ -3,7 +3,7 @@ package Devel::Peek; -$VERSION = '1.07'; +$VERSION = '1.08'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -139,7 +139,7 @@ When perl is compiled with support for memory footprint debugging Use mstat() function to emit a memory state statistic to the terminal. For more information on the format of output of mstat() see -L<perldebguts/Using C<$ENV{PERL_DEBUG_MSTATS}>>. +L<perldebguts/Using $ENV{PERL_DEBUG_MSTATS}>. Three additional functions allow access to this statistic from Perl. First, use C<mstats_fillhash(%hash)> to get the information contained @@ -152,9 +152,10 @@ Two additional fields C<free>, C<used> contain array references which provide per-bucket count of free and used chunks. Two other fields C<mem_size>, C<available_size> contain array references which provide the information about the allocated size and usable size of chunks in -each bucket. Again, see L<perldebguts/Using C<$ENV{PERL_DEBUG_MSTATS}>> +each bucket. Again, see L<perldebguts/Using $ENV{PERL_DEBUG_MSTATS}> for details. + Keep in mind that only the first several "odd-numbered" buckets are used, so the information on size of the "odd-numbered" buckets which are not used is probably meaningless. @@ -410,7 +411,7 @@ The output: IV = 42 This shows C<$a> is a reference pointing to an SV. That SV is a PVHV, a -hash. Fields RITER and EITER are used by C<L<each>>. +hash. Fields RITER and EITER are used by C<L<perlfunc/each>>. The "quality" of a hash is defined as the total number of comparisons needed to access every element once, relative to the expected number needed for a |