"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "dbipport.h" between
DBI-1.642.tar.gz and DBI-1.643.tar.gz

About: DBI - The Perl Database Interface (requires one or more "driver" modules DBD::* to talk to databases).

dbipport.h  (DBI-1.642):dbipport.h  (DBI-1.643)
#if 0 #if 0
<<'SKIP'; <<'SKIP';
#endif #endif
/* /*
---------------------------------------------------------------------- ----------------------------------------------------------------------
ppport.h -- Perl/Pollution/Portability Version 3.32 dbipport.h -- Perl/Pollution/Portability Version 3.51
Automatically created by Devel::PPPort running under perl 5.018002. Automatically created by Devel::PPPort running under perl 5.028002.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead. includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below. Use 'perldoc dbipport.h' to view the documentation below.
---------------------------------------------------------------------- ----------------------------------------------------------------------
SKIP SKIP
=pod =pod
=head1 NAME =head1 NAME
ppport.h - Perl/Pollution/Portability version 3.32 dbipport.h - Perl/Pollution/Portability version 3.51
=head1 SYNOPSIS =head1 SYNOPSIS
perl ppport.h [options] [source files] perl dbipport.h [options] [source files]
Searches current directory for files if no [source files] are given Searches current directory for files if no [source files] are given
--help show short help --help show short help
--version show version --version show version
--patch=file write one patch file with changes --patch=file write one patch file with changes
--copy=suffix write changed copies with suffix --copy=suffix write changed copies with suffix
--diff=program use diff program and options --diff=program use diff program and options
--compat-version=version provide compatibility with Perl version --compat-version=version provide compatibility with Perl version
--cplusplus accept C++ comments --cplusplus accept C++ comments
--quiet don't output anything except fatal errors --quiet don't output anything except fatal errors
--nodiag don't show diagnostics --nodiag don't show diagnostics
--nohints don't show hints --nohints don't show hints
--nochanges don't suggest changes --nochanges don't suggest changes
--nofilter don't filter input files --nofilter don't filter input files
--strip strip all script and doc functionality from --strip strip all script and doc functionality
ppport.h from dbipport.h
--list-provided list provided API --list-provided list provided API
--list-unsupported list unsupported API --list-unsupported list unsupported API
--api-info=name show Perl API portability information --api-info=name show Perl API portability information
=head1 COMPATIBILITY =head1 COMPATIBILITY
This version of F<ppport.h> is designed to support operation with Perl This version of F<dbipport.h> is designed to support operation with Perl
installations back to 5.003, and has been tested up to 5.20. installations back to 5.003, and has been tested up to 5.30.
=head1 OPTIONS =head1 OPTIONS
=head2 --help =head2 --help
Display a brief usage summary. Display a brief usage summary.
=head2 --version =head2 --version
Display the version of F<ppport.h>. Display the version of F<dbipport.h>.
=head2 --patch=I<file> =head2 --patch=I<file>
If this option is given, a single patch file will be created if If this option is given, a single patch file will be created if
any changes are suggested. This requires a working diff program any changes are suggested. This requires a working diff program
to be installed on your system. to be installed on your system.
=head2 --copy=I<suffix> =head2 --copy=I<suffix>
If this option is given, a copy of each file will be saved with If this option is given, a copy of each file will be saved with
skipping to change at line 98 skipping to change at line 98
C<Text::Diff> or a C<diff> program to be installed. C<Text::Diff> or a C<diff> program to be installed.
=head2 --diff=I<program> =head2 --diff=I<program>
Manually set the diff program and options to use. The default Manually set the diff program and options to use. The default
is to use C<Text::Diff>, when installed, and output unified is to use C<Text::Diff>, when installed, and output unified
context diffs. context diffs.
=head2 --compat-version=I<version> =head2 --compat-version=I<version>
Tell F<ppport.h> to check for compatibility with the given Tell F<dbipport.h> to check for compatibility with the given
Perl version. The default is to check for compatibility with Perl Perl version. The default is to check for compatibility with Perl
version 5.003. You can use this option to reduce the output version 5.003. You can use this option to reduce the output
of F<ppport.h> if you intend to be backward compatible only of F<dbipport.h> if you intend to be backward compatible only
down to a certain Perl version. down to a certain Perl version.
=head2 --cplusplus =head2 --cplusplus
Usually, F<ppport.h> will detect C++ style comments and Usually, F<dbipport.h> will detect C++ style comments and
replace them with C style comments for portability reasons. replace them with C style comments for portability reasons.
Using this option instructs F<ppport.h> to leave C++ Using this option instructs F<dbipport.h> to leave C++
comments untouched. comments untouched.
=head2 --quiet =head2 --quiet
Be quiet. Don't print anything except fatal errors. Be quiet. Don't print anything except fatal errors.
=head2 --nodiag =head2 --nodiag
Don't output any diagnostic messages. Only portability Don't output any diagnostic messages. Only portability
alerts will be printed. alerts will be printed.
skipping to change at line 137 skipping to change at line 137
Don't suggest any changes. Only give diagnostic output and hints Don't suggest any changes. Only give diagnostic output and hints
unless these are also deactivated. unless these are also deactivated.
=head2 --nofilter =head2 --nofilter
Don't filter the list of input files. By default, files not looking Don't filter the list of input files. By default, files not looking
like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped. like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.
=head2 --strip =head2 --strip
Strip all script and documentation functionality from F<ppport.h>. Strip all script and documentation functionality from F<dbipport.h>.
This reduces the size of F<ppport.h> dramatically and may be useful This reduces the size of F<dbipport.h> dramatically and may be useful
if you want to include F<ppport.h> in smaller modules without if you want to include F<dbipport.h> in smaller modules without
increasing their distribution size too much. increasing their distribution size too much.
The stripped F<ppport.h> will have a C<--unstrip> option that allows The stripped F<dbipport.h> will have a C<--unstrip> option that allows
you to undo the stripping, but only if an appropriate C<Devel::PPPort> you to undo the stripping, but only if an appropriate C<Devel::PPPort>
module is installed. module is installed.
=head2 --list-provided =head2 --list-provided
Lists the API elements for which compatibility is provided by Lists the API elements for which compatibility is provided by
F<ppport.h>. Also lists if it must be explicitly requested, F<dbipport.h>. Also lists if it must be explicitly requested,
if it has dependencies, and if there are hints or warnings for it. if it has dependencies, and if there are hints or warnings for it.
=head2 --list-unsupported =head2 --list-unsupported
Lists the API elements that are known not to be supported by Lists the API elements that are known not to be supported by
F<ppport.h> and below which version of Perl they probably F<dbipport.h> and below which version of Perl they probably
won't be available or work. won't be available or work.
=head2 --api-info=I<name> =head2 --api-info=I<name>
Show portability information for API elements matching I<name>. Show portability information for API elements matching I<name>.
If I<name> is surrounded by slashes, it is interpreted as a regular If I<name> is surrounded by slashes, it is interpreted as a regular
expression. expression.
=head1 DESCRIPTION =head1 DESCRIPTION
skipping to change at line 177 skipping to change at line 177
across differing versions of Perl itself, certain steps need to be taken. across differing versions of Perl itself, certain steps need to be taken.
=over 4 =over 4
=item * =item *
Including this header is the first major one. This alone will give you Including this header is the first major one. This alone will give you
access to a large part of the Perl API that hasn't been available in access to a large part of the Perl API that hasn't been available in
earlier Perl releases. Use earlier Perl releases. Use
perl ppport.h --list-provided perl dbipport.h --list-provided
to see which API elements are provided by ppport.h. to see which API elements are provided by dbipport.h.
=item * =item *
You should avoid using deprecated parts of the API. For example, using You should avoid using deprecated parts of the API. For example, using
global Perl variables without the C<PL_> prefix is deprecated. Also, global Perl variables without the C<PL_> prefix is deprecated. Also,
some API functions used to have a C<perl_> prefix. Using this form is some API functions used to have a C<perl_> prefix. Using this form is
also deprecated. You can safely use the supported API, as F<ppport.h> also deprecated. You can safely use the supported API, as F<dbipport.h>
will provide wrappers for older Perl versions. will provide wrappers for older Perl versions.
=item * =item *
If you use one of a few functions or variables that were not present in If you use one of a few functions or variables that were not present in
earlier versions of Perl, and that can't be provided using a macro, you earlier versions of Perl, and that can't be provided using a macro, you
have to explicitly request support for these functions by adding one or have to explicitly request support for these functions by adding one or
more C<#define>s in your source code before the inclusion of F<ppport.h>. more C<#define>s in your source code before the inclusion of F<dbipport.h>.
These functions or variables will be marked C<explicit> in the list shown These functions or variables will be marked C<explicit> in the list shown
by C<--list-provided>. by C<--list-provided>.
Depending on whether you module has a single or multiple files that Depending on whether you module has a single or multiple files that
use such functions or variables, you want either C<static> or global use such functions or variables, you want either C<static> or global
variants. variants.
For a C<static> function or variable (used only in a single source For a C<static> function or variable (used only in a single source
file), use: file), use:
skipping to change at line 222 skipping to change at line 222
#define NEED_function_GLOBAL #define NEED_function_GLOBAL
#define NEED_variable_GLOBAL #define NEED_variable_GLOBAL
Note that you mustn't have more than one global request for the Note that you mustn't have more than one global request for the
same function or variable in your project. same function or variable in your project.
Function / Variable Static Request Global Request Function / Variable Static Request Global Request
---------------------------------------------------------------------------- ------------- ---------------------------------------------------------------------------- -------------
PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL
PL_signals NEED_PL_signals NEED_PL_signals_GLOBA L PL_signals NEED_PL_signals NEED_PL_signals_GLOBA L
SvRX() NEED_SvRX NEED_SvRX_GLOBAL
caller_cx() NEED_caller_cx NEED_caller_cx_GLOBAL caller_cx() NEED_caller_cx NEED_caller_cx_GLOBAL
croak_xs_usage() NEED_croak_xs_usage NEED_croak_xs_usage_G
LOBAL
die_sv() NEED_die_sv NEED_die_sv_GLOBAL
eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL
grok_number() NEED_grok_number NEED_grok_number_GLOB AL grok_number() NEED_grok_number NEED_grok_number_GLOB AL
grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_rad ix_GLOBAL grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_rad ix_GLOBAL
grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL
gv_fetchpvn_flags() NEED_gv_fetchpvn_flags NEED_gv_fetchpvn_flag s_GLOBAL
load_module() NEED_load_module NEED_load_module_GLOB AL load_module() NEED_load_module NEED_load_module_GLOB AL
mess() NEED_mess NEED_mess_GLOBAL
mess_nocontext() NEED_mess_nocontext NEED_mess_nocontext_G
LOBAL
mess_sv() NEED_mess_sv NEED_mess_sv_GLOBAL
mg_findext() NEED_mg_findext NEED_mg_findext_GLOBA L mg_findext() NEED_mg_findext NEED_mg_findext_GLOBA L
my_snprintf() NEED_my_snprintf NEED_my_snprintf_GLOB AL my_snprintf() NEED_my_snprintf NEED_my_snprintf_GLOB AL
my_sprintf() NEED_my_sprintf NEED_my_sprintf_GLOBA L my_sprintf() NEED_my_sprintf NEED_my_sprintf_GLOBA L
my_strlcat() NEED_my_strlcat NEED_my_strlcat_GLOBA L my_strlcat() NEED_my_strlcat NEED_my_strlcat_GLOBA L
my_strlcpy() NEED_my_strlcpy NEED_my_strlcpy_GLOBA L my_strlcpy() NEED_my_strlcpy NEED_my_strlcpy_GLOBA L
my_strnlen() NEED_my_strnlen NEED_my_strnlen_GLOBA L
newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOB AL newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOB AL
newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOB AL newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOB AL
newSV_type() NEED_newSV_type NEED_newSV_type_GLOBA L newSV_type() NEED_newSV_type NEED_newSV_type_GLOBA L
newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_G LOBAL newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_G LOBAL
newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_G LOBAL newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_G LOBAL
pv_display() NEED_pv_display NEED_pv_display_GLOBA L pv_display() NEED_pv_display NEED_pv_display_GLOBA L
pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL
pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL
sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLO BAL sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLO BAL
sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBA L sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBA L
sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLO BAL sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLO BAL
sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_noc ontext_GLOBAL sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_noc ontext_GLOBAL
sv_pvn_force_flags() NEED_sv_pvn_force_flags NEED_sv_pvn_force_fla gs_GLOBAL sv_pvn_force_flags() NEED_sv_pvn_force_flags NEED_sv_pvn_force_fla gs_GLOBAL
sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLO BAL sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLO BAL
sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_noc ontext_GLOBAL sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_noc ontext_GLOBAL
sv_unmagicext() NEED_sv_unmagicext NEED_sv_unmagicext_GL OBAL sv_unmagicext() NEED_sv_unmagicext NEED_sv_unmagicext_GL OBAL
utf8_to_uvchr_buf() NEED_utf8_to_uvchr_buf NEED_utf8_to_uvchr_bu f_GLOBAL
vload_module() NEED_vload_module NEED_vload_module_GLO BAL vload_module() NEED_vload_module NEED_vload_module_GLO BAL
vmess() NEED_vmess NEED_vmess_GLOBAL
vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL
warner() NEED_warner NEED_warner_GLOBAL warner() NEED_warner NEED_warner_GLOBAL
To avoid namespace conflicts, you can change the namespace of the To avoid namespace conflicts, you can change the namespace of the
explicitly exported functions / variables using the C<DPPP_NAMESPACE> explicitly exported functions / variables using the C<DPPP_NAMESPACE>
macro. Just C<#define> the macro before including C<ppport.h>: macro. Just C<#define> the macro before including C<dbipport.h>:
#define DPPP_NAMESPACE MyOwnNamespace_ #define DPPP_NAMESPACE MyOwnNamespace_
#include "ppport.h" #include "dbipport.h"
The default namespace is C<DPPP_>. The default namespace is C<DPPP_>.
=back =back
The good thing is that most of the above can be checked by running The good thing is that most of the above can be checked by running
F<ppport.h> on your source code. See the next section for F<dbipport.h> on your source code. See the next section for
details. details.
=head1 EXAMPLES =head1 EXAMPLES
To verify whether F<ppport.h> is needed for your module, whether you To verify whether F<dbipport.h> is needed for your module, whether you
should make any changes to your code, and whether any special defines should make any changes to your code, and whether any special defines
should be used, F<ppport.h> can be run as a Perl script to check your should be used, F<dbipport.h> can be run as a Perl script to check your
source code. Simply say: source code. Simply say:
perl ppport.h perl dbipport.h
The result will usually be a list of patches suggesting changes The result will usually be a list of patches suggesting changes
that should at least be acceptable, if not necessarily the most that should at least be acceptable, if not necessarily the most
efficient solution, or a fix for all possible problems. efficient solution, or a fix for all possible problems.
If you know that your XS module uses features only available in If you know that your XS module uses features only available in
newer Perl releases, if you're aware that it uses C++ comments, newer Perl releases, if you're aware that it uses C++ comments,
and if you want all suggestions as a single patch file, you could and if you want all suggestions as a single patch file, you could
use something like this: use something like this:
perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff perl dbipport.h --compat-version=5.6.0 --cplusplus --patch=test.diff
If you only want your code to be scanned without any suggestions If you only want your code to be scanned without any suggestions
for changes, use: for changes, use:
perl ppport.h --nochanges perl dbipport.h --nochanges
You can specify a different C<diff> program or options, using You can specify a different C<diff> program or options, using
the C<--diff> option: the C<--diff> option:
perl ppport.h --diff='diff -C 10' perl dbipport.h --diff='diff -C 10'
This would output context diffs with 10 lines of context. This would output context diffs with 10 lines of context.
If you want to create patched copies of your files instead, use: If you want to create patched copies of your files instead, use:
perl ppport.h --copy=.new perl dbipport.h --copy=.new
To display portability information for the C<newSVpvn> function, To display portability information for the C<newSVpvn> function,
use: use:
perl ppport.h --api-info=newSVpvn perl dbipport.h --api-info=newSVpvn
Since the argument to C<--api-info> can be a regular expression, Since the argument to C<--api-info> can be a regular expression,
you can use you can use
perl ppport.h --api-info=/_nomg$/ perl dbipport.h --api-info=/_nomg$/
to display portability information for all C<_nomg> functions or to display portability information for all C<_nomg> functions or
perl ppport.h --api-info=/./ perl dbipport.h --api-info=/./
to display information for all known API elements. to display information for all known API elements.
=head1 BUGS =head1 BUGS
If this version of F<ppport.h> is causing failure during If this version of F<dbipport.h> is causing failure during
the compilation of this module, please check if newer versions the compilation of this module, please check if newer versions
of either this module or C<Devel::PPPort> are available on CPAN of either this module or C<Devel::PPPort> are available on CPAN
before sending a bug report. before sending a bug report.
If F<ppport.h> was generated using the latest version of If F<dbipport.h> was generated using the latest version of
C<Devel::PPPort> and is causing failure of this module, please C<Devel::PPPort> and is causing failure of this module, please
file a bug report here: L<https://github.com/mhx/Devel-PPPort/issues/> send a bug report to L<perlbug@perl.org|mailto:perlbug@perl.org>.
Please include the following information: Please include the following information:
=over 4 =over 4
=item 1. =item 1.
The complete output from running "perl -V" The complete output from running "perl -V"
=item 2. =item 2.
skipping to change at line 382 skipping to change at line 392
=head1 SEE ALSO =head1 SEE ALSO
See L<Devel::PPPort>. See L<Devel::PPPort>.
=cut =cut
use strict; use strict;
# Disable broken TRIE-optimization # Disable broken TRIE-optimization
BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 } BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if "$]" >= 5.009004 && "$]" <= 5.009005 }
my $VERSION = 3.32; my $VERSION = 3.51;
my %opt = ( my %opt = (
quiet => 0, quiet => 0,
diag => 1, diag => 1,
hints => 1, hints => 1,
changes => 1, changes => 1,
cplusplus => 0, cplusplus => 0,
filter => 1, filter => 1,
strip => 0, strip => 0,
version => 0, version => 0,
skipping to change at line 451 skipping to change at line 461
my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
? ( $1 => { ? ( $1 => {
($2 ? ( base => $2 ) : ()), ($2 ? ( base => $2 ) : ()),
($3 ? ( todo => $3 ) : ()), ($3 ? ( todo => $3 ) : ()),
(index($4, 'v') >= 0 ? ( varargs => 1 ) : ()), (index($4, 'v') >= 0 ? ( varargs => 1 ) : ()),
(index($4, 'p') >= 0 ? ( provided => 1 ) : ()), (index($4, 'p') >= 0 ? ( provided => 1 ) : ()),
(index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()), (index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()),
} ) } )
: die "invalid spec: $_" } qw( : die "invalid spec: $_" } qw(
ASCII_TO_NEED||5.007001|n
AvFILLp|5.004050||p AvFILLp|5.004050||p
AvFILL||| AvFILL|||
BhkDISABLE||5.021008| BOM_UTF8|||
BhkENABLE||5.021008| BhkDISABLE||5.024000|
BhkENTRY_set||5.021008| BhkENABLE||5.024000|
BhkENTRY_set||5.024000|
BhkENTRY||| BhkENTRY|||
BhkFLAGS||| BhkFLAGS|||
CALL_BLOCK_HOOKS||| CALL_BLOCK_HOOKS|||
CLASS|||n CLASS|||n
CPERLscope|5.005000||p CPERLscope|5.005000||p
CX_CURPAD_SAVE||| CX_CURPAD_SAVE|||
CX_CURPAD_SV||| CX_CURPAD_SV|||
C_ARRAY_END|5.013002||p
C_ARRAY_LENGTH|5.008001||p
CopFILEAV|5.006000||p CopFILEAV|5.006000||p
CopFILEGV_set|5.006000||p CopFILEGV_set|5.006000||p
CopFILEGV|5.006000||p CopFILEGV|5.006000||p
CopFILESV|5.006000||p CopFILESV|5.006000||p
CopFILE_set|5.006000||p CopFILE_set|5.006000||p
CopFILE|5.006000||p CopFILE|5.006000||p
CopSTASHPV_set|5.006000||p CopSTASHPV_set|5.006000||p
CopSTASHPV|5.006000||p CopSTASHPV|5.006000||p
CopSTASH_eq|5.006000||p CopSTASH_eq|5.006000||p
CopSTASH_set|5.006000||p CopSTASH_set|5.006000||p
CopSTASH|5.006000||p CopSTASH|5.006000||p
CopyD|5.009002|5.004050|p CopyD|5.009002|5.004050|p
Copy||| Copy|||
CvPADLIST||5.008001| CvPADLIST||5.008001|
CvSTASH||| CvSTASH|||
CvWEAKOUTSIDE||| CvWEAKOUTSIDE|||
DECLARATION_FOR_LC_NUMERIC_MANIPULATION||5.021010|n
DEFSV_set|5.010001||p DEFSV_set|5.010001||p
DEFSV|5.004050||p DEFSV|5.004050||p
DO_UTF8||5.006000|
END_EXTERN_C|5.005000||p END_EXTERN_C|5.005000||p
ENTER||| ENTER|||
ERRSV|5.004050||p ERRSV|5.004050||p
EXTEND||| EXTEND|||
EXTERN_C|5.005000||p EXTERN_C|5.005000||p
F0convert|||n F0convert|||n
FREETMPS||| FREETMPS|||
GIMME_V||5.004000|n GIMME_V||5.004000|n
GIMME|||n GIMME|||n
GROK_NUMERIC_RADIX|5.007002||p GROK_NUMERIC_RADIX|5.007002||p
skipping to change at line 503 skipping to change at line 517
G_DISCARD||| G_DISCARD|||
G_EVAL||| G_EVAL|||
G_METHOD|5.006001||p G_METHOD|5.006001||p
G_NOARGS||| G_NOARGS|||
G_SCALAR||| G_SCALAR|||
G_VOID||5.004000| G_VOID||5.004000|
GetVars||| GetVars|||
GvAV||| GvAV|||
GvCV||| GvCV|||
GvHV||| GvHV|||
GvSVn|5.009003||p
GvSV||| GvSV|||
Gv_AMupdate||5.011000| Gv_AMupdate||5.011000|
HEf_SVKEY|5.003070||p HEf_SVKEY|5.003070||p
HeHASH||5.003070| HeHASH||5.003070|
HeKEY||5.003070| HeKEY||5.003070|
HeKLEN||5.003070| HeKLEN||5.003070|
HePV||5.004000| HePV||5.004000|
HeSVKEY_force||5.003070| HeSVKEY_force||5.003070|
HeSVKEY_set||5.004000| HeSVKEY_set||5.004000|
HeSVKEY||5.003070| HeSVKEY||5.003070|
skipping to change at line 539 skipping to change at line 552
IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p
IS_NUMBER_INFINITY|5.007002||p IS_NUMBER_INFINITY|5.007002||p
IS_NUMBER_IN_UV|5.007002||p IS_NUMBER_IN_UV|5.007002||p
IS_NUMBER_NAN|5.007003||p IS_NUMBER_NAN|5.007003||p
IS_NUMBER_NEG|5.007002||p IS_NUMBER_NEG|5.007002||p
IS_NUMBER_NOT_INT|5.007002||p IS_NUMBER_NOT_INT|5.007002||p
IVSIZE|5.006000||p IVSIZE|5.006000||p
IVTYPE|5.006000||p IVTYPE|5.006000||p
IVdf|5.006000||p IVdf|5.006000||p
LEAVE||| LEAVE|||
LIKELY|||p
LINKLIST||5.013006| LINKLIST||5.013006|
LVRET||| LVRET|||
MARK||| MARK|||
MULTICALL||5.021008| MULTICALL||5.024000|
MUTABLE_PTR|5.010001||p MUTABLE_PTR|5.010001||p
MUTABLE_SV|5.010001||p MUTABLE_SV|5.010001||p
MY_CXT_CLONE|5.009002||p MY_CXT_CLONE|5.009002||p
MY_CXT_INIT|5.007003||p MY_CXT_INIT|5.007003||p
MY_CXT|5.007003||p MY_CXT|5.007003||p
MoveD|5.009002|5.004050|p MoveD|5.009002|5.004050|p
Move||| Move|||
NATIVE_TO_NEED||5.007001|n
NOOP|5.005000||p NOOP|5.005000||p
NUM2PTR|5.006000||p NUM2PTR|5.006000||p
NVTYPE|5.006000||p NVTYPE|5.006000||p
NVef|5.006001||p NVef|5.006001||p
NVff|5.006001||p NVff|5.006001||p
NVgf|5.006001||p NVgf|5.006001||p
Newxc|5.009003||p Newxc|5.009003||p
Newxz|5.009003||p Newxz|5.009003||p
Newx|5.009003||p Newx|5.009003||p
Nullav||| Nullav|||
Nullch||| Nullch|||
Nullcv||| Nullcv|||
Nullhv||| Nullhv|||
Nullsv||| Nullsv|||
OP_CLASS||5.013007| OP_CLASS||5.013007|
OP_DESC||5.007003| OP_DESC||5.007003|
OP_NAME||5.007003| OP_NAME||5.007003|
OP_TYPE_IS_OR_WAS||5.019010| OP_TYPE_IS_OR_WAS||5.019010|
OP_TYPE_IS||5.019007| OP_TYPE_IS||5.019007|
ORIGMARK||| ORIGMARK|||
OpHAS_SIBLING||5.021007| OpHAS_SIBLING|5.021007||p
OpSIBLING_set||5.021007| OpLASTSIB_set|5.021011||p
OpSIBLING||5.021007| OpMAYBESIB_set|5.021011||p
OpMORESIB_set|5.021011||p
OpSIBLING|5.021007||p
PAD_BASE_SV||| PAD_BASE_SV|||
PAD_CLONE_VARS||| PAD_CLONE_VARS|||
PAD_COMPNAME_FLAGS||| PAD_COMPNAME_FLAGS|||
PAD_COMPNAME_GEN_set||| PAD_COMPNAME_GEN_set|||
PAD_COMPNAME_GEN||| PAD_COMPNAME_GEN|||
PAD_COMPNAME_OURSTASH||| PAD_COMPNAME_OURSTASH|||
PAD_COMPNAME_PV||| PAD_COMPNAME_PV|||
PAD_COMPNAME_TYPE||| PAD_COMPNAME_TYPE|||
PAD_RESTORE_LOCAL||| PAD_RESTORE_LOCAL|||
PAD_SAVE_LOCAL||| PAD_SAVE_LOCAL|||
PAD_SAVE_SETNULLPAD||| PAD_SAVE_SETNULLPAD|||
PAD_SETSV||| PAD_SETSV|||
PAD_SET_CUR_NOSAVE||| PAD_SET_CUR_NOSAVE|||
PAD_SET_CUR||| PAD_SET_CUR|||
PAD_SVl||| PAD_SVl|||
PAD_SV||| PAD_SV|||
PERLIO_FUNCS_CAST|5.009003||p PERLIO_FUNCS_CAST|5.009003||p
PERLIO_FUNCS_DECL|5.009003||p PERLIO_FUNCS_DECL|5.009003||p
PERL_ABS|5.008001||p PERL_ABS|5.008001||p
PERL_BCDVERSION|5.021008||p PERL_ARGS_ASSERT_CROAK_XS_USAGE|||p
PERL_BCDVERSION|5.024000||p
PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
PERL_HASH|5.003070||p PERL_HASH|5.003070||p
PERL_INT_MAX|5.003070||p PERL_INT_MAX|5.003070||p
PERL_INT_MIN|5.003070||p PERL_INT_MIN|5.003070||p
PERL_LONG_MAX|5.003070||p PERL_LONG_MAX|5.003070||p
PERL_LONG_MIN|5.003070||p PERL_LONG_MIN|5.003070||p
PERL_MAGIC_arylen|5.007002||p PERL_MAGIC_arylen|5.007002||p
PERL_MAGIC_backref|5.007002||p PERL_MAGIC_backref|5.007002||p
PERL_MAGIC_bm|5.007002||p PERL_MAGIC_bm|5.007002||p
PERL_MAGIC_collxfrm|5.007002||p PERL_MAGIC_collxfrm|5.007002||p
PERL_MAGIC_dbfile|5.007002||p PERL_MAGIC_dbfile|5.007002||p
PERL_MAGIC_dbline|5.007002||p PERL_MAGIC_dbline|5.007002||p
PERL_MAGIC_defelem|5.007002||p PERL_MAGIC_defelem|5.007002||p
PERL_MAGIC_envelem|5.007002||p PERL_MAGIC_envelem|5.007002||p
PERL_MAGIC_env|5.007002||p PERL_MAGIC_env|5.007002||p
PERL_MAGIC_ext|5.007002||p PERL_MAGIC_ext|5.007002||p
PERL_MAGIC_fm|5.007002||p PERL_MAGIC_fm|5.007002||p
PERL_MAGIC_glob|5.021008||p PERL_MAGIC_glob|5.024000||p
PERL_MAGIC_isaelem|5.007002||p PERL_MAGIC_isaelem|5.007002||p
PERL_MAGIC_isa|5.007002||p PERL_MAGIC_isa|5.007002||p
PERL_MAGIC_mutex|5.021008||p PERL_MAGIC_mutex|5.024000||p
PERL_MAGIC_nkeys|5.007002||p PERL_MAGIC_nkeys|5.007002||p
PERL_MAGIC_overload_elem|5.021008||p PERL_MAGIC_overload_elem|5.024000||p
PERL_MAGIC_overload_table|5.007002||p PERL_MAGIC_overload_table|5.007002||p
PERL_MAGIC_overload|5.021008||p PERL_MAGIC_overload|5.024000||p
PERL_MAGIC_pos|5.007002||p PERL_MAGIC_pos|5.007002||p
PERL_MAGIC_qr|5.007002||p PERL_MAGIC_qr|5.007002||p
PERL_MAGIC_regdata|5.007002||p PERL_MAGIC_regdata|5.007002||p
PERL_MAGIC_regdatum|5.007002||p PERL_MAGIC_regdatum|5.007002||p
PERL_MAGIC_regex_global|5.007002||p PERL_MAGIC_regex_global|5.007002||p
PERL_MAGIC_shared_scalar|5.007003||p PERL_MAGIC_shared_scalar|5.007003||p
PERL_MAGIC_shared|5.007003||p PERL_MAGIC_shared|5.007003||p
PERL_MAGIC_sigelem|5.007002||p PERL_MAGIC_sigelem|5.007002||p
PERL_MAGIC_sig|5.007002||p PERL_MAGIC_sig|5.007002||p
PERL_MAGIC_substr|5.007002||p PERL_MAGIC_substr|5.007002||p
skipping to change at line 666 skipping to change at line 682
PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p
PERL_SCAN_DISALLOW_PREFIX|5.007003||p PERL_SCAN_DISALLOW_PREFIX|5.007003||p
PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p
PERL_SCAN_SILENT_ILLDIGIT|5.008001||p PERL_SCAN_SILENT_ILLDIGIT|5.008001||p
PERL_SHORT_MAX|5.003070||p PERL_SHORT_MAX|5.003070||p
PERL_SHORT_MIN|5.003070||p PERL_SHORT_MIN|5.003070||p
PERL_SIGNALS_UNSAFE_FLAG|5.008001||p PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
PERL_SUBVERSION|5.006000||p PERL_SUBVERSION|5.006000||p
PERL_SYS_INIT3||5.006000| PERL_SYS_INIT3||5.006000|
PERL_SYS_INIT||| PERL_SYS_INIT|||
PERL_SYS_TERM||5.021008| PERL_SYS_TERM||5.024000|
PERL_UCHAR_MAX|5.003070||p PERL_UCHAR_MAX|5.003070||p
PERL_UCHAR_MIN|5.003070||p PERL_UCHAR_MIN|5.003070||p
PERL_UINT_MAX|5.003070||p PERL_UINT_MAX|5.003070||p
PERL_UINT_MIN|5.003070||p PERL_UINT_MIN|5.003070||p
PERL_ULONG_MAX|5.003070||p PERL_ULONG_MAX|5.003070||p
PERL_ULONG_MIN|5.003070||p PERL_ULONG_MIN|5.003070||p
PERL_UNUSED_ARG|5.009003||p PERL_UNUSED_ARG|5.009003||p
PERL_UNUSED_CONTEXT|5.009004||p PERL_UNUSED_CONTEXT|5.009004||p
PERL_UNUSED_DECL|5.007002||p PERL_UNUSED_DECL|5.007002||p
PERL_UNUSED_RESULT|5.021001||p
PERL_UNUSED_VAR|5.007002||p PERL_UNUSED_VAR|5.007002||p
PERL_UQUAD_MAX|5.003070||p PERL_UQUAD_MAX|5.003070||p
PERL_UQUAD_MIN|5.003070||p PERL_UQUAD_MIN|5.003070||p
PERL_USE_GCC_BRACE_GROUPS|5.009004||p PERL_USE_GCC_BRACE_GROUPS|5.009004||p
PERL_USHORT_MAX|5.003070||p PERL_USHORT_MAX|5.003070||p
PERL_USHORT_MIN|5.003070||p PERL_USHORT_MIN|5.003070||p
PERL_VERSION|5.006000||p PERL_VERSION|5.006000||p
PL_DBsignal|5.005000||p PL_DBsignal|5.005000||p
PL_DBsingle|||pn PL_DBsingle|||pn
PL_DBsub|||pn PL_DBsub|||pn
PL_DBtrace|||pn PL_DBtrace|||pn
PL_Sv|5.005000||p PL_Sv|5.005000||p
PL_bufend|5.021008||p PL_bufend|5.024000||p
PL_bufptr|5.021008||p PL_bufptr|5.024000||p
PL_check||5.006000| PL_check||5.006000|
PL_compiling|5.004050||p PL_compiling|5.004050||p
PL_comppad_name||5.017004| PL_comppad_name||5.017004|
PL_comppad||5.008001| PL_comppad||5.008001|
PL_copline|5.021008||p PL_copline|5.024000||p
PL_curcop|5.004050||p PL_curcop|5.004050||p
PL_curpad||5.005000| PL_curpad||5.005000|
PL_curstash|5.004050||p PL_curstash|5.004050||p
PL_debstash|5.004050||p PL_debstash|5.004050||p
PL_defgv|5.004050||p PL_defgv|5.004050||p
PL_diehook|5.004050||p PL_diehook|5.004050||p
PL_dirty|5.004050||p PL_dirty|5.004050||p
PL_dowarn|||pn PL_dowarn|||pn
PL_errgv|5.004050||p PL_errgv|5.004050||p
PL_error_count|5.021008||p PL_error_count|5.024000||p
PL_expect|5.021008||p PL_expect|5.024000||p
PL_hexdigit|5.005000||p PL_hexdigit|5.005000||p
PL_hints|5.005000||p PL_hints|5.005000||p
PL_in_my_stash|5.021008||p PL_in_my_stash|5.024000||p
PL_in_my|5.021008||p PL_in_my|5.024000||p
PL_keyword_plugin||5.011002| PL_keyword_plugin||5.011002|
PL_last_in_gv|||n PL_last_in_gv|||n
PL_laststatval|5.005000||p PL_laststatval|5.005000||p
PL_lex_state|5.021008||p PL_lex_state|5.024000||p
PL_lex_stuff|5.021008||p PL_lex_stuff|5.024000||p
PL_linestr|5.021008||p PL_linestr|5.024000||p
PL_modglobal||5.005000|n PL_modglobal||5.005000|n
PL_na|5.004050||pn PL_na|5.004050||pn
PL_no_modify|5.006000||p PL_no_modify|5.006000||p
PL_ofsgv|||n PL_ofsgv|||n
PL_opfreehook||5.011000|n PL_opfreehook||5.011000|n
PL_parser|5.009005||p PL_parser|5.009005||p
PL_peepp||5.007003|n PL_peepp||5.007003|n
PL_perl_destruct_level|5.004050||p PL_perl_destruct_level|5.004050||p
PL_perldb|5.004050||p PL_perldb|5.004050||p
PL_ppaddr|5.006000||p PL_ppaddr|5.006000||p
PL_rpeepp||5.013005|n PL_rpeepp||5.013005|n
PL_rsfp_filters|5.021008||p PL_rsfp_filters|5.024000||p
PL_rsfp|5.021008||p PL_rsfp|5.024000||p
PL_rs|||n PL_rs|||n
PL_signals|5.008001||p PL_signals|5.008001||p
PL_stack_base|5.004050||p PL_stack_base|5.004050||p
PL_stack_sp|5.004050||p PL_stack_sp|5.004050||p
PL_statcache|5.005000||p PL_statcache|5.005000||p
PL_stdingv|5.004050||p PL_stdingv|5.004050||p
PL_sv_arenaroot|5.004050||p PL_sv_arenaroot|5.004050||p
PL_sv_no|5.004050||pn PL_sv_no|5.004050||pn
PL_sv_undef|5.004050||pn PL_sv_undef|5.004050||pn
PL_sv_yes|5.004050||pn PL_sv_yes|5.004050||pn
PL_sv_zero|||n
PL_tainted|5.004050||p PL_tainted|5.004050||p
PL_tainting|5.004050||p PL_tainting|5.004050||p
PL_tokenbuf|5.021008||p PL_tokenbuf|5.024000||p
POP_MULTICALL||5.021008| POP_MULTICALL||5.024000|
POPi|||n POPi|||n
POPl|||n POPl|||n
POPn|||n POPn|||n
POPpbytex||5.007001|n POPpbytex||5.007001|n
POPpx||5.005030|n POPpx||5.005030|n
POPp|||n POPp|||n
POPs|||n POPs|||n
POPul||5.006000|n
POPu||5.004000|n
PTR2IV|5.006000||p PTR2IV|5.006000||p
PTR2NV|5.006000||p PTR2NV|5.006000||p
PTR2UV|5.006000||p PTR2UV|5.006000||p
PTR2nat|5.009003||p PTR2nat|5.009003||p
PTR2ul|5.007001||p PTR2ul|5.007001||p
PTRV|5.006000||p PTRV|5.006000||p
PUSHMARK||| PUSHMARK|||
PUSH_MULTICALL||5.021008| PUSH_MULTICALL||5.024000|
PUSHi||| PUSHi|||
PUSHmortal|5.009002||p PUSHmortal|5.009002||p
PUSHn||| PUSHn|||
PUSHp||| PUSHp|||
PUSHs||| PUSHs|||
PUSHu|5.004000||p PUSHu|5.004000||p
PUTBACK||| PUTBACK|||
PadARRAY||5.021008| PadARRAY||5.024000|
PadMAX||5.021008| PadMAX||5.024000|
PadlistARRAY||5.021008| PadlistARRAY||5.024000|
PadlistMAX||5.021008| PadlistMAX||5.024000|
PadlistNAMESARRAY||5.021008| PadlistNAMESARRAY||5.024000|
PadlistNAMESMAX||5.021008| PadlistNAMESMAX||5.024000|
PadlistNAMES||5.021008| PadlistNAMES||5.024000|
PadlistREFCNT||5.017004| PadlistREFCNT||5.017004|
PadnameIsOUR||| PadnameIsOUR|||
PadnameIsSTATE||| PadnameIsSTATE|||
PadnameLEN||5.021008| PadnameLEN||5.024000|
PadnameOURSTASH||| PadnameOURSTASH|||
PadnameOUTER||| PadnameOUTER|||
PadnamePV||5.021008| PadnamePV||5.024000|
PadnameREFCNT_dec||5.021008| PadnameREFCNT_dec||5.024000|
PadnameREFCNT||5.021008| PadnameREFCNT||5.024000|
PadnameSV||5.021008| PadnameSV||5.024000|
PadnameTYPE||| PadnameTYPE|||
PadnameUTF8||5.021007| PadnameUTF8||5.021007|
PadnamelistARRAY||5.021008| PadnamelistARRAY||5.024000|
PadnamelistMAX||5.021008| PadnamelistMAX||5.024000|
PadnamelistREFCNT_dec||5.021008| PadnamelistREFCNT_dec||5.024000|
PadnamelistREFCNT||5.021008| PadnamelistREFCNT||5.024000|
PerlIO_clearerr||5.007003| PerlIO_clearerr||5.007003|
PerlIO_close||5.007003| PerlIO_close||5.007003|
PerlIO_context_layers||5.009004| PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003| PerlIO_eof||5.007003|
PerlIO_error||5.007003| PerlIO_error||5.007003|
PerlIO_fileno||5.007003| PerlIO_fileno||5.007003|
PerlIO_fill||5.007003| PerlIO_fill||5.007003|
PerlIO_flush||5.007003| PerlIO_flush||5.007003|
PerlIO_get_base||5.007003| PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003| PerlIO_get_bufsiz||5.007003|
skipping to change at line 813 skipping to change at line 833
PerlIO_seek||5.007003| PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003| PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003| PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003| PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003| PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003| PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003| PerlIO_stdout||5.007003|
PerlIO_tell||5.007003| PerlIO_tell||5.007003|
PerlIO_unread||5.007003| PerlIO_unread||5.007003|
PerlIO_write||5.007003| PerlIO_write||5.007003|
Perl_signbit||5.009005|n PerlLIO_dup2_cloexec|||
PerlLIO_dup_cloexec|||
PerlLIO_open3_cloexec|||
PerlLIO_open_cloexec|||
PerlProc_pipe_cloexec|||
PerlSock_accept_cloexec|||
PerlSock_socket_cloexec|||
PerlSock_socketpair_cloexec|||
Perl_langinfo|||n
Perl_setlocale|||n
PoisonFree|5.009004||p PoisonFree|5.009004||p
PoisonNew|5.009004||p PoisonNew|5.009004||p
PoisonWith|5.009004||p PoisonWith|5.009004||p
Poison|5.008000||p Poison|5.008000||p
READ_XDIGIT||5.017006| READ_XDIGIT||5.017006|
REPLACEMENT_CHARACTER_UTF8|||
RESTORE_LC_NUMERIC||5.024000|
RETVAL|||n RETVAL|||n
Renewc||| Renewc|||
Renew||| Renew|||
SAVECLEARSV||| SAVECLEARSV|||
SAVECOMPPAD||| SAVECOMPPAD|||
SAVEPADSV||| SAVEPADSV|||
SAVETMPS||| SAVETMPS|||
SAVE_DEFSV|5.004050||p SAVE_DEFSV|5.004050||p
SPAGAIN||| SPAGAIN|||
SP||| SP|||
START_EXTERN_C|5.005000||p START_EXTERN_C|5.005000||p
START_MY_CXT|5.007003||p START_MY_CXT|5.007003||p
STMT_END|||p STMT_END|||p
STMT_START|||p STMT_START|||p
STORE_LC_NUMERIC_FORCE_TO_UNDERLYING||5.024000|
STORE_LC_NUMERIC_SET_TO_NEEDED||5.024000|
STR_WITH_LEN|5.009003||p STR_WITH_LEN|5.009003||p
ST||| ST|||
SV_CONST_RETURN|5.009003||p SV_CONST_RETURN|5.009003||p
SV_COW_DROP_PV|5.008001||p SV_COW_DROP_PV|5.008001||p
SV_COW_SHARED_HASH_KEYS|5.009005||p SV_COW_SHARED_HASH_KEYS|5.009005||p
SV_GMAGIC|5.007002||p SV_GMAGIC|5.007002||p
SV_HAS_TRAILING_NUL|5.009004||p SV_HAS_TRAILING_NUL|5.009004||p
SV_IMMEDIATE_UNREF|5.007001||p SV_IMMEDIATE_UNREF|5.007001||p
SV_MUTABLE_RETURN|5.009003||p SV_MUTABLE_RETURN|5.009003||p
SV_NOSTEAL|5.009002||p SV_NOSTEAL|5.009002||p
skipping to change at line 917 skipping to change at line 950
SvNV||| SvNV|||
SvOK||| SvOK|||
SvOOK_offset||5.011000| SvOOK_offset||5.011000|
SvOOK||| SvOOK|||
SvPOK_off||| SvPOK_off|||
SvPOK_only_UTF8||5.006000| SvPOK_only_UTF8||5.006000|
SvPOK_only||| SvPOK_only|||
SvPOK_on||| SvPOK_on|||
SvPOKp||| SvPOKp|||
SvPOK||| SvPOK|||
SvPVCLEAR|||
SvPVX_const|5.009003||p SvPVX_const|5.009003||p
SvPVX_mutable|5.009003||p SvPVX_mutable|5.009003||p
SvPVX||| SvPVX|||
SvPV_const|5.009003||p SvPV_const|5.009003||p
SvPV_flags_const_nolen|5.009003||p SvPV_flags_const_nolen|5.009003||p
SvPV_flags_const|5.009003||p SvPV_flags_const|5.009003||p
SvPV_flags_mutable|5.009003||p SvPV_flags_mutable|5.009003||p
SvPV_flags|5.007002||p SvPV_flags|5.007002||p
SvPV_force_flags_mutable|5.009003||p SvPV_force_flags_mutable|5.009003||p
SvPV_force_flags_nolen|5.009003||p SvPV_force_flags_nolen|5.009003||p
skipping to change at line 954 skipping to change at line 988
SvPVbytex_force||5.006000| SvPVbytex_force||5.006000|
SvPVbytex||5.006000| SvPVbytex||5.006000|
SvPVbyte|5.006000||p SvPVbyte|5.006000||p
SvPVutf8_force||5.006000| SvPVutf8_force||5.006000|
SvPVutf8_nolen||5.006000| SvPVutf8_nolen||5.006000|
SvPVutf8x_force||5.006000| SvPVutf8x_force||5.006000|
SvPVutf8x||5.006000| SvPVutf8x||5.006000|
SvPVutf8||5.006000| SvPVutf8||5.006000|
SvPVx||| SvPVx|||
SvPV||| SvPV|||
SvREADONLY_off|||
SvREADONLY_on|||
SvREADONLY|||
SvREFCNT_dec_NN||5.017007| SvREFCNT_dec_NN||5.017007|
SvREFCNT_dec||| SvREFCNT_dec|||
SvREFCNT_inc_NN|5.009004||p SvREFCNT_inc_NN|5.009004||p
SvREFCNT_inc_simple_NN|5.009004||p SvREFCNT_inc_simple_NN|5.009004||p
SvREFCNT_inc_simple_void_NN|5.009004||p SvREFCNT_inc_simple_void_NN|5.009004||p
SvREFCNT_inc_simple_void|5.009004||p SvREFCNT_inc_simple_void|5.009004||p
SvREFCNT_inc_simple|5.009004||p SvREFCNT_inc_simple|5.009004||p
SvREFCNT_inc_void_NN|5.009004||p SvREFCNT_inc_void_NN|5.009004||p
SvREFCNT_inc_void|5.009004||p SvREFCNT_inc_void|5.009004||p
SvREFCNT_inc|||p SvREFCNT_inc|||p
SvREFCNT||| SvREFCNT|||
SvROK_off||| SvROK_off|||
SvROK_on||| SvROK_on|||
SvROK||| SvROK|||
SvRV_set|5.009003||p SvRV_set|5.009003||p
SvRV||| SvRV|||
SvRXOK||5.009005| SvRXOK|5.009005||p
SvRX||5.009005| SvRX|5.009005||p
SvSETMAGIC||| SvSETMAGIC|||
SvSHARED_HASH|5.009003||p SvSHARED_HASH|5.009003||p
SvSHARE||5.007003| SvSHARE||5.007003|
SvSTASH_set|5.009003||p SvSTASH_set|5.009003||p
SvSTASH||| SvSTASH|||
SvSetMagicSV_nosteal||5.004000| SvSetMagicSV_nosteal||5.004000|
SvSetMagicSV||5.004000| SvSetMagicSV||5.004000|
SvSetSV_nosteal||5.004000| SvSetSV_nosteal||5.004000|
SvSetSV||| SvSetSV|||
SvTAINTED_off||5.004000| SvTAINTED_off||5.004000|
skipping to change at line 1005 skipping to change at line 1042
SvUVXx|5.004000||p SvUVXx|5.004000||p
SvUVX|5.004000||p SvUVX|5.004000||p
SvUV_nomg|5.009001||p SvUV_nomg|5.009001||p
SvUV_set|5.009003||p SvUV_set|5.009003||p
SvUVx|5.004000||p SvUVx|5.004000||p
SvUV|5.004000||p SvUV|5.004000||p
SvVOK||5.008001| SvVOK||5.008001|
SvVSTRING_mg|5.009004||p SvVSTRING_mg|5.009004||p
THIS|||n THIS|||n
UNDERBAR|5.009002||p UNDERBAR|5.009002||p
UNICODE_REPLACEMENT|||p
UNLIKELY|||p
UTF8SKIP||5.006000|
UTF8_IS_INVARIANT|||
UTF8_IS_NONCHAR|||
UTF8_IS_SUPER|||
UTF8_IS_SURROGATE|||
UTF8_MAXBYTES|5.009002||p UTF8_MAXBYTES|5.009002||p
UTF8_SAFE_SKIP|||p
UVCHR_IS_INVARIANT|||
UVCHR_SKIP||5.022000|
UVSIZE|5.006000||p UVSIZE|5.006000||p
UVTYPE|5.006000||p UVTYPE|5.006000||p
UVXf|5.007001||p UVXf|5.007001||p
UVof|5.006000||p UVof|5.006000||p
UVuf|5.006000||p UVuf|5.006000||p
UVxf|5.006000||p UVxf|5.006000||p
WARN_ALL|5.006000||p WARN_ALL|5.006000||p
WARN_AMBIGUOUS|5.006000||p WARN_AMBIGUOUS|5.006000||p
WARN_ASSERTIONS|5.021008||p WARN_ASSERTIONS|5.024000||p
WARN_BAREWORD|5.006000||p WARN_BAREWORD|5.006000||p
WARN_CLOSED|5.006000||p WARN_CLOSED|5.006000||p
WARN_CLOSURE|5.006000||p WARN_CLOSURE|5.006000||p
WARN_DEBUGGING|5.006000||p WARN_DEBUGGING|5.006000||p
WARN_DEPRECATED|5.006000||p WARN_DEPRECATED|5.006000||p
WARN_DIGIT|5.006000||p WARN_DIGIT|5.006000||p
WARN_EXEC|5.006000||p WARN_EXEC|5.006000||p
WARN_EXITING|5.006000||p WARN_EXITING|5.006000||p
WARN_GLOB|5.006000||p WARN_GLOB|5.006000||p
WARN_INPLACE|5.006000||p WARN_INPLACE|5.006000||p
skipping to change at line 1087 skipping to change at line 1134
XSRETURN_UV|5.008001||p XSRETURN_UV|5.008001||p
XSRETURN_YES||| XSRETURN_YES|||
XSRETURN|||p XSRETURN|||p
XST_mIV||| XST_mIV|||
XST_mNO||| XST_mNO|||
XST_mNV||| XST_mNV|||
XST_mPV||| XST_mPV|||
XST_mUNDEF||| XST_mUNDEF|||
XST_mUV|5.008001||p XST_mUV|5.008001||p
XST_mYES||| XST_mYES|||
XS_APIVERSION_BOOTCHECK||5.021008| XS_APIVERSION_BOOTCHECK||5.024000|
XS_EXTERNAL||5.021008| XS_EXTERNAL||5.024000|
XS_INTERNAL||5.021008| XS_INTERNAL||5.024000|
XS_VERSION_BOOTCHECK||5.021008| XS_VERSION_BOOTCHECK||5.024000|
XS_VERSION||| XS_VERSION|||
XSprePUSH|5.006000||p XSprePUSH|5.006000||p
XS||| XS|||
XopDISABLE||5.021008| XopDISABLE||5.024000|
XopENABLE||5.021008| XopENABLE||5.024000|
XopENTRYCUSTOM||5.021008| XopENTRYCUSTOM||5.024000|
XopENTRY_set||5.021008| XopENTRY_set||5.024000|
XopENTRY||5.021008| XopENTRY||5.024000|
XopFLAGS||5.013007| XopFLAGS||5.013007|
ZeroD|5.009002||p ZeroD|5.009002||p
Zero||| Zero|||
__ASSERT_|||p
_aMY_CXT|5.007003||p _aMY_CXT|5.007003||p
_add_range_to_invlist||| _inverse_folds|||
_append_range_to_invlist||| _is_grapheme|||
_core_swash_init||| _is_in_locale_category|||
_get_encoding|||
_get_regclass_nonbitmap_data|||
_get_swash_invlist|||
_invlist_array_init|||n
_invlist_contains_cp|||n
_invlist_contents|||
_invlist_dump|||
_invlist_intersection_maybe_complement_2nd|||
_invlist_intersection|||
_invlist_invert|||
_invlist_len|||n
_invlist_populate_swatch|||n
_invlist_search|||n
_invlist_subtract|||
_invlist_union_maybe_complement_2nd|||
_invlist_union|||
_is_cur_LC_category_utf8|||
_is_in_locale_category||5.021001|
_is_uni_FOO||5.017008|
_is_uni_perl_idcont||5.017008|
_is_uni_perl_idstart||5.017007|
_is_utf8_FOO||5.017008|
_is_utf8_char_slow||5.021001|n
_is_utf8_idcont||5.021001|
_is_utf8_idstart||5.021001|
_is_utf8_mark||5.017008|
_is_utf8_perl_idcont||5.017008|
_is_utf8_perl_idstart||5.017007|
_is_utf8_xidcont||5.021001|
_is_utf8_xidstart||5.021001|
_load_PL_utf8_foldclosures|||
_make_exactf_invlist|||
_new_invlist_C_array||| _new_invlist_C_array|||
_new_invlist|||
_pMY_CXT|5.007003||p _pMY_CXT|5.007003||p
_setup_canned_invlist||| _to_fold_latin1|||n
_swash_inversion_hash|||
_swash_to_invlist|||
_to_fold_latin1|||
_to_uni_fold_flags||5.014000|
_to_upper_title_latin1||| _to_upper_title_latin1|||
_to_utf8_fold_flags||5.019009| _to_utf8_case|||
_to_utf8_lower_flags||5.019009| _variant_byte_number|||n
_to_utf8_title_flags||5.019009|
_to_utf8_upper_flags||5.019009|
_warn_problematic_locale|||n _warn_problematic_locale|||n
aMY_CXT_|5.007003||p aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p aMY_CXT|5.007003||p
aTHXR_|5.021008||p aTHXR_|5.024000||p
aTHXR|5.021008||p aTHXR|5.024000||p
aTHX_|5.006000||p aTHX_|5.006000||p
aTHX|5.006000||p aTHX|5.006000||p
aassign_common_vars||| abort_execution|||
add_above_Latin1_folds||| add_above_Latin1_folds|||
add_cp_to_invlist|||
add_data|||n add_data|||n
add_multi_match||| add_multi_match|||
add_utf16_textfilter||| add_utf16_textfilter|||
adjust_size_and_find_bucket|||n adjust_size_and_find_bucket|||n
advance_one_LB|||
advance_one_SB||| advance_one_SB|||
advance_one_WB||| advance_one_WB|||
alloc_maybe_populate_EXACT|||
alloccopstash|||
allocmy||| allocmy|||
amagic_call||| amagic_call|||
amagic_cmp_locale||| amagic_cmp_locale|||
amagic_cmp||| amagic_cmp|||
amagic_deref_call||5.013007| amagic_deref_call||5.013007|
amagic_i_ncmp||| amagic_i_ncmp|||
amagic_is_enabled||| amagic_is_enabled|||
amagic_ncmp||| amagic_ncmp|||
anonymise_cv_maybe||| anonymise_cv_maybe|||
any_dup||| any_dup|||
ao||| ao|||
append_utf8_from_native_byte||5.019004|n
apply_attrs_my||| apply_attrs_my|||
apply_attrs_string||5.006001|
apply_attrs||| apply_attrs|||
apply||| apply|||
argvout_final|||
assert_uft8_cache_coherent||| assert_uft8_cache_coherent|||
assignment_type||| assignment_type|||
atfork_lock||5.007003|n atfork_lock||5.007003|n
atfork_unlock||5.007003|n atfork_unlock||5.007003|n
av_arylen_p||5.009003| av_arylen_p||5.009003|
av_clear||| av_clear|||
av_create_and_push||5.009005|
av_create_and_unshift_one||5.009005|
av_delete||5.006000| av_delete||5.006000|
av_exists||5.006000| av_exists||5.006000|
av_extend_guts||| av_extend_guts|||
av_extend||| av_extend|||
av_fetch||| av_fetch|||
av_fill||| av_fill|||
av_iter_p||5.011000| av_iter_p||5.011000|
av_len||| av_len|||
av_make||| av_make|||
av_nonelem|||
av_pop||| av_pop|||
av_push||| av_push|||
av_reify||| av_reify|||
av_shift||| av_shift|||
av_store||| av_store|||
av_tindex||5.017009| av_tindex|5.017009|5.017009|p
av_top_index||5.017009| av_top_index|5.017009|5.017009|p
av_undef||| av_undef|||
av_unshift||| av_unshift|||
ax|||n ax|||n
backup_one_GCB|||
backup_one_LB|||
backup_one_SB||| backup_one_SB|||
backup_one_WB||| backup_one_WB|||
bad_type_gv||| bad_type_gv|||
bad_type_pv||| bad_type_pv|||
bind_match||| bind_match|||
block_end||5.004000| block_end||5.004000|
block_gimme||5.004000| block_gimme||5.004000|
block_start||5.004000| block_start||5.004000|
blockhook_register||5.013003| blockhook_register||5.013003|
boolSV|5.004000||p boolSV|5.004000||p
boot_core_PerlIO||| boot_core_PerlIO|||
boot_core_UNIVERSAL||| boot_core_UNIVERSAL|||
boot_core_mro||| boot_core_mro|||
bytes_cmp_utf8||5.013007| bytes_cmp_utf8||5.013007|
bytes_from_utf8||5.007001| cBOOL|5.013000||p
bytes_to_utf8||5.006001|
call_argv|5.006000||p call_argv|5.006000||p
call_atexit||5.006000| call_atexit||5.006000|
call_list||5.004000| call_list||5.004000|
call_method|5.006000||p call_method|5.006000||p
call_pv|5.006000||p call_pv|5.006000||p
call_sv|5.006000||p call_sv|5.006000||p
caller_cx|5.013005|5.006000|p caller_cx|5.013005|5.006000|p
calloc||5.007002|n calloc||5.007002|n
cando||| cando|||
cast_i32||5.006000|n cast_i32||5.006000|n
cast_iv||5.006000|n cast_iv||5.006000|n
cast_ulong||5.006000|n cast_ulong||5.006000|n
cast_uv||5.006000|n cast_uv||5.006000|n
check_locale_boundary_crossing||| category_name|||n
change_engine_size|||
check_and_deprecate|||
check_type_and_open||| check_type_and_open|||
check_uni||| check_uni|||
check_utf8_print|||
checkcomma||| checkcomma|||
ckWARN2_d|||
ckWARN2|||
ckWARN3_d|||
ckWARN3|||
ckWARN4_d|||
ckWARN4|||
ckWARN_d|||
ckWARN|5.006000||p ckWARN|5.006000||p
ck_entersub_args_core||| ck_entersub_args_core|||
ck_entersub_args_list||5.013006| ck_entersub_args_list||5.013006|
ck_entersub_args_proto_or_list||5.013006| ck_entersub_args_proto_or_list||5.013006|
ck_entersub_args_proto||5.013006| ck_entersub_args_proto||5.013006|
ck_warner_d||5.011001|v ck_warner_d||5.011001|v
ck_warner||5.011001|v ck_warner||5.011001|v
ckwarn_common||| ckwarn_common|||
ckwarn_d||5.009003| ckwarn_d||5.009003|
ckwarn||5.009003| ckwarn||5.009003|
clear_placeholders||| clear_defarray||5.023008|
clear_special_blocks||| clear_special_blocks|||
clone_params_del|||n clone_params_del|||n
clone_params_new|||n clone_params_new|||n
closest_cop||| closest_cop|||
cntrl_to_mnemonic|||n cntrl_to_mnemonic|||n
compute_EXACTish|||n compute_EXACTish|||n
construct_ahocorasick_from_trie||| construct_ahocorasick_from_trie|||
cop_fetch_label||5.015001|
cop_free||| cop_free|||
cop_hints_2hv||5.013007| cop_hints_2hv||5.013007|
cop_hints_fetch_pvn||5.013007| cop_hints_fetch_pvn||5.013007|
cop_hints_fetch_pvs||5.013007| cop_hints_fetch_pvs||5.013007|
cop_hints_fetch_pv||5.013007| cop_hints_fetch_pv||5.013007|
cop_hints_fetch_sv||5.013007| cop_hints_fetch_sv||5.013007|
cop_store_label||5.015001|
cophh_2hv||5.013007| cophh_2hv||5.013007|
cophh_copy||5.013007| cophh_copy||5.013007|
cophh_delete_pvn||5.013007| cophh_delete_pvn||5.013007|
cophh_delete_pvs||5.013007| cophh_delete_pvs||5.013007|
cophh_delete_pv||5.013007| cophh_delete_pv||5.013007|
cophh_delete_sv||5.013007| cophh_delete_sv||5.013007|
cophh_fetch_pvn||5.013007| cophh_fetch_pvn||5.013007|
cophh_fetch_pvs||5.013007| cophh_fetch_pvs||5.013007|
cophh_fetch_pv||5.013007| cophh_fetch_pv||5.013007|
cophh_fetch_sv||5.013007| cophh_fetch_sv||5.013007|
cophh_free||5.013007| cophh_free||5.013007|
cophh_new_empty||5.021008| cophh_new_empty||5.024000|
cophh_store_pvn||5.013007| cophh_store_pvn||5.013007|
cophh_store_pvs||5.013007| cophh_store_pvs||5.013007|
cophh_store_pv||5.013007| cophh_store_pv||5.013007|
cophh_store_sv||5.013007| cophh_store_sv||5.013007|
core_prototype||| core_prototype|||
coresub_op||| coresub_op|||
could_it_be_a_POSIX_class|||n
cr_textfilter||| cr_textfilter|||
create_eval_scope||| croak_caller|||vn
croak_memory_wrap||5.019003|n croak_memory_wrap|5.019003||pn
croak_no_mem|||n croak_no_mem|||n
croak_no_modify||5.013003|n croak_no_modify|5.013003||pn
croak_nocontext|||vn croak_nocontext|||pvn
croak_popstack|||n croak_popstack|||n
croak_sv||5.013001| croak_sv|5.013001||p
croak_xs_usage||5.010001|n croak_xs_usage|5.010001||pn
croak|||v croak|||v
csighandler||5.009003|n csighandler||5.009003|n
current_re_engine||| current_re_engine|||
curse||| curse|||
custom_op_desc||5.007003| custom_op_desc||5.007003|
custom_op_get_field||| custom_op_get_field|||
custom_op_name||5.007003| custom_op_name||5.007003|
custom_op_register||5.013007| custom_op_register||5.013007|
custom_op_xop||5.013007| custom_op_xop||5.013007|
cv_ckproto_len_flags|||
cv_clone_into||| cv_clone_into|||
cv_clone||| cv_clone|||
cv_const_sv_or_av|||n cv_const_sv_or_av|||n
cv_const_sv||5.003070|n cv_const_sv||5.003070|n
cv_dump||| cv_dump|||
cv_forget_slab||| cv_forget_slab|||
cv_get_call_checker_flags|||
cv_get_call_checker||5.013006| cv_get_call_checker||5.013006|
cv_name||5.021005| cv_name||5.021005|
cv_set_call_checker_flags||5.021004| cv_set_call_checker_flags||5.021004|
cv_set_call_checker||5.013006| cv_set_call_checker||5.013006|
cv_undef_flags||| cv_undef_flags|||
cv_undef||| cv_undef|||
cvgv_from_hek||| cvgv_from_hek|||
cvgv_set||| cvgv_set|||
cvstash_set||| cvstash_set|||
cx_dump||5.005000| cx_dump||5.005000|
skipping to change at line 1339 skipping to change at line 1350
dAX|5.007002||p dAX|5.007002||p
dITEMS|5.007002||p dITEMS|5.007002||p
dMARK||| dMARK|||
dMULTICALL||5.009003| dMULTICALL||5.009003|
dMY_CXT_SV|5.007003||p dMY_CXT_SV|5.007003||p
dMY_CXT|5.007003||p dMY_CXT|5.007003||p
dNOOP|5.006000||p dNOOP|5.006000||p
dORIGMARK||| dORIGMARK|||
dSP||| dSP|||
dTHR|5.004050||p dTHR|5.004050||p
dTHXR|5.021008||p dTHXR|5.024000||p
dTHXa|5.006000||p dTHXa|5.006000||p
dTHXoa|5.006000||p dTHXoa|5.006000||p
dTHX|5.006000||p dTHX|5.006000||p
dUNDERBAR|5.009002||p dUNDERBAR|5.009002||p
dVAR|5.009003||p dVAR|5.009003||p
dXCPT|5.009002||p dXCPT|5.009002||p
dXSARGS||| dXSARGS|||
dXSI32||| dXSI32|||
dXSTARG|5.006000||p dXSTARG|5.006000||p
deb_curcv||| deb_curcv|||
skipping to change at line 1362 skipping to change at line 1373
deb_stack_n||| deb_stack_n|||
debop||5.005000| debop||5.005000|
debprofdump||5.005000| debprofdump||5.005000|
debprof||| debprof|||
debstackptrs||5.007003| debstackptrs||5.007003|
debstack||5.007003| debstack||5.007003|
debug_start_match||| debug_start_match|||
deb||5.007003|v deb||5.007003|v
defelem_target||| defelem_target|||
del_sv||| del_sv|||
delete_eval_scope||| delimcpy_no_escape|||n
delimcpy||5.004000|n delimcpy||5.004000|n
deprecate_commaless_var_list|||
despatch_signals||5.007001| despatch_signals||5.007001|
destroy_matcher||| destroy_matcher|||
die_nocontext|||vn die_nocontext|||vn
die_sv||5.013001| die_sv|5.013001||p
die_unwind||| die_unwind|||
die|||v die|||v
dirp_dup||| dirp_dup|||
div128||| div128|||
djSP||| djSP|||
do_aexec5||| do_aexec5|||
do_aexec||| do_aexec|||
do_aspawn||| do_aspawn|||
do_binmode||5.004050| do_binmode||5.004050|
do_chomp||| do_chomp|||
do_close||| do_close|||
do_delete_local||| do_delete_local|||
do_dump_pad||| do_dump_pad|||
do_eof||| do_eof|||
do_exec3||| do_exec3|||
do_execfree|||
do_exec||| do_exec|||
do_gv_dump||5.006000| do_gv_dump||5.006000|
do_gvgv_dump||5.006000| do_gvgv_dump||5.006000|
do_hv_dump||5.006000| do_hv_dump||5.006000|
do_ipcctl||| do_ipcctl|||
do_ipcget||| do_ipcget|||
do_join||| do_join|||
do_magic_dump||5.006000| do_magic_dump||5.006000|
do_msgrcv||| do_msgrcv|||
do_msgsnd||| do_msgsnd|||
do_ncmp||| do_ncmp|||
do_oddball||| do_oddball|||
do_op_dump||5.006000| do_op_dump||5.006000|
do_open6|||
do_open9||5.006000| do_open9||5.006000|
do_open_raw|||
do_openn||5.007001| do_openn||5.007001|
do_open||5.003070| do_open||5.003070|
do_pmop_dump||5.006000| do_pmop_dump||5.006000|
do_print||| do_print|||
do_readline||| do_readline|||
do_seek||| do_seek|||
do_semop||| do_semop|||
do_shmio||| do_shmio|||
do_smartmatch||| do_smartmatch|||
do_spawn_nowait||| do_spawn_nowait|||
skipping to change at line 1427 skipping to change at line 1434
do_trans_complex||| do_trans_complex|||
do_trans_count_utf8||| do_trans_count_utf8|||
do_trans_count||| do_trans_count|||
do_trans_simple_utf8||| do_trans_simple_utf8|||
do_trans_simple||| do_trans_simple|||
do_trans||| do_trans|||
do_vecget||| do_vecget|||
do_vecset||| do_vecset|||
do_vop||| do_vop|||
docatch||| docatch|||
doeval||| does_utf8_overflow|||n
doeval_compile|||
dofile||| dofile|||
dofindlabel||| dofindlabel|||
doform||| doform|||
doing_taint||5.008001|n doing_taint||5.008001|n
dooneliner||| dooneliner|||
doopen_pm||| doopen_pm|||
doparseform||| doparseform|||
dopoptoeval||| dopoptoeval|||
dopoptogiven||| dopoptogivenfor|||
dopoptolabel||| dopoptolabel|||
dopoptoloop||| dopoptoloop|||
dopoptosub_at||| dopoptosub_at|||
dopoptowhen||| dopoptowhen|||
doref||5.009003| doref||5.009003|
dounwind||| dounwind|||
dowantarray||| dowantarray|||
drand48_init_r|||n drand48_init_r|||n
drand48_r|||n drand48_r|||n
dtrace_probe_call|||
dtrace_probe_load|||
dtrace_probe_op|||
dtrace_probe_phase|||
dump_all_perl||| dump_all_perl|||
dump_all||5.006000| dump_all||5.006000|
dump_c_backtrace||| dump_c_backtrace|||
dump_eval||5.006000| dump_eval||5.006000|
dump_exec_pos||| dump_exec_pos|||
dump_form||5.006000| dump_form||5.006000|
dump_indent||5.006000|v dump_indent||5.006000|v
dump_mstats||| dump_mstats|||
dump_packsubs_perl||| dump_packsubs_perl|||
dump_packsubs||5.006000| dump_packsubs||5.006000|
dump_regex_sets_structures|||
dump_sub_perl||| dump_sub_perl|||
dump_sub||5.006000| dump_sub||5.006000|
dump_sv_child||| dump_sv_child|||
dump_trie_interim_list||| dump_trie_interim_list|||
dump_trie_interim_table||| dump_trie_interim_table|||
dump_trie||| dump_trie|||
dump_vindent||5.006000| dump_vindent||5.006000|
dumpuntil||| dumpuntil|||
dup_attrlist||| dup_attrlist|||
emulate_cop_io||| dup_warnings|||
edit_distance|||n
emulate_setlocale|||n
eval_pv|5.006000||p eval_pv|5.006000||p
eval_sv|5.006000||p eval_sv|5.006000||p
exec_failed||| exec_failed|||
expect_number||| expect_number|||
fbm_compile||5.005000| fbm_compile||5.005000|
fbm_instr||5.005000| fbm_instr||5.005000|
feature_is_enabled||| feature_is_enabled|||
filter_add||| filter_add|||
filter_del||| filter_del|||
filter_gets||| filter_gets|||
skipping to change at line 1487 skipping to change at line 1502
finalize_optree||| finalize_optree|||
finalize_op||| finalize_op|||
find_and_forget_pmops||| find_and_forget_pmops|||
find_array_subscript||| find_array_subscript|||
find_beginning||| find_beginning|||
find_byclass||| find_byclass|||
find_default_stash||| find_default_stash|||
find_hash_subscript||| find_hash_subscript|||
find_in_my_stash||| find_in_my_stash|||
find_lexical_cv||| find_lexical_cv|||
find_next_masked|||n
find_runcv_where||| find_runcv_where|||
find_runcv||5.008001| find_runcv||5.008001|
find_rundefsv2|||
find_rundefsvoffset||5.009002|
find_rundefsv||5.013002| find_rundefsv||5.013002|
find_script||| find_script|||
find_uninit_var||| find_span_end_mask|||n
find_span_end|||n
first_symbol|||n first_symbol|||n
fixup_errno_string||| fixup_errno_string|||
foldEQ_latin1_s2_folded|||n
foldEQ_latin1||5.013008|n foldEQ_latin1||5.013008|n
foldEQ_locale||5.013002|n foldEQ_locale||5.013002|n
foldEQ_utf8_flags||5.013010|
foldEQ_utf8||5.013002| foldEQ_utf8||5.013002|
foldEQ||5.013002|n foldEQ||5.013002|n
fold_constants||| fold_constants|||
forbid_setid||| forbid_setid|||
force_ident_maybe_lex||| force_ident_maybe_lex|||
force_ident||| force_ident|||
force_list||| force_list|||
force_next||| force_next|||
force_strict_version||| force_strict_version|||
force_version||| force_version|||
force_word||| force_word|||
forget_pmop||| forget_pmop|||
form_nocontext|||vn form_nocontext|||vn
form_short_octal_warning|||
form||5.004000|v form||5.004000|v
fp_dup||| fp_dup|||
fprintf_nocontext|||vn fprintf_nocontext|||vn
free_c_backtrace||| free_c_backtrace|||
free_global_struct||| free_global_struct|||
free_tied_hv_pool||| free_tied_hv_pool|||
free_tmps||| free_tmps|||
gen_constant_list||| gen_constant_list|||
get_ANYOFM_contents|||
get_ANYOF_cp_list_for_ssc||| get_ANYOF_cp_list_for_ssc|||
get_and_check_backslash_N_name_wrapper|||
get_and_check_backslash_N_name||| get_and_check_backslash_N_name|||
get_aux_mg||| get_aux_mg|||
get_av|5.006000||p get_av|5.006000||p
get_c_backtrace_dump||| get_c_backtrace_dump|||
get_c_backtrace||| get_c_backtrace|||
get_context||5.006000|n get_context||5.006000|n
get_cvn_flags|5.009005||p get_cvn_flags|||
get_cvs|5.011000||p get_cvs|5.011000||p
get_cv|5.006000||p get_cv|5.006000||p
get_db_sub||| get_db_sub|||
get_debug_opts||| get_debug_opts|||
get_hash_seed||| get_hash_seed|||
get_hv|5.006000||p get_hv|5.006000||p
get_invlist_iter_addr|||n
get_invlist_offset_addr|||n
get_invlist_previous_index_addr|||n
get_mstats||| get_mstats|||
get_no_modify||| get_no_modify|||
get_num||| get_num|||
get_op_descs||5.005000| get_op_descs||5.005000|
get_op_names||5.005000| get_op_names||5.005000|
get_opargs||| get_opargs|||
get_ppaddr||5.006000| get_ppaddr||5.006000|
get_re_arg|||
get_sv|5.006000||p get_sv|5.006000||p
get_vtbl||5.005030| get_vtbl||5.005030|
getcwd_sv||5.007002| getcwd_sv||5.007002|
getenv_len||| getenv_len|||
glob_2number||| glob_2number|||
glob_assign_glob||| glob_assign_glob|||
gp_dup||| gp_dup|||
gp_free||| gp_free|||
gp_ref||| gp_ref|||
grok_atoUV|||n grok_atoUV|||n
grok_bin|5.007003||p grok_bin|5.007003||p
grok_bslash_N||| grok_bslash_N|||
grok_bslash_c|||
grok_bslash_o|||
grok_bslash_x|||
grok_hex|5.007003||p grok_hex|5.007003||p
grok_infnan||5.021004| grok_infnan||5.021004|
grok_number_flags||5.021002| grok_number_flags||5.021002|
grok_number|5.007002||p grok_number|5.007002||p
grok_numeric_radix|5.007002||p grok_numeric_radix|5.007002||p
grok_oct|5.007003||p grok_oct|5.007003||p
group_end||| group_end|||
gv_AVadd||| gv_AVadd|||
gv_HVadd||| gv_HVadd|||
gv_IOadd||| gv_IOadd|||
skipping to change at line 1594 skipping to change at line 1603
gv_fetchfile||| gv_fetchfile|||
gv_fetchmeth_autoload||5.007003| gv_fetchmeth_autoload||5.007003|
gv_fetchmeth_internal||| gv_fetchmeth_internal|||
gv_fetchmeth_pv_autoload||5.015004| gv_fetchmeth_pv_autoload||5.015004|
gv_fetchmeth_pvn_autoload||5.015004| gv_fetchmeth_pvn_autoload||5.015004|
gv_fetchmeth_pvn||5.015004| gv_fetchmeth_pvn||5.015004|
gv_fetchmeth_pv||5.015004| gv_fetchmeth_pv||5.015004|
gv_fetchmeth_sv_autoload||5.015004| gv_fetchmeth_sv_autoload||5.015004|
gv_fetchmeth_sv||5.015004| gv_fetchmeth_sv||5.015004|
gv_fetchmethod_autoload||5.004000| gv_fetchmethod_autoload||5.004000|
gv_fetchmethod_pv_flags||5.015004|
gv_fetchmethod_pvn_flags||5.015004|
gv_fetchmethod_sv_flags||5.015004|
gv_fetchmethod||| gv_fetchmethod|||
gv_fetchmeth||| gv_fetchmeth|||
gv_fetchpvn_flags|5.009002||p gv_fetchpvn_flags|5.009002||p
gv_fetchpvs|5.009004||p gv_fetchpvs|5.009004||p
gv_fetchpv||| gv_fetchpv|||
gv_fetchsv|5.009002||p gv_fetchsv|||
gv_fullname3||5.003070| gv_fullname3||5.003070|
gv_fullname4||5.006001| gv_fullname4||5.006001|
gv_fullname||| gv_fullname|||
gv_handler||5.007001| gv_handler||5.007001|
gv_init_pvn||5.015004| gv_init_pvn|||
gv_init_pv||5.015004| gv_init_pv||5.015004|
gv_init_svtype||| gv_init_svtype|||
gv_init_sv||5.015004| gv_init_sv||5.015004|
gv_init||| gv_init|||
gv_is_in_main||| gv_is_in_main|||
gv_magicalize_isa||| gv_magicalize_isa|||
gv_magicalize||| gv_magicalize|||
gv_name_set||5.009004| gv_name_set||5.009004|
gv_override||| gv_override|||
gv_setref||| gv_setref|||
gv_stashpvn_internal||| gv_stashpvn_internal|||
gv_stashpvn|5.003070||p gv_stashpvn|5.003070||p
gv_stashpvs|5.009003||p gv_stashpvs|5.009003||p
gv_stashpv||| gv_stashpv|||
gv_stashsvpvn_cached||| gv_stashsvpvn_cached|||
gv_stashsv||| gv_stashsv|||
gv_try_downgrade||| handle_named_backref|||
handle_possible_posix|||
handle_regex_sets||| handle_regex_sets|||
handle_user_defined_property|||
he_dup||| he_dup|||
hek_dup||| hek_dup|||
hfree_next_entry||| hfree_next_entry|||
hfreeentries|||
hsplit||| hsplit|||
hv_assert||| hv_assert|||
hv_auxinit_internal|||n hv_auxinit_internal|||n
hv_auxinit||| hv_auxinit|||
hv_backreferences_p|||
hv_clear_placeholders||5.009001| hv_clear_placeholders||5.009001|
hv_clear||| hv_clear|||
hv_common_key_len||5.010000| hv_common_key_len||5.010000|
hv_common||5.010000| hv_common||5.010000|
hv_copy_hints_hv||5.009004| hv_copy_hints_hv||5.009004|
hv_delayfree_ent||5.004000| hv_delayfree_ent||5.004000|
hv_delete_common|||
hv_delete_ent||5.003070| hv_delete_ent||5.003070|
hv_delete||| hv_delete|||
hv_eiter_p||5.009003| hv_eiter_p||5.009003|
hv_eiter_set||5.009003| hv_eiter_set||5.009003|
hv_ename_add||| hv_ename_add|||
hv_ename_delete||| hv_ename_delete|||
hv_exists_ent||5.003070| hv_exists_ent||5.003070|
hv_exists||| hv_exists|||
hv_fetch_ent||5.003070| hv_fetch_ent||5.003070|
hv_fetchs|5.009003||p hv_fetchs|5.009003||p
hv_fetch||| hv_fetch|||
hv_fill||5.013002| hv_fill||5.013002|
hv_free_ent_ret||| hv_free_ent_ret|||
hv_free_entries|||
hv_free_ent||5.004000| hv_free_ent||5.004000|
hv_iterinit||| hv_iterinit|||
hv_iterkeysv||5.003070| hv_iterkeysv||5.003070|
hv_iterkey||| hv_iterkey|||
hv_iternext_flags||5.008000|
hv_iternextsv||| hv_iternextsv|||
hv_iternext||| hv_iternext|||
hv_iterval||| hv_iterval|||
hv_kill_backrefs|||
hv_ksplit||5.003070| hv_ksplit||5.003070|
hv_magic_check|||n hv_magic_check|||n
hv_magic||| hv_magic|||
hv_name_set||5.009003| hv_name_set||5.009003|
hv_notallowed||| hv_notallowed|||
hv_placeholders_get||5.009003| hv_placeholders_get||5.009003|
hv_placeholders_p||| hv_placeholders_p|||
hv_placeholders_set||5.009003| hv_placeholders_set||5.009003|
hv_pushkv|||
hv_rand_set||5.018000| hv_rand_set||5.018000|
hv_riter_p||5.009003| hv_riter_p||5.009003|
hv_riter_set||5.009003| hv_riter_set||5.009003|
hv_scalar||5.009001| hv_scalar||5.009001|
hv_store_ent||5.003070| hv_store_ent||5.003070|
hv_store_flags||5.008000|
hv_stores|5.009004||p hv_stores|5.009004||p
hv_store||| hv_store|||
hv_undef_flags||| hv_undef_flags|||
hv_undef||| hv_undef|||
ibcmp_locale||5.004000| ibcmp_locale||5.004000|
ibcmp_utf8||5.007003| ibcmp_utf8||5.007003|
ibcmp||| ibcmp|||
incline||| incline|||
incpush_if_exists||| incpush_if_exists|||
incpush_use_sep||| incpush_use_sep|||
incpush||| incpush|||
ingroup||| ingroup|||
init_argv_symbols||| init_argv_symbols|||
init_constants||| init_constants|||
init_dbargs||| init_dbargs|||
init_debugger||| init_debugger|||
init_global_struct||| init_global_struct|||
init_i18nl10n||5.006000|
init_i18nl14n||5.006000|
init_ids||| init_ids|||
init_interp||| init_interp|||
init_main_stash||| init_main_stash|||
init_named_cv|||
init_perllib||| init_perllib|||
init_postdump_symbols||| init_postdump_symbols|||
init_predump_symbols||| init_predump_symbols|||
init_stacks||5.005000| init_stacks||5.005000|
init_tm||5.007002| init_tm||5.007002|
init_uniprops|||
inplace_aassign||| inplace_aassign|||
instr|||n instr|||n
intro_my||5.004000| intro_my||5.004000|
intuit_method||| intuit_method|||
intuit_more||| intuit_more|||
invert||| invert|||
invlist_array|||n
invlist_clone|||
invlist_extend|||
invlist_highest|||n
invlist_is_iterating|||n
invlist_iterfinish|||n
invlist_iterinit|||n
invlist_iternext|||n
invlist_max|||n
invlist_previous_index|||n
invlist_set_len|||
invlist_set_previous_index|||n
invlist_trim|||n
invoke_exception_hook||| invoke_exception_hook|||
io_close||| io_close|||
isALNUMC_A|||p
isALNUMC|5.006000||p isALNUMC|5.006000||p
isALNUM_lazy||5.021001| isALNUM_A|||p
isALPHANUMERIC||5.017008| isALNUM|||p
isALPHA||| isALPHANUMERIC_A|||p
isALPHANUMERIC|5.017008|5.017008|p
isALPHA_A|||p
isALPHA|||p
isASCII_A|||p
isASCII|5.006000||p isASCII|5.006000||p
isBLANK_A|||p
isBLANK|5.006001||p isBLANK|5.006001||p
isC9_STRICT_UTF8_CHAR|||n
isCNTRL_A|||p
isCNTRL|5.006000||p isCNTRL|5.006000||p
isDIGIT||| isDIGIT_A|||p
isFOO_lc||| isDIGIT|||p
isFF_OVERLONG|||n
isFOO_utf8_lc||| isFOO_utf8_lc|||
isGCB|||n isGCB|||
isGRAPH_A|||p
isGRAPH|5.006000||p isGRAPH|5.006000||p
isGV_with_GP|5.009004||p isIDCONT_A|||p
isIDCONT||5.017008| isIDCONT|5.017008|5.017008|p
isIDFIRST_lazy||5.021001| isIDFIRST_A|||p
isIDFIRST||| isIDFIRST|||p
isLOWER||| isLB|||
isOCTAL||5.013005| isLOWER_A|||p
isLOWER|||p
isOCTAL_A|||p
isOCTAL|5.013005|5.013005|p
isPRINT_A|||p
isPRINT|5.004000||p isPRINT|5.004000||p
isPSXSPC_A|||p
isPSXSPC|5.006001||p isPSXSPC|5.006001||p
isPUNCT_A|||p
isPUNCT|5.006000||p isPUNCT|5.006000||p
isSB||| isSB|||
isSPACE||| isSCRIPT_RUN|||
isUPPER||| isSPACE_A|||p
isUTF8_CHAR||5.021001| isSPACE|||p
isSTRICT_UTF8_CHAR|||n
isUPPER_A|||p
isUPPER|||p
isUTF8_CHAR_flags|||
isUTF8_CHAR||5.021001|n
isWB||| isWB|||
isWORDCHAR||5.013006| isWORDCHAR_A|||p
isWORDCHAR|5.013006|5.013006|p
isXDIGIT_A|||p
isXDIGIT|5.006000||p isXDIGIT|5.006000||p
is_an_int||| is_an_int|||
is_ascii_string||5.011000| is_ascii_string||5.011000|n
is_c9strict_utf8_string_loclen|||n
is_c9strict_utf8_string_loc|||n
is_c9strict_utf8_string|||n
is_handle_constructor|||n is_handle_constructor|||n
is_invariant_string||5.021007|n is_invariant_string||5.021007|n
is_lvalue_sub||5.007001| is_lvalue_sub||5.007001|
is_safe_syscall||5.019004| is_safe_syscall||5.019004|
is_ssc_worth_it|||n is_ssc_worth_it|||n
is_uni_alnum_lc||5.006000| is_strict_utf8_string_loclen|||n
is_uni_alnumc_lc||5.017007| is_strict_utf8_string_loc|||n
is_uni_alnumc||5.017007| is_strict_utf8_string|||n
is_uni_alnum||5.006000|
is_uni_alpha_lc||5.006000|
is_uni_alpha||5.006000|
is_uni_ascii_lc||5.006000|
is_uni_ascii||5.006000|
is_uni_blank_lc||5.017002|
is_uni_blank||5.017002|
is_uni_cntrl_lc||5.006000|
is_uni_cntrl||5.006000|
is_uni_digit_lc||5.006000|
is_uni_digit||5.006000|
is_uni_graph_lc||5.006000|
is_uni_graph||5.006000|
is_uni_idfirst_lc||5.006000|
is_uni_idfirst||5.006000|
is_uni_lower_lc||5.006000|
is_uni_lower||5.006000|
is_uni_print_lc||5.006000|
is_uni_print||5.006000|
is_uni_punct_lc||5.006000|
is_uni_punct||5.006000|
is_uni_space_lc||5.006000|
is_uni_space||5.006000|
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.017007|
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
is_utf8_blank||5.017002|
is_utf8_char_buf||5.015008|n is_utf8_char_buf||5.015008|n
is_utf8_char||5.006000|n is_utf8_common_with_len|||
is_utf8_cntrl||5.006000|
is_utf8_common||| is_utf8_common|||
is_utf8_digit||5.006000| is_utf8_cp_above_31_bits|||n
is_utf8_graph||5.006000| is_utf8_fixed_width_buf_flags|||n
is_utf8_idcont||5.008000| is_utf8_fixed_width_buf_loc_flags|||n
is_utf8_idfirst||5.006000| is_utf8_fixed_width_buf_loclen_flags|||n
is_utf8_lower||5.006000| is_utf8_invariant_string_loc|||n
is_utf8_mark||5.006000| is_utf8_invariant_string|||n
is_utf8_perl_space||5.011001| is_utf8_non_invariant_string|||n
is_utf8_perl_word||5.011001| is_utf8_overlong_given_start_byte_ok|||n
is_utf8_posix_digit||5.011001| is_utf8_string_flags|||n
is_utf8_print||5.006000| is_utf8_string_loc_flags|||n
is_utf8_punct||5.006000| is_utf8_string_loclen_flags|||n
is_utf8_space||5.006000|
is_utf8_string_loclen||5.009003|n is_utf8_string_loclen||5.009003|n
is_utf8_string_loc||5.008001|n is_utf8_string_loc||5.008001|n
is_utf8_string||5.006001|n is_utf8_string||5.006001|n
is_utf8_upper||5.006000| is_utf8_valid_partial_char_flags|||n
is_utf8_xdigit||5.006000| is_utf8_valid_partial_char|||n
is_utf8_xidcont||5.013010|
is_utf8_xidfirst||5.013010|
isa_lookup||| isa_lookup|||
isinfnansv||| isinfnansv|||
isinfnan||5.021004|n isinfnan||5.021004|n
items|||n items|||n
ix|||n ix|||n
jmaybe||| jmaybe|||
join_exact||| join_exact|||
keyword_plugin_standard||| keyword_plugin_standard|||
keyword||| keyword|||
leave_common|||
leave_scope||| leave_scope|||
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_pvs||5.013005|
lex_stuff_pv||5.013006|
lex_stuff_sv||5.011002|
lex_unstuff||5.011002|
listkids||| listkids|||
list||| list|||
load_module_nocontext|||vn load_module_nocontext|||vn
load_module|5.006000||pv load_module|5.006000||pv
localize||| localize|||
looks_like_bool||| looks_like_bool|||
looks_like_number||| looks_like_number|||
lop||| lop|||
mPUSHi|5.009002||p mPUSHi|5.009002||p
mPUSHn|5.009002||p mPUSHn|5.009002||p
skipping to change at line 1908 skipping to change at line 1875
magic_setcollxfrm||| magic_setcollxfrm|||
magic_setdbline||| magic_setdbline|||
magic_setdebugvar||| magic_setdebugvar|||
magic_setdefelem||| magic_setdefelem|||
magic_setenv||| magic_setenv|||
magic_sethint||| magic_sethint|||
magic_setisa||| magic_setisa|||
magic_setlvref||| magic_setlvref|||
magic_setmglob||| magic_setmglob|||
magic_setnkeys||| magic_setnkeys|||
magic_setnonelem|||
magic_setpack||| magic_setpack|||
magic_setpos||| magic_setpos|||
magic_setregexp||| magic_setregexp|||
magic_setsig||| magic_setsig|||
magic_setsubstr||| magic_setsubstr|||
magic_settaint||| magic_settaint|||
magic_setutf8||| magic_setutf8|||
magic_setuvar||| magic_setuvar|||
magic_setvec||| magic_setvec|||
magic_set||| magic_set|||
skipping to change at line 1935 skipping to change at line 1903
markstack_grow||5.021001| markstack_grow||5.021001|
matcher_matches_sv||| matcher_matches_sv|||
maybe_multimagic_gv||| maybe_multimagic_gv|||
mayberelocate||| mayberelocate|||
measure_struct||| measure_struct|||
memEQs|5.009005||p memEQs|5.009005||p
memEQ|5.004000||p memEQ|5.004000||p
memNEs|5.009005||p memNEs|5.009005||p
memNE|5.004000||p memNE|5.004000||p
mem_collxfrm||| mem_collxfrm|||
mem_log_alloc|||n
mem_log_common|||n mem_log_common|||n
mem_log_free|||n
mem_log_realloc|||n
mess_alloc||| mess_alloc|||
mess_nocontext|||vn mess_nocontext|||pvn
mess_sv||5.013001| mess_sv|5.013001||p
mess||5.006000|v mess|5.006000||pv
mfree||5.007002|n mfree||5.007002|n
mg_clear||| mg_clear|||
mg_copy||| mg_copy|||
mg_dup||| mg_dup|||
mg_find_mglob||| mg_find_mglob|||
mg_findext|5.013008||pn mg_findext|5.013008||pn
mg_find|||n mg_find|||n
mg_free_type||5.013006| mg_free_type||5.013006|
mg_freeext|||
mg_free||| mg_free|||
mg_get||| mg_get|||
mg_length||5.005000|
mg_localize||| mg_localize|||
mg_magical|||n mg_magical|||n
mg_set||| mg_set|||
mg_size||5.005000| mg_size||5.005000|
mini_mktime||5.007002|n mini_mktime||5.007002|n
minus_v||| minus_v|||
missingterm||| missingterm|||
mode_from_discipline||| mode_from_discipline|||
modkids||| modkids|||
more_bodies||| more_bodies|||
skipping to change at line 1979 skipping to change at line 1950
mro_get_private_data||5.010001| mro_get_private_data||5.010001|
mro_isa_changed_in||| mro_isa_changed_in|||
mro_meta_dup||| mro_meta_dup|||
mro_meta_init||| mro_meta_init|||
mro_method_changed_in||5.009005| mro_method_changed_in||5.009005|
mro_package_moved||| mro_package_moved|||
mro_register||5.010001| mro_register||5.010001|
mro_set_mro||5.010001| mro_set_mro||5.010001|
mro_set_private_data||5.010001| mro_set_private_data||5.010001|
mul128||| mul128|||
mulexp10|||n multiconcat_stringify|||
multideref_stringify||| multideref_stringify|||
my_atof2||5.007002| my_atof2||5.007002|
my_atof3|||
my_atof||5.006000| my_atof||5.006000|
my_attrs||| my_attrs|||
my_bcopy|||n
my_bytes_to_utf8|||n my_bytes_to_utf8|||n
my_bzero|||n
my_chsize||| my_chsize|||
my_clearenv||| my_clearenv|||
my_cxt_index||| my_cxt_index|||
my_cxt_init||| my_cxt_init|||
my_dirfd||5.009005|n my_dirfd||5.009005|n
my_exit_jump||| my_exit_jump|||
my_exit||| my_exit|||
my_failure_exit||5.004000| my_failure_exit||5.004000|
my_fflush_all||5.006000| my_fflush_all||5.006000|
my_fork||5.007003|n my_fork||5.007003|n
my_kid||| my_kid|||
my_lstat_flags||| my_lstat_flags|||
my_lstat||5.021008| my_lstat||5.024000|
my_memcmp|||n my_memrchr|||n
my_memset|||n my_mkostemp|||n
my_mkstemp_cloexec|||n
my_mkstemp|||n
my_nl_langinfo|||n
my_pclose||5.003070| my_pclose||5.003070|
my_popen_list||5.007001| my_popen_list||5.007001|
my_popen||5.003070| my_popen||5.003070|
my_setenv||| my_setenv|||
my_setlocale|||
my_snprintf|5.009004||pvn my_snprintf|5.009004||pvn
my_socketpair||5.007003|n my_socketpair||5.007003|n
my_sprintf|5.009003||pvn my_sprintf|5.009003||pvn
my_stat_flags||| my_stat_flags|||
my_stat||5.021008| my_stat||5.024000|
my_strerror||5.021001| my_strerror|||
my_strftime||5.007002| my_strftime||5.007002|
my_strlcat|5.009004||pn my_strlcat|5.009004||pn
my_strlcpy|5.009004||pn my_strlcpy|5.009004||pn
my_strnlen|||pn
my_strtod|||n
my_unexec||| my_unexec|||
my_vsnprintf||5.009004|n my_vsnprintf||5.009004|n
need_utf8|||n need_utf8|||n
newANONATTRSUB||5.006000| newANONATTRSUB||5.006000|
newANONHASH||| newANONHASH|||
newANONLIST||| newANONLIST|||
newANONSUB||| newANONSUB|||
newASSIGNOP||| newASSIGNOP|||
newATTRSUB_x||| newATTRSUB_x|||
newATTRSUB||5.006000| newATTRSUB||5.006000|
skipping to change at line 2038 skipping to change at line 2012
newBINOP||| newBINOP|||
newCONDOP||| newCONDOP|||
newCONSTSUB_flags||5.015006| newCONSTSUB_flags||5.015006|
newCONSTSUB|5.004050||p newCONSTSUB|5.004050||p
newCVREF||| newCVREF|||
newDEFSVOP||5.021006| newDEFSVOP||5.021006|
newFORM||| newFORM|||
newFOROP||5.013007| newFOROP||5.013007|
newGIVENOP||5.009003| newGIVENOP||5.009003|
newGIVWHENOP||| newGIVWHENOP|||
newGP|||
newGVOP||| newGVOP|||
newGVREF||| newGVREF|||
newGVgen_flags||5.015004| newGVgen_flags||5.015004|
newGVgen||| newGVgen|||
newHVREF||| newHVREF|||
newHVhv||5.005000| newHVhv||5.005000|
newHV||| newHV|||
newIO||| newIO|||
newLISTOP||| newLISTOP|||
newLOGOP||| newLOGOP|||
newLOOPEX||| newLOOPEX|||
newLOOPOP||| newLOOPOP|||
newMETHOP_internal||| newMETHOP_internal|||
newMETHOP_named||5.021005| newMETHOP_named||5.021005|
newMETHOP||5.021005| newMETHOP||5.021005|
newMYSUB||5.017004| newMYSUB||5.017004|
newNULLLIST||| newNULLLIST|||
newOP||| newOP|||
newPADNAMELIST||5.021007|n
newPADNAMEouter||5.021007|n
newPADNAMEpvn||5.021007|n
newPADOP||| newPADOP|||
newPMOP||| newPMOP|||
newPROG||| newPROG|||
newPVOP||| newPVOP|||
newRANGE||| newRANGE|||
newRV_inc|5.004000||p newRV_inc|5.004000||p
newRV_noinc|5.004000||p newRV_noinc|5.004000||p
newRV||| newRV|||
newSLICEOP||| newSLICEOP|||
newSTATEOP||| newSTATEOP|||
skipping to change at line 2092 skipping to change at line 2062
newSVpvf||5.004000|v newSVpvf||5.004000|v
newSVpvn_flags|5.010001||p newSVpvn_flags|5.010001||p
newSVpvn_share|5.007001||p newSVpvn_share|5.007001||p
newSVpvn_utf8|5.010001||p newSVpvn_utf8|5.010001||p
newSVpvn|5.004050||p newSVpvn|5.004050||p
newSVpvs_flags|5.010001||p newSVpvs_flags|5.010001||p
newSVpvs_share|5.009003||p newSVpvs_share|5.009003||p
newSVpvs|5.009003||p newSVpvs|5.009003||p
newSVpv||| newSVpv|||
newSVrv||| newSVrv|||
newSVsv_flags|||
newSVsv_nomg|||
newSVsv||| newSVsv|||
newSVuv|5.006000||p newSVuv|5.006000||p
newSV||| newSV|||
newUNOP_AUX||5.021007| newUNOP_AUX||5.021007|
newUNOP||| newUNOP|||
newWHENOP||5.009003| newWHENOP||5.009003|
newWHILEOP||5.013007| newWHILEOP||5.013007|
newXS_deffile||| newXS_deffile|||
newXS_flags||5.009004|
newXS_len_flags||| newXS_len_flags|||
newXSproto||5.006000| newXSproto||5.006000|
newXS||5.006000| newXS||5.006000|
new_collate||5.006000| new_collate|||
new_constant||| new_constant|||
new_ctype||5.006000| new_ctype|||
new_he||| new_he|||
new_logop||| new_logop|||
new_numeric||5.006000| new_msg_hv|||
new_numeric|||
new_regcurly|||n
new_stackinfo||5.005000| new_stackinfo||5.005000|
new_version||5.009000| new_version||5.009000|
new_warnings_bitfield|||
next_symbol||| next_symbol|||
nextargv||| nextargv|||
nextchar||| nextchar|||
ninstr|||n ninstr|||n
no_bareword_allowed||| no_bareword_allowed|||
no_fh_allowed||| no_fh_allowed|||
no_op||| no_op|||
noperl_die|||vn noperl_die|||vn
not_a_number||| not_a_number|||
not_incrementable||| not_incrementable|||
nothreadhook||5.008000| nothreadhook||5.008000|
notify_parser_that_changed_to_utf8|||
nuke_stacks||| nuke_stacks|||
num_overflow|||n num_overflow|||n
oopsAV||| oopsAV|||
oopsHV||| oopsHV|||
op_append_elem||5.013006| op_append_elem||5.013006|
op_append_list||5.013006| op_append_list||5.013006|
op_class|||
op_clear||| op_clear|||
op_contextualize||5.013006| op_contextualize||5.013006|
op_convert_list||5.021006| op_convert_list||5.021006|
op_dump||5.006000| op_dump||5.006000|
op_free||| op_free|||
op_integerize||| op_integerize|||
op_linklist||5.013006| op_linklist||5.013006|
op_lvalue_flags||| op_lvalue_flags|||
op_lvalue||5.013007|
op_null||5.007002| op_null||5.007002|
op_parent||5.021002|n op_parent|||n
op_prepend_elem||5.013006| op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002| op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002| op_refcnt_unlock||5.009002|
op_relocate_sv||| op_relocate_sv|||
op_scope||5.013007|
op_sibling_splice||5.021002|n op_sibling_splice||5.021002|n
op_std_init||| op_std_init|||
op_unscope|||
open_script||| open_script|||
openn_cleanup||| openn_cleanup|||
openn_setup||| openn_setup|||
opmethod_stash||| opmethod_stash|||
opslab_force_free||| opslab_force_free|||
opslab_free_nopad||| opslab_free_nopad|||
opslab_free||| opslab_free|||
optimize_optree|||
optimize_op|||
output_posix_warnings|||
pMY_CXT_|5.007003||p pMY_CXT_|5.007003||p
pMY_CXT|5.007003||p pMY_CXT|5.007003||p
pTHX_|5.006000||p pTHX_|5.006000||p
pTHX|5.006000||p pTHX|5.006000||p
packWARN|5.007003||p packWARN|5.007003||p
pack_cat||5.007003| pack_cat||5.007003|
pack_rec||| pack_rec|||
package_version||| package_version|||
package||| package|||
packlist||5.008001| packlist||5.008001|
pad_add_anon||5.008001| pad_add_anon||5.008001|
pad_add_name_pvn||5.015001| pad_add_name_pvn||5.015001|
pad_add_name_pvs||5.015001| pad_add_name_pvs||5.015001|
pad_add_name_pv||5.015001| pad_add_name_pv||5.015001|
pad_add_name_sv||5.015001| pad_add_name_sv||5.015001|
pad_add_weakref||| pad_add_weakref|||
pad_alloc_name||| pad_alloc_name|||
pad_alloc|||
pad_block_start||| pad_block_start|||
pad_check_dup||| pad_check_dup|||
pad_compname_type||5.009003| pad_compname_type||5.009003|
pad_findlex||| pad_findlex|||
pad_findmy_pvn||5.015001| pad_findmy_pvn||5.015001|
pad_findmy_pvs||5.015001| pad_findmy_pvs||5.015001|
pad_findmy_pv||5.015001| pad_findmy_pv||5.015001|
pad_findmy_sv||5.015001| pad_findmy_sv||5.015001|
pad_fixup_inner_anons||| pad_fixup_inner_anons|||
pad_free||| pad_free|||
pad_leavemy||| pad_leavemy|||
pad_new||5.008001| pad_new||5.008001|
pad_push||| pad_push|||
pad_reset||| pad_reset|||
pad_setsv||| pad_setsv|||
pad_sv||| pad_sv|||
pad_swipe||| pad_swipe|||
pad_tidy||5.008001|
padlist_dup||| padlist_dup|||
padlist_store||| padlist_store|||
padname_dup||| padname_dup|||
padname_free||| padname_free|||
padnamelist_dup||| padnamelist_dup|||
padnamelist_fetch||5.021007|n
padnamelist_free||| padnamelist_free|||
padnamelist_store||5.021007|
parse_arithexpr||5.013008|
parse_barestmt||5.013007|
parse_block||5.013007|
parse_body||| parse_body|||
parse_fullexpr||5.013008|
parse_fullstmt||5.013005|
parse_gv_stash_name||| parse_gv_stash_name|||
parse_ident||| parse_ident|||
parse_label||5.013007|
parse_listexpr||5.013008|
parse_lparen_question_flags||| parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_subsignature|||
parse_termexpr||5.013008|
parse_unicode_opts||| parse_unicode_opts|||
parse_uniprop_string|||
parser_dup||| parser_dup|||
parser_free_nexttoke_ops||| parser_free_nexttoke_ops|||
parser_free||| parser_free|||
path_is_searchable|||n path_is_searchable|||n
peep||| peep|||
pending_ident||| pending_ident|||
perl_alloc_using|||n perl_alloc_using|||n
perl_alloc|||n perl_alloc|||n
perl_clone_using|||n perl_clone_using|||n
perl_clone|||n perl_clone|||n
skipping to change at line 2245 skipping to change at line 2204
pmruntime||| pmruntime|||
pmtrans||| pmtrans|||
pop_scope||| pop_scope|||
populate_ANYOF_from_invlist||| populate_ANYOF_from_invlist|||
populate_isa|||v populate_isa|||v
pregcomp||5.009005| pregcomp||5.009005|
pregexec||| pregexec|||
pregfree2||5.011000| pregfree2||5.011000|
pregfree||| pregfree|||
prescan_version||5.011004| prescan_version||5.011004|
print_bytes_for_locale|||
print_collxfrm_input_and_return|||
printbuf||| printbuf|||
printf_nocontext|||vn printf_nocontext|||vn
process_special_blocks||| process_special_blocks|||
ptr_hash|||n ptr_hash|||n
ptr_table_clear||5.009005|
ptr_table_fetch||5.009005| ptr_table_fetch||5.009005|
ptr_table_find|||n ptr_table_find|||n
ptr_table_free||5.009005| ptr_table_free||5.009005|
ptr_table_new||5.009005| ptr_table_new||5.009005|
ptr_table_split||5.009005| ptr_table_split||5.009005|
ptr_table_store||5.009005| ptr_table_store||5.009005|
push_scope||| push_scope|||
put_charclass_bitmap_innards_common|||
put_charclass_bitmap_innards_invlist|||
put_charclass_bitmap_innards||| put_charclass_bitmap_innards|||
put_code_point||| put_code_point|||
put_range||| put_range|||
pv_display|5.006000||p pv_display|5.006000||p
pv_escape|5.009004||p pv_escape|5.009004||p
pv_pretty|5.009004||p pv_pretty|5.009004||p
pv_uni_display||5.007003| pv_uni_display||5.007003|
qerror||| qerror|||
qsortsvu|||
quadmath_format_needed|||n quadmath_format_needed|||n
quadmath_format_single|||n quadmath_format_single|||n
re_compile||5.009005| re_compile||5.009005|
re_croak2||| re_croak2|||
re_dup_guts||| re_dup_guts|||
re_exec_indentf|||v
re_indentf|||v
re_intuit_start||5.019001| re_intuit_start||5.019001|
re_intuit_string||5.006000| re_intuit_string||5.006000|
re_op_compile||| re_op_compile|||
re_printf|||v
realloc||5.007002|n realloc||5.007002|n
reentrant_free||5.021008| reentrant_free||5.024000|
reentrant_init||5.021008| reentrant_init||5.024000|
reentrant_retry||5.021008|vn reentrant_retry||5.024000|vn
reentrant_size||5.021008| reentrant_size||5.024000|
ref_array_or_hash||| ref_array_or_hash|||
refcounted_he_chain_2hv||| refcounted_he_chain_2hv|||
refcounted_he_fetch_pvn||| refcounted_he_fetch_pvn|||
refcounted_he_fetch_pvs||| refcounted_he_fetch_pvs|||
refcounted_he_fetch_pv||| refcounted_he_fetch_pv|||
refcounted_he_fetch_sv||| refcounted_he_fetch_sv|||
refcounted_he_free||| refcounted_he_free|||
refcounted_he_inc||| refcounted_he_inc|||
refcounted_he_new_pvn||| refcounted_he_new_pvn|||
refcounted_he_new_pvs||| refcounted_he_new_pvs|||
refcounted_he_new_pv||| refcounted_he_new_pv|||
refcounted_he_new_sv||| refcounted_he_new_sv|||
refcounted_he_value||| refcounted_he_value|||
refkids||| refkids|||
refto||| refto|||
ref||5.021008| ref||5.024000|
reg2Lanode||| reg2Lanode|||
reg_check_named_buff_matched|||n reg_check_named_buff_matched|||n
reg_named_buff_all||5.009005| reg_named_buff_all||5.009005|
reg_named_buff_exists||5.009005| reg_named_buff_exists||5.009005|
reg_named_buff_fetch||5.009005| reg_named_buff_fetch||5.009005|
reg_named_buff_firstkey||5.009005| reg_named_buff_firstkey||5.009005|
reg_named_buff_iter||| reg_named_buff_iter|||
reg_named_buff_nextkey||5.009005| reg_named_buff_nextkey||5.009005|
reg_named_buff_scalar||5.009005| reg_named_buff_scalar||5.009005|
reg_named_buff||| reg_named_buff|||
reg_node||| reg_node|||
reg_numbered_buff_fetch||| reg_numbered_buff_fetch|||
reg_numbered_buff_length||| reg_numbered_buff_length|||
reg_numbered_buff_store||| reg_numbered_buff_store|||
reg_qr_package||| reg_qr_package|||
reg_recode|||
reg_scan_name||| reg_scan_name|||
reg_skipcomment|||n reg_skipcomment|||n
reg_temp_copy||| reg_temp_copy|||
reganode||| reganode|||
regatom||| regatom|||
regbranch||| regbranch|||
regclass_swash||5.009004|
regclass||| regclass|||
regcp_restore|||
regcppop||| regcppop|||
regcppush||| regcppush|||
regcurly|||n regcurly|||n
regdump_extflags||| regdump_extflags|||
regdump_intflags||| regdump_intflags|||
regdump||5.005000| regdump||5.005000|
regdupe_internal||| regdupe_internal|||
regex_set_precedence|||n
regexec_flags||5.005000| regexec_flags||5.005000|
regfree_internal||5.009005| regfree_internal||5.009005|
reghop3|||n reghop3|||n
reghop4|||n reghop4|||n
reghopmaybe3|||n reghopmaybe3|||n
reginclass||| reginclass|||
reginitcolors||5.006000| reginitcolors||5.006000|
reginsert||| reginsert|||
regmatch||| regmatch|||
regnext||5.005000| regnext||5.005000|
regnode_guts||| regnode_guts|||
regpatws|||n
regpiece||| regpiece|||
regpposixcc|||
regprop||| regprop|||
regrepeat||| regrepeat|||
regtail_study||| regtail_study|||
regtail||| regtail|||
regtry||| regtry|||
reg||| reg|||
repeatcpy|||n repeatcpy|||n
report_evil_fh||| report_evil_fh|||
report_redefined_cv||| report_redefined_cv|||
report_uninit||| report_uninit|||
report_wrongway_fh||| report_wrongway_fh|||
require_pv||5.006000| require_pv||5.006000|
require_tie_mod||| require_tie_mod|||
restore_magic||| restore_magic|||
restore_switched_locale|||
rninstr|||n rninstr|||n
rpeep||| rpeep|||
rsignal_restore||| rsignal_restore|||
rsignal_save||| rsignal_save|||
rsignal_state||5.004000| rsignal_state||5.004000|
rsignal||5.004000| rsignal||5.004000|
run_body||| run_body|||
run_user_filter||| run_user_filter|||
runops_debug||5.005000| runops_debug||5.005000|
runops_standard||5.005000| runops_standard||5.005000|
skipping to change at line 2380 skipping to change at line 2343
safesysfree||5.006000|n safesysfree||5.006000|n
safesysmalloc||5.006000|n safesysmalloc||5.006000|n
safesysrealloc||5.006000|n safesysrealloc||5.006000|n
same_dirent||| same_dirent|||
save_I16||5.004000| save_I16||5.004000|
save_I32||| save_I32|||
save_I8||5.006000| save_I8||5.006000|
save_adelete||5.011000| save_adelete||5.011000|
save_aelem_flags||5.011000| save_aelem_flags||5.011000|
save_aelem||5.004050| save_aelem||5.004050|
save_aliased_sv|||
save_alloc||5.006000| save_alloc||5.006000|
save_aptr||| save_aptr|||
save_ary||| save_ary|||
save_bool||5.008001| save_bool||5.008001|
save_clearsv||| save_clearsv|||
save_delete||| save_delete|||
save_destructor_x||5.006000| save_destructor_x||5.006000|
save_destructor||5.006000| save_destructor||5.006000|
save_freeop||| save_freeop|||
save_freepv||| save_freepv|||
skipping to change at line 2426 skipping to change at line 2388
save_pushptrptr||5.010001| save_pushptrptr||5.010001|
save_pushptr||5.010001| save_pushptr||5.010001|
save_re_context||5.006000| save_re_context||5.006000|
save_scalar_at||| save_scalar_at|||
save_scalar||| save_scalar|||
save_set_svflags||5.009000| save_set_svflags||5.009000|
save_shared_pvref||5.007003| save_shared_pvref||5.007003|
save_sptr||| save_sptr|||
save_strlen||| save_strlen|||
save_svref||| save_svref|||
save_to_buffer|||n
save_vptr||5.006000| save_vptr||5.006000|
savepvn||| savepvn|||
savepvs||5.009003| savepvs||5.009003|
savepv||| savepv|||
savesharedpvn||5.009005| savesharedpvn||5.009005|
savesharedpvs||5.013006| savesharedpvs||5.013006|
savesharedpv||5.007003| savesharedpv||5.007003|
savesharedsvpv||5.013006| savesharedsvpv||5.013006|
savestack_grow_cnt||5.008001| savestack_grow_cnt||5.008001|
savestack_grow||| savestack_grow|||
skipping to change at line 2455 skipping to change at line 2418
scan_commit||| scan_commit|||
scan_const||| scan_const|||
scan_formline||| scan_formline|||
scan_heredoc||| scan_heredoc|||
scan_hex||| scan_hex|||
scan_ident||| scan_ident|||
scan_inputsymbol||| scan_inputsymbol|||
scan_num||5.007001| scan_num||5.007001|
scan_oct||| scan_oct|||
scan_pat||| scan_pat|||
scan_str|||
scan_subst||| scan_subst|||
scan_trans||| scan_trans|||
scan_version||5.009001| scan_version||5.009001|
scan_vstring||5.009005| scan_vstring||5.009005|
scan_word|||
search_const||| search_const|||
seed||5.008001| seed||5.008001|
sequence_num||| sequence_num|||
set_ANYOF_arg||| set_ANYOF_arg|||
set_caret_X||| set_caret_X|||
set_context||5.006000|n set_context||5.006000|n
set_numeric_local||5.006000|
set_numeric_radix||5.006000| set_numeric_radix||5.006000|
set_numeric_standard||5.006000| set_numeric_standard||5.006000|
set_numeric_underlying|||
set_padlist|||n set_padlist|||n
set_regex_pv|||
setdefout||| setdefout|||
setfd_cloexec_for_nonsysfd|||
setfd_cloexec_or_inhexec_by_sysfdness|||
setfd_cloexec|||n
setfd_inhexec_for_sysfd|||
setfd_inhexec|||n
setlocale_debug_string|||n
share_hek_flags||| share_hek_flags|||
share_hek||5.004000| share_hek||5.004000|
should_warn_nl|||n should_warn_nl|||n
si_dup||| si_dup|||
sighandler|||n sighandler|||n
simplify_sort||| simplify_sort|||
skipspace_flags||| skip_to_be_ignored_text|||
softref2xv||| softref2xv|||
sortcv_stacked||| sortcv_stacked|||
sortcv_xsub||| sortcv_xsub|||
sortcv||| sortcv|||
sortsv_flags||5.009003| sortsv_flags||5.009003|
sortsv||5.007003| sortsv||5.007003|
space_join_names_mortal||| space_join_names_mortal|||
ss_dup||| ss_dup|||
ssc_add_range||| ssc_add_range|||
ssc_and||| ssc_and|||
skipping to change at line 2500 skipping to change at line 2468
ssc_clear_locale|||n ssc_clear_locale|||n
ssc_cp_and||| ssc_cp_and|||
ssc_finalize||| ssc_finalize|||
ssc_init||| ssc_init|||
ssc_intersection||| ssc_intersection|||
ssc_is_anything|||n ssc_is_anything|||n
ssc_is_cp_posixl_init|||n ssc_is_cp_posixl_init|||n
ssc_or||| ssc_or|||
ssc_union||| ssc_union|||
stack_grow||| stack_grow|||
start_glob|||
start_subparse||5.004000| start_subparse||5.004000|
stdize_locale||| stdize_locale|||
strEQ||| strEQ|||
strGE||| strGE|||
strGT||| strGT|||
strLE||| strLE|||
strLT||| strLT|||
strNE||| strNE|||
str_to_version||5.006000| str_to_version||5.006000|
strip_return||| strip_return|||
skipping to change at line 2527 skipping to change at line 2494
sublex_start||| sublex_start|||
sv_2bool_flags||5.013006| sv_2bool_flags||5.013006|
sv_2bool||| sv_2bool|||
sv_2cv||| sv_2cv|||
sv_2io||| sv_2io|||
sv_2iuv_common||| sv_2iuv_common|||
sv_2iuv_non_preserve||| sv_2iuv_non_preserve|||
sv_2iv_flags||5.009001| sv_2iv_flags||5.009001|
sv_2iv||| sv_2iv|||
sv_2mortal||| sv_2mortal|||
sv_2num|||
sv_2nv_flags||5.013001| sv_2nv_flags||5.013001|
sv_2pv_flags|5.007002||p sv_2pv_flags|5.007002||p
sv_2pv_nolen|5.006000||p sv_2pv_nolen|5.006000||p
sv_2pvbyte_nolen|5.006000||p sv_2pvbyte_nolen|5.006000||p
sv_2pvbyte|5.006000||p sv_2pvbyte|5.006000||p
sv_2pvutf8_nolen||5.006000| sv_2pvutf8_nolen||5.006000|
sv_2pvutf8||5.006000| sv_2pvutf8||5.006000|
sv_2pv||| sv_2pv|||
sv_2uv_flags||5.009001| sv_2uv_flags||5.009001|
sv_2uv|5.004000||p sv_2uv|5.004000||p
skipping to change at line 2601 skipping to change at line 2567
sv_dump||| sv_dump|||
sv_dup_common||| sv_dup_common|||
sv_dup_inc_multiple||| sv_dup_inc_multiple|||
sv_dup_inc||| sv_dup_inc|||
sv_dup||| sv_dup|||
sv_eq_flags||5.013006| sv_eq_flags||5.013006|
sv_eq||| sv_eq|||
sv_exp_grow||| sv_exp_grow|||
sv_force_normal_flags||5.007001| sv_force_normal_flags||5.007001|
sv_force_normal||5.006000| sv_force_normal||5.006000|
sv_free2|||
sv_free_arenas||| sv_free_arenas|||
sv_free||| sv_free|||
sv_get_backrefs||5.021008|n
sv_gets||5.003070| sv_gets||5.003070|
sv_grow||| sv_grow|||
sv_i_ncmp||| sv_i_ncmp|||
sv_inc_nomg||5.013002| sv_inc_nomg||5.013002|
sv_inc||| sv_inc|||
sv_insert_flags||5.010001| sv_insert_flags||5.010001|
sv_insert||| sv_insert|||
sv_isa||| sv_isa|||
sv_isobject||| sv_isobject|||
sv_iv||5.005000| sv_iv||5.005000|
sv_kill_backrefs|||
sv_len_utf8_nomg||| sv_len_utf8_nomg|||
sv_len_utf8||5.006000| sv_len_utf8||5.006000|
sv_len||| sv_len|||
sv_magic_portable|5.021008|5.004000|p sv_magic_portable|5.024000|5.004000|p
sv_magicext_mglob||| sv_magicext_mglob|||
sv_magicext||5.007003| sv_magicext||5.007003|
sv_magic||| sv_magic|||
sv_mortalcopy_flags||| sv_mortalcopy_flags|||
sv_mortalcopy||| sv_mortalcopy|||
sv_ncmp||| sv_ncmp|||
sv_newmortal||| sv_newmortal|||
sv_newref||| sv_newref|||
sv_nolocking||5.007003| sv_nolocking||5.007003|
sv_nosharing||5.007003| sv_nosharing||5.007003|
skipping to change at line 2656 skipping to change at line 2619
sv_pvn_force_flags|5.007002||p sv_pvn_force_flags|5.007002||p
sv_pvn_force||| sv_pvn_force|||
sv_pvn_nomg|5.007003|5.005000|p sv_pvn_nomg|5.007003|5.005000|p
sv_pvn||5.005000| sv_pvn||5.005000|
sv_pvutf8n_force||5.006000| sv_pvutf8n_force||5.006000|
sv_pvutf8n||5.006000| sv_pvutf8n||5.006000|
sv_pvutf8||5.006000| sv_pvutf8||5.006000|
sv_pv||5.006000| sv_pv||5.006000|
sv_recode_to_utf8||5.007003| sv_recode_to_utf8||5.007003|
sv_reftype||| sv_reftype|||
sv_ref||| sv_ref||5.015004|
sv_release_COW|||
sv_replace||| sv_replace|||
sv_report_used||| sv_report_used|||
sv_resetpvn||| sv_resetpvn|||
sv_reset||| sv_reset|||
sv_rvunweaken|||
sv_rvweaken||5.006000| sv_rvweaken||5.006000|
sv_set_undef|||
sv_sethek||| sv_sethek|||
sv_setiv_mg|5.004050||p sv_setiv_mg|5.004050||p
sv_setiv||| sv_setiv|||
sv_setnv_mg|5.006000||p sv_setnv_mg|5.006000||p
sv_setnv||| sv_setnv|||
sv_setpv_bufsize|||
sv_setpv_mg|5.004050||p sv_setpv_mg|5.004050||p
sv_setpvf_mg_nocontext|||pvn sv_setpvf_mg_nocontext|||pvn
sv_setpvf_mg|5.006000|5.004000|pv sv_setpvf_mg|5.006000|5.004000|pv
sv_setpvf_nocontext|||vn sv_setpvf_nocontext|||vn
sv_setpvf||5.004000|v sv_setpvf||5.004000|v
sv_setpviv_mg||5.008001| sv_setpviv_mg||5.008001|
sv_setpviv||5.008001| sv_setpviv||5.008001|
sv_setpvn_mg|5.004050||p sv_setpvn_mg|5.004050||p
sv_setpvn||| sv_setpvn|||
sv_setpvs_mg||5.013006| sv_setpvs_mg||5.013006|
sv_setpvs|5.009004||p sv_setpvs|5.009004||p
sv_setpv||| sv_setpv|||
sv_setref_iv||| sv_setref_iv|||
sv_setref_nv||| sv_setref_nv|||
sv_setref_pvn||| sv_setref_pvn|||
sv_setref_pvs||5.021008| sv_setref_pvs||5.024000|
sv_setref_pv||| sv_setref_pv|||
sv_setref_uv||5.007001| sv_setref_uv||5.007001|
sv_setsv_cow|||
sv_setsv_flags||5.007002| sv_setsv_flags||5.007002|
sv_setsv_mg|5.004050||p sv_setsv_mg|5.004050||p
sv_setsv_nomg|5.007002||p sv_setsv_nomg|5.007002||p
sv_setsv||| sv_setsv|||
sv_setuv_mg|5.004050||p sv_setuv_mg|5.004050||p
sv_setuv|5.004000||p sv_setuv|5.004000||p
sv_string_from_errnum|||
sv_tainted||5.004000| sv_tainted||5.004000|
sv_taint||5.004000| sv_taint||5.004000|
sv_true||5.005000| sv_true||5.005000|
sv_unglob||| sv_unglob|||
sv_uni_display||5.007003| sv_uni_display||5.007003|
sv_unmagicext|5.013008||p sv_unmagicext|5.013008||p
sv_unmagic||| sv_unmagic|||
sv_unref_flags||5.007001| sv_unref_flags||5.007001|
sv_unref||| sv_unref|||
sv_untaint||5.004000| sv_untaint||5.004000|
sv_upgrade||| sv_upgrade|||
sv_usepvn_flags||5.009004| sv_usepvn_flags||5.009004|
sv_usepvn_mg|5.004050||p sv_usepvn_mg|5.004050||p
sv_usepvn||| sv_usepvn|||
sv_utf8_decode||5.006000| sv_utf8_decode|||
sv_utf8_downgrade||5.006000| sv_utf8_downgrade|||
sv_utf8_encode||5.006000| sv_utf8_encode||5.006000|
sv_utf8_upgrade_flags_grow||5.011000| sv_utf8_upgrade_flags_grow||5.011000|
sv_utf8_upgrade_flags||5.007002| sv_utf8_upgrade_flags||5.007002|
sv_utf8_upgrade_nomg||5.007002| sv_utf8_upgrade_nomg||5.007002|
sv_utf8_upgrade||5.007001| sv_utf8_upgrade||5.007001|
sv_uv|5.005000||p sv_uv|5.005000||p
sv_vcatpvf_mg|5.006000|5.004000|p sv_vcatpvf_mg|5.006000|5.004000|p
sv_vcatpvfn_flags||5.017002| sv_vcatpvfn_flags||5.017002|
sv_vcatpvfn||5.004000| sv_vcatpvfn||5.004000|
sv_vcatpvf|5.006000|5.004000|p sv_vcatpvf|5.006000|5.004000|p
sv_vsetpvf_mg|5.006000|5.004000|p sv_vsetpvf_mg|5.006000|5.004000|p
sv_vsetpvfn||5.004000| sv_vsetpvfn||5.004000|
sv_vsetpvf|5.006000|5.004000|p sv_vsetpvf|5.006000|5.004000|p
svtype||| svtype|||
swallow_bom||| swallow_bom|||
swash_fetch||5.007002|
swash_init||5.006000|
swash_scan_list_line|||
swatch_get||| swatch_get|||
sync_locale||5.021004| switch_category_locale_to_template|||
switch_to_global_locale|||n
sync_locale||5.021004|n
sys_init3||5.010000|n sys_init3||5.010000|n
sys_init||5.010000|n sys_init||5.010000|n
sys_intern_clear||| sys_intern_clear|||
sys_intern_dup||| sys_intern_dup|||
sys_intern_init||| sys_intern_init|||
sys_term||5.010000|n sys_term||5.010000|n
taint_env||| taint_env|||
taint_proper||| taint_proper|||
tied_method|||v tied_method|||v
tmps_grow_p||| tmps_grow_p|||
toFOLD_uni||5.007003| toFOLD_utf8_safe|||
toFOLD_utf8||5.019001| toFOLD_utf8||5.019001|
toFOLD_uvchr||5.023009|
toFOLD||5.019001| toFOLD||5.019001|
toLOWER_L1||5.019001| toLOWER_L1||5.019001|
toLOWER_LC||5.004000| toLOWER_LC||5.004000|
toLOWER_uni||5.007003| toLOWER_utf8_safe|||
toLOWER_utf8||5.015007| toLOWER_utf8||5.015007|
toLOWER_uvchr||5.023009|
toLOWER||| toLOWER|||
toTITLE_uni||5.007003| toTITLE_utf8_safe|||
toTITLE_utf8||5.015007| toTITLE_utf8||5.015007|
toTITLE_uvchr||5.023009|
toTITLE||5.019001| toTITLE||5.019001|
toUPPER_uni||5.007003| toUPPER_utf8_safe|||
toUPPER_utf8||5.015007| toUPPER_utf8||5.015007|
toUPPER_uvchr||5.023009|
toUPPER||| toUPPER|||
to_byte_substr||| to_byte_substr|||
to_lower_latin1|||n to_lower_latin1|||n
to_uni_fold||5.007003|
to_uni_lower_lc||5.006000|
to_uni_lower||5.007003|
to_uni_title_lc||5.006000|
to_uni_title||5.007003|
to_uni_upper_lc||5.006000|
to_uni_upper||5.007003|
to_utf8_case||5.007003|
to_utf8_fold||5.015007|
to_utf8_lower||5.015007|
to_utf8_substr||| to_utf8_substr|||
to_utf8_title||5.015007|
to_utf8_upper||5.015007|
tokenize_use||| tokenize_use|||
tokeq||| tokeq|||
tokereport||| tokereport|||
too_few_arguments_pv||| too_few_arguments_pv|||
too_many_arguments_pv||| too_many_arguments_pv|||
translate_substr_offsets|||n translate_substr_offsets|||n
traverse_op_tree|||
try_amagic_bin||| try_amagic_bin|||
try_amagic_un||| try_amagic_un|||
turkic_fc|||
turkic_lc|||
turkic_uc|||
uiv_2buf|||n uiv_2buf|||n
unlnk||| unlnk|||
unpack_rec||| unpack_rec|||
unpack_str||5.007003| unpack_str||5.007003|
unpackstring||5.008001| unpackstring||5.008001|
unreferenced_to_tmp_stack||| unreferenced_to_tmp_stack|||
unshare_hek_or_pvn||| unshare_hek_or_pvn|||
unshare_hek||| unshare_hek|||
unsharepvn||5.003070| unsharepvn||5.003070|
unwind_handler_stack||| unwind_handler_stack|||
update_debugger_info||| update_debugger_info|||
upg_version||5.009005| upg_version||5.009005|
usage||| usage|||
utf16_textfilter||| utf16_textfilter|||
utf16_to_utf8_reversed||5.006001| utf16_to_utf8_reversed||5.006001|
utf16_to_utf8||5.006001| utf16_to_utf8||5.006001|
utf8_distance||5.006000| utf8_distance||5.006000|
utf8_hop_back|||n
utf8_hop_forward|||n
utf8_hop_safe|||n
utf8_hop||5.006000|n utf8_hop||5.006000|n
utf8_length||5.007001| utf8_length||5.007001|
utf8_mg_len_cache_update||| utf8_mg_len_cache_update|||
utf8_mg_pos_cache_update||| utf8_mg_pos_cache_update|||
utf8_to_bytes||5.006001| utf8_to_uvchr_buf|5.015009|5.015009|p
utf8_to_uvchr_buf||5.015009| utf8_to_uvchr|||p
utf8_to_uvchr||5.007001| utf8n_to_uvchr_error|||n
utf8_to_uvuni_buf||5.015009| utf8n_to_uvchr||5.007001|n
utf8_to_uvuni||5.007001|
utf8n_to_uvchr||5.007001|
utf8n_to_uvuni||5.007001| utf8n_to_uvuni||5.007001|
utilize||| utilize|||
uvchr_to_utf8_flags||5.007003| uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8||5.007001| uvchr_to_utf8||5.007001|
uvoffuni_to_utf8_flags||5.019004| uvoffuni_to_utf8_flags||5.019004|
uvuni_to_utf8_flags||5.007003| uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001| uvuni_to_utf8||5.007001|
valid_utf8_to_uvchr||5.015009| valid_utf8_to_uvchr|||n
valid_utf8_to_uvuni||5.015009|
validate_proto|||
validate_suid||| validate_suid|||
variant_under_utf8_count|||n
varname||| varname|||
vcmp||5.009000| vcmp||5.009000|
vcroak||5.006000| vcroak||5.006000|
vdeb||5.007003| vdeb||5.007003|
vform||5.006000| vform||5.006000|
visit||| visit|||
vivify_defelem||| vivify_defelem|||
vivify_ref||| vivify_ref|||
vload_module|5.006000||p vload_module|5.006000||p
vmess||5.006000| vmess|5.006000|5.006000|p
vnewSVpvf|5.006000|5.004000|p vnewSVpvf|5.006000|5.004000|p
vnormal||5.009002| vnormal||5.009002|
vnumify||5.009000| vnumify||5.009000|
vstringify||5.009000| vstringify||5.009000|
vverify||5.009003| vverify||5.009003|
vwarner||5.006000| vwarner||5.006000|
vwarn||5.006000| vwarn||5.006000|
wait4pid||| wait4pid|||
warn_nocontext|||vn warn_nocontext|||pvn
warn_sv||5.013001| warn_on_first_deprecated_use|||
warn_sv|5.013001||p
warner_nocontext|||vn warner_nocontext|||vn
warner|5.006000|5.004000|pv warner|5.006000|5.004000|pv
warn|||v warn|||v
was_lvalue_sub||| was_lvalue_sub|||
watch||| watch|||
whichsig_pvn||5.015004| whichsig_pvn||5.015004|
whichsig_pv||5.015004| whichsig_pv||5.015004|
whichsig_sv||5.015004| whichsig_sv||5.015004|
whichsig||| whichsig|||
win32_croak_not_implemented|||n win32_croak_not_implemented|||n
win32_setlocale|||
with_queued_errors||| with_queued_errors|||
wrap_op_checker||5.015008| wrap_op_checker||5.015008|
write_to_stderr||| write_to_stderr|||
xs_boot_epilog||| xs_boot_epilog|||
xs_handshake|||vn xs_handshake|||vn
xs_version_bootcheck||| xs_version_bootcheck|||
yyerror_pvn||| yyerror_pvn|||
yyerror_pv||| yyerror_pv|||
yyerror||| yyerror|||
yylex||| yylex|||
yyparse||| yyparse|||
yyquit|||
yyunlex||| yyunlex|||
yywarn||| yywarn|||
); );
if (exists $opt{'list-unsupported'}) { if (exists $opt{'list-unsupported'}) {
my $f; my $f;
for $f (sort { lc $a cmp lc $b } keys %API) { for $f (sort { lc $a cmp lc $b } keys %API) {
next unless $API{$f}{todo}; next unless $API{$f}{todo};
print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n"; print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n";
} }
skipping to change at line 3621 skipping to change at line 3584
# ifndef PERL_REVISION # ifndef PERL_REVISION
# define PERL_REVISION (5) # define PERL_REVISION (5)
/* Replace: 1 */ /* Replace: 1 */
# define PERL_VERSION PATCHLEVEL # define PERL_VERSION PATCHLEVEL
# define PERL_SUBVERSION SUBVERSION # define PERL_SUBVERSION SUBVERSION
/* Replace PERL_PATCHLEVEL with PERL_VERSION */ /* Replace PERL_PATCHLEVEL with PERL_VERSION */
/* Replace: 0 */ /* Replace: 0 */
# endif # endif
#endif #endif
#define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10)) #define D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
#define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VE #define PERL_BCDVERSION ((D_PPP_DEC2BCD(PERL_REVISION)<<24)|(D_PPP_DEC2BCD(PERL_
RSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION)) VERSION)<<12)|D_PPP_DEC2BCD(PERL_SUBVERSION))
/* It is very unlikely that anyone will try to use this with Perl 6 /* It is very unlikely that anyone will try to use this with Perl 6
(or greater), but who knows. (or greater), but who knows.
*/ */
#if PERL_REVISION != 5 #if PERL_REVISION != 5
# error ppport.h only works with Perl version 5 # error dbipport.h only works with Perl version 5
#endif /* PERL_REVISION != 5 */ #endif /* PERL_REVISION != 5 */
#ifndef dTHR #ifndef dTHR
# define dTHR dNOOP # define dTHR dNOOP
#endif #endif
#ifndef dTHX #ifndef dTHX
# define dTHX dNOOP # define dTHX dNOOP
#endif #endif
#ifndef dTHXa #ifndef dTHXa
# define dTHXa(x) dNOOP # define dTHXa(x) dNOOP
skipping to change at line 4019 skipping to change at line 3982
# define IVSIZE 4 /* A bold guess, but the best we can make. */ # define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif # endif
#endif #endif
#ifndef UVTYPE #ifndef UVTYPE
# define UVTYPE unsigned IVTYPE # define UVTYPE unsigned IVTYPE
#endif #endif
#ifndef UVSIZE #ifndef UVSIZE
# define UVSIZE IVSIZE # define UVSIZE IVSIZE
#endif #endif
#ifndef sv_setuv #ifndef cBOOL
# define sv_setuv(sv, uv) \ # define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0)
STMT_START { \
UV TeMpUv = uv; \
if (TeMpUv <= IV_MAX) \
sv_setiv(sv, TeMpUv); \
else \
sv_setnv(sv, (double)TeMpUv); \
} STMT_END
#endif
#ifndef newSVuv
# define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : new
SVnv((NV)uv))
#endif
#ifndef sv_2uv
# define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? S
vNV(PL_Sv) : sv_2nv(PL_Sv)))
#endif #endif
#ifndef SvUVX #ifndef OpHAS_SIBLING
# define SvUVX(sv) ((UV)SvIVX(sv)) # define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling))
#endif #endif
#ifndef SvUVXx #ifndef OpSIBLING
# define SvUVXx(sv) SvUVX(sv) # define OpSIBLING(o) (0 + (o)->op_sibling)
#endif #endif
#ifndef SvUV #ifndef OpMORESIB_set
# define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) # define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib))
#endif #endif
#ifndef SvUVx #ifndef OpLASTSIB_set
# define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) # define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL)
#endif #endif
/* Hint: sv_uv #ifndef OpMAYBESIB_set
* Always use the SvUVx() macro instead of sv_uv(). # define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib))
*/
#ifndef sv_uv
# define sv_uv(sv) SvUVx(sv)
#endif
#if !defined(SvUOK) && defined(SvIOK_UV)
# define SvUOK(sv) SvIOK_UV(sv)
#endif
#ifndef XST_mUV
# define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
#endif #endif
#ifndef XSRETURN_UV #ifndef HEf_SVKEY
# define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1) # define HEf_SVKEY -2
; } STMT_END
#endif
#ifndef PUSHu
# define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); P
USHTARG; } STMT_END
#endif
#ifndef XPUSHu
# define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); X
PUSHTARG; } STMT_END
#endif
#ifdef HAS_MEMCMP
#ifndef memNE
# define memNE(s1,s2,l) (memcmp(s1,s2,l))
#endif #endif
#ifndef memEQ #if defined(DEBUGGING) && !defined(__COVERITY__)
# define memEQ(s1,s2,l) (!memcmp(s1,s2,l)) #ifndef __ASSERT_
# define __ASSERT_(statement) assert(statement),
#endif #endif
#else #else
#ifndef memNE #ifndef __ASSERT_
# define memNE(s1,s2,l) (bcmp(s1,s2,l)) # define __ASSERT_(statement)
#endif
#ifndef memEQ
# define memEQ(s1,s2,l) (!bcmp(s1,s2,l))
#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) * si
zeof(t))
#endif
#ifndef CopyD
# define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * siz
eof(t))
#endif #endif
#ifdef HAS_MEMSET
#ifndef ZeroD
# define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t))
#endif #endif
#ifndef SvRX
#if defined(NEED_SvRX)
static void * DPPP_(my_SvRX)(pTHX_ SV *rv);
static
#else #else
#ifndef ZeroD extern void * DPPP_(my_SvRX)(pTHX_ SV *rv);
# define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof
(t)), d)
#endif #endif
#endif #if defined(NEED_SvRX) || defined(NEED_SvRX_GLOBAL)
#ifndef PoisonWith
# define PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) *
sizeof(t))
#endif
#ifndef PoisonNew #ifdef SvRX
# define PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB) # undef SvRX
#endif #endif
#define SvRX(a) DPPP_(my_SvRX)(aTHX_ a)
#ifndef PoisonFree void *
# define PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF) DPPP_(my_SvRX)(pTHX_ SV *rv)
#endif {
if (SvROK(rv)) {
#ifndef Poison SV *sv = SvRV(rv);
# define Poison(d,n,t) PoisonFree(d,n,t) if (SvMAGICAL(sv)) {
#endif MAGIC *mg = mg_find(sv, PERL_MAGIC_qr);
#ifndef Newx if (mg && mg->mg_obj) {
# define Newx(v,n,t) New(0,v,n,t) return mg->mg_obj;
}
}
}
return 0;
}
#endif #endif
#ifndef Newxc
# define Newxc(v,n,t,c) Newc(0,v,n,t,c)
#endif #endif
#ifndef SvRXOK
#ifndef Newxz # define SvRXOK(sv) (!!SvRX(sv))
# define Newxz(v,n,t) Newz(0,v,n,t)
#endif #endif
#ifndef PERL_UNUSED_DECL #ifndef PERL_UNUSED_DECL
# ifdef HASATTRIBUTE # ifdef HASATTRIBUTE
# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER) # if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
# define PERL_UNUSED_DECL # define PERL_UNUSED_DECL
# else # else
# define PERL_UNUSED_DECL __attribute__((unused)) # define PERL_UNUSED_DECL __attribute__((unused))
# endif # endif
# else # else
skipping to change at line 4182 skipping to change at line 4089
# define PERL_UNUSED_VAR(x) ((void)x) # define PERL_UNUSED_VAR(x) ((void)x)
#endif #endif
#ifndef PERL_UNUSED_CONTEXT #ifndef PERL_UNUSED_CONTEXT
# ifdef USE_ITHREADS # ifdef USE_ITHREADS
# define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl) # define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
# else # else
# define PERL_UNUSED_CONTEXT # define PERL_UNUSED_CONTEXT
# endif # endif
#endif #endif
#ifndef PERL_UNUSED_RESULT
# if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT)
# define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)size
of(z); } STMT_END
# else
# define PERL_UNUSED_RESULT(v) ((void)(v))
# endif
#endif
#ifndef NOOP #ifndef NOOP
# define NOOP /*EMPTY*/(void)0 # define NOOP /*EMPTY*/(void)0
#endif #endif
#ifndef dNOOP #ifndef dNOOP
# define dNOOP extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL # define dNOOP extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL
#endif #endif
#ifndef NVTYPE #ifndef NVTYPE
# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) # if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
skipping to change at line 4300 skipping to change at line 4215
#endif #endif
#ifndef DEFSV_set #ifndef DEFSV_set
# define DEFSV_set(sv) (DEFSV = (sv)) # define DEFSV_set(sv) (DEFSV = (sv))
#endif #endif
/* Older perls (<=5.003) lack AvFILLp */ /* Older perls (<=5.003) lack AvFILLp */
#ifndef AvFILLp #ifndef AvFILLp
# define AvFILLp AvFILL # define AvFILLp AvFILL
#endif #endif
#ifndef av_tindex
# define av_tindex AvFILL
#endif
#ifndef av_top_index
# define av_top_index AvFILL
#endif
#ifndef ERRSV #ifndef ERRSV
# define ERRSV get_sv("@",FALSE) # define ERRSV get_sv("@",FALSE)
#endif #endif
/* Hint: gv_stashpvn /* Hint: gv_stashpvn
* This function's backport doesn't support the length parameter, but * This function's backport doesn't support the length parameter, but
* rather ignores it. Portability can only be ensured if the length * rather ignores it. Portability can only be ensured if the length
* parameter is used for speed reasons, but the length can always be * parameter is used for speed reasons, but the length can always be
* correctly computed from the string argument. * correctly computed from the string argument.
*/ */
skipping to change at line 4421 skipping to change at line 4343
# ifdef ARGSproto # ifdef ARGSproto
typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto); typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto);
# else # else
typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX); typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
# endif # endif
typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*); typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
#endif #endif
#ifndef isPSXSPC
# define isPSXSPC(c) (isSPACE(c) || (c) == '\v')
#endif
#ifndef isBLANK #ifndef WIDEST_UTYPE
# define isBLANK(c) ((c) == ' ' || (c) == '\t') # ifdef QUADKIND
# ifdef U64TYPE
# define WIDEST_UTYPE U64TYPE
# else
# define WIDEST_UTYPE Quad_t
# endif
# else
# define WIDEST_UTYPE U32
# endif
#endif #endif
#ifdef EBCDIC #ifdef EBCDIC
#ifndef isALNUMC
# define isALNUMC(c) isalnum(c)
#endif
/* This is the first version where these macros are fully correct. Relying on
* the C library functions, as earlier releases did, causes problems with
* locales */
# if (PERL_BCDVERSION < 0x5022000)
# undef isALNUM
# undef isALNUM_A
# undef isALNUMC
# undef isALNUMC_A
# undef isALPHA
# undef isALPHA_A
# undef isALPHANUMERIC
# undef isALPHANUMERIC_A
# undef isASCII
# undef isASCII_A
# undef isBLANK
# undef isBLANK_A
# undef isCNTRL
# undef isCNTRL_A
# undef isDIGIT
# undef isDIGIT_A
# undef isGRAPH
# undef isGRAPH_A
# undef isIDCONT
# undef isIDCONT_A
# undef isIDFIRST
# undef isIDFIRST_A
# undef isLOWER
# undef isLOWER_A
# undef isOCTAL
# undef isOCTAL_A
# undef isPRINT
# undef isPRINT_A
# undef isPSXSPC
# undef isPSXSPC_A
# undef isPUNCT
# undef isPUNCT_A
# undef isSPACE
# undef isSPACE_A
# undef isUPPER
# undef isUPPER_A
# undef isWORDCHAR
# undef isWORDCHAR_A
# undef isXDIGIT
# undef isXDIGIT_A
# endif
#ifndef isASCII #ifndef isASCII
# define isASCII(c) isascii(c) # define isASCII(c) (isCNTRL(c) || isPRINT(c))
#endif #endif
/* The below is accurate for all EBCDIC code pages supported by
* all the versions of Perl overridden by this */
#ifndef isCNTRL #ifndef isCNTRL
# define isCNTRL(c) iscntrl(c) # define isCNTRL(c) ( (c) == '\0' || (c) == '\a' || (c)
#endif == '\b' \
|| (c) == '\f' || (c) == '\n' || (c) == '\r'
#ifndef isGRAPH \
# define isGRAPH(c) isgraph(c) || (c) == '\t' || (c) == '\v'
#endif \
|| ((c) <= 3 && (c) >= 1) /* SOH, STX, ETX */
#ifndef isPRINT \
# define isPRINT(c) isprint(c) || (c) == 7 /* U+7F DEL */
#endif \
|| ((c) <= 0x13 && (c) >= 0x0E) /* SO, SI */
#ifndef isPUNCT \
# define isPUNCT(c) ispunct(c) /* DLE, DC[1-3] */
#endif \
|| (c) == 0x18 /* U+18 CAN */
\
|| (c) == 0x19 /* U+19 EOM */
\
|| ((c) <= 0x1F && (c) >= 0x1C) /* [FGRU]S */
\
|| (c) == 0x26 /* U+17 ETB */
\
|| (c) == 0x27 /* U+1B ESC */
\
|| (c) == 0x2D /* U+05 ENQ */
\
|| (c) == 0x2E /* U+06 ACK */
\
|| (c) == 0x32 /* U+16 SYN */
\
|| (c) == 0x37 /* U+04 EOT */
\
|| (c) == 0x3C /* U+14 DC4 */
\
|| (c) == 0x3D /* U+15 NAK */
\
|| (c) == 0x3F /* U+1A SUB */
\
)
#endif
/* The ordering of the tests in this and isUPPER are to exclude most characters
* early */
#ifndef isLOWER
# define isLOWER(c) ( (c) >= 'a' && (c) <= 'z'
\
&& ( (c) <= 'i'
\
|| ((c) >= 'j' && (c) <= 'r')
\
|| (c) >= 's'))
#endif
#ifndef isUPPER
# define isUPPER(c) ( (c) >= 'A' && (c) <= 'Z'
\
&& ( (c) <= 'I'
\
|| ((c) >= 'J' && (c) <= 'R')
\
|| (c) >= 'S'))
#endif
#else /* Above is EBCDIC; below is ASCII */
# if (PERL_BCDVERSION < 0x5004000)
/* The implementation of these in older perl versions can give wrong results if
* the C program locale is set to other than the C locale */
# undef isALNUM
# undef isALNUM_A
# undef isALPHA
# undef isALPHA_A
# undef isDIGIT
# undef isDIGIT_A
# undef isIDFIRST
# undef isIDFIRST_A
# undef isLOWER
# undef isLOWER_A
# undef isUPPER
# undef isUPPER_A
# endif
#ifndef isXDIGIT # if (PERL_BCDVERSION < 0x5008000)
# define isXDIGIT(c) isxdigit(c) /* Hint: isCNTRL
#endif * Earlier perls omitted DEL */
# undef isCNTRL
# endif
#else
# if (PERL_BCDVERSION < 0x5010000) # if (PERL_BCDVERSION < 0x5010000)
/* Hint: isPRINT /* Hint: isPRINT
* The implementation in older perl versions includes all of the * The implementation in older perl versions includes all of the
* isSPACE() characters, which is wrong. The version provided by * isSPACE() characters, which is wrong. The version provided by
* Devel::PPPort always overrides a present buggy version. * Devel::PPPort always overrides a present buggy version.
*/ */
# undef isPRINT # undef isPRINT
# undef isPRINT_A
# endif # endif
#ifdef HAS_QUAD # if (PERL_BCDVERSION < 0x5014000)
# ifdef U64TYPE /* Hint: isASCII
# define WIDEST_UTYPE U64TYPE * The implementation in older perl versions always returned true if the
# else * parameter was a signed char
# define WIDEST_UTYPE Quad_t */
# undef isASCII
# undef isASCII_A
# endif # endif
#else
# define WIDEST_UTYPE U32
#endif
#ifndef isALNUMC
# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
#endif
# if (PERL_BCDVERSION < 0x5020000)
/* Hint: isSPACE
* The implementation in older perl versions didn't include \v */
# undef isSPACE
# undef isSPACE_A
# endif
#ifndef isASCII #ifndef isASCII
# define isASCII(c) ((WIDEST_UTYPE) (c) <= 127) # define isASCII(c) ((WIDEST_UTYPE) (c) <= 127)
#endif #endif
#ifndef isCNTRL #ifndef isCNTRL
# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127 ) # define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127 )
#endif #endif
#ifndef isLOWER
# define isLOWER(c) ((c) >= 'a' && (c) <= 'z')
#endif
#ifndef isUPPER
# define isUPPER(c) ((c) <= 'Z' && (c) >= 'A')
#endif
#endif /* Below are definitions common to EBCDIC and ASCII */
#ifndef isALNUM
# define isALNUM(c) isWORDCHAR(c)
#endif
#ifndef isALNUMC
# define isALNUMC(c) isALPHANUMERIC(c)
#endif
#ifndef isALPHA
# define isALPHA(c) (isUPPER(c) || isLOWER(c))
#endif
#ifndef isALPHANUMERIC
# define isALPHANUMERIC(c) (isALPHA(c) || isDIGIT(c))
#endif
#ifndef isBLANK
# define isBLANK(c) ((c) == ' ' || (c) == '\t')
#endif
#ifndef isDIGIT
# define isDIGIT(c) ((c) <= '9' && (c) >= '0')
#endif
#ifndef isGRAPH #ifndef isGRAPH
# define isGRAPH(c) (isALNUM(c) || isPUNCT(c)) # define isGRAPH(c) (isWORDCHAR(c) || isPUNCT(c))
#endif
#ifndef isIDCONT
# define isIDCONT(c) isWORDCHAR(c)
#endif
#ifndef isIDFIRST
# define isIDFIRST(c) (isALPHA(c) || (c) == '_')
#endif
#ifndef isOCTAL
# define isOCTAL(c) (((WIDEST_UTYPE)((c)) & ~7) == '0')
#endif #endif
#ifndef isPRINT #ifndef isPRINT
# define isPRINT(c) (((c) >= 32 && (c) < 127)) # define isPRINT(c) (isGRAPH(c) || (c) == ' ')
#endif
#ifndef isPSXSPC
# define isPSXSPC(c) isSPACE(c)
#endif #endif
#ifndef isPUNCT #ifndef isPUNCT
# define isPUNCT(c) (((c) >= 33 && (c) <= 47) || ((c) >= 58 # define isPUNCT(c) ( (c) == '-' || (c) == '!' || (c) ==
&& (c) <= 64) || ((c) >= 91 && (c) <= 96) || ((c) >= 123 && (c) <= 126)) '"' \
|| (c) == '#' || (c) == '$' || (c) == '%'
\
|| (c) == '&' || (c) == '\'' || (c) == '('
\
|| (c) == ')' || (c) == '*' || (c) == '+'
\
|| (c) == ',' || (c) == '.' || (c) == '/'
\
|| (c) == ':' || (c) == ';' || (c) == '<'
\
|| (c) == '=' || (c) == '>' || (c) == '?'
\
|| (c) == '@' || (c) == '[' || (c) == '\\'
\
|| (c) == ']' || (c) == '^' || (c) == '_'
\
|| (c) == '`' || (c) == '{' || (c) == '|'
\
|| (c) == '}' || (c) == '~')
#endif
#ifndef isSPACE
# define isSPACE(c) ( isBLANK(c) || (c) == '\n' || (c) ==
'\r' \
|| (c) == '\v' || (c) == '\f')
#endif
#ifndef isWORDCHAR
# define isWORDCHAR(c) (isALPHANUMERIC(c) || (c) == '_')
#endif #endif
#ifndef isXDIGIT #ifndef isXDIGIT
# define isXDIGIT(c) (isDIGIT(c) || ((c) >= 'a' && (c) <= 'f # define isXDIGIT(c) ( isDIGIT(c)
') || ((c) >= 'A' && (c) <= 'F')) \
|| ((c) >= 'a' && (c) <= 'f')
\
|| ((c) >= 'A' && (c) <= 'F'))
#endif
#ifndef isALNUM_A
# define isALNUM_A isALNUM
#endif
#ifndef isALNUMC_A
# define isALNUMC_A isALNUMC
#endif
#ifndef isALPHA_A
# define isALPHA_A isALPHA
#endif
#ifndef isALPHANUMERIC_A
# define isALPHANUMERIC_A isALPHANUMERIC
#endif #endif
#ifndef isASCII_A
# define isASCII_A isASCII
#endif
#ifndef isBLANK_A
# define isBLANK_A isBLANK
#endif
#ifndef isCNTRL_A
# define isCNTRL_A isCNTRL
#endif
#ifndef isDIGIT_A
# define isDIGIT_A isDIGIT
#endif
#ifndef isGRAPH_A
# define isGRAPH_A isGRAPH
#endif
#ifndef isIDCONT_A
# define isIDCONT_A isIDCONT
#endif
#ifndef isIDFIRST_A
# define isIDFIRST_A isIDFIRST
#endif
#ifndef isLOWER_A
# define isLOWER_A isLOWER
#endif
#ifndef isOCTAL_A
# define isOCTAL_A isOCTAL
#endif
#ifndef isPRINT_A
# define isPRINT_A isPRINT
#endif
#ifndef isPSXSPC_A
# define isPSXSPC_A isPSXSPC
#endif
#ifndef isPUNCT_A
# define isPUNCT_A isPUNCT
#endif
#ifndef isSPACE_A
# define isSPACE_A isSPACE
#endif
#ifndef isUPPER_A
# define isUPPER_A isUPPER
#endif
#ifndef isWORDCHAR_A
# define isWORDCHAR_A isWORDCHAR
#endif
#ifndef isXDIGIT_A
# define isXDIGIT_A isXDIGIT
#endif #endif
/* Until we figure out how to support this in older perls... */ /* Until we figure out how to support this in older perls... */
#if (PERL_BCDVERSION >= 0x5008000) #if (PERL_BCDVERSION >= 0x5008000)
#ifndef HeUTF8 #ifndef HeUTF8
# define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \ # define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \
SvUTF8(HeKEY_sv(he)) : \ SvUTF8(HeKEY_sv(he)) : \
(U32)HeKUTF8(he)) (U32)HeKUTF8(he))
#endif #endif
#endif #endif
#ifndef C_ARRAY_LENGTH
# define C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0]))
#endif
#ifndef C_ARRAY_END
# define C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a))
#endif
#ifndef LIKELY
# define LIKELY(x) (x)
#endif
#ifndef UNLIKELY
# define UNLIKELY(x) (x)
#endif
#ifndef UNICODE_REPLACEMENT
# define UNICODE_REPLACEMENT 0xFFFD
#endif
#ifndef MUTABLE_PTR
#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
# define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
#else
# define MUTABLE_PTR(p) ((void *) (p))
#endif
#endif
#ifndef MUTABLE_SV
# define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
#endif
#ifndef WARN_ALL
# define WARN_ALL 0
#endif
#ifndef WARN_CLOSURE
# define WARN_CLOSURE 1
#endif
#ifndef WARN_DEPRECATED
# define WARN_DEPRECATED 2
#endif
#ifndef WARN_EXITING
# define WARN_EXITING 3
#endif
#ifndef WARN_GLOB
# define WARN_GLOB 4
#endif
#ifndef WARN_IO
# define WARN_IO 5
#endif
#ifndef WARN_CLOSED
# define WARN_CLOSED 6
#endif
#ifndef WARN_EXEC
# define WARN_EXEC 7
#endif
#ifndef WARN_LAYER
# define WARN_LAYER 8
#endif
#ifndef WARN_NEWLINE
# define WARN_NEWLINE 9
#endif
#ifndef WARN_PIPE
# define WARN_PIPE 10
#endif
#ifndef WARN_UNOPENED
# define WARN_UNOPENED 11
#endif
#ifndef WARN_MISC
# define WARN_MISC 12
#endif
#ifndef WARN_NUMERIC
# define WARN_NUMERIC 13
#endif
#ifndef WARN_ONCE
# define WARN_ONCE 14
#endif
#ifndef WARN_OVERFLOW
# define WARN_OVERFLOW 15
#endif
#ifndef WARN_PACK
# define WARN_PACK 16
#endif
#ifndef WARN_PORTABLE
# define WARN_PORTABLE 17
#endif
#ifndef WARN_RECURSION
# define WARN_RECURSION 18
#endif
#ifndef WARN_REDEFINE
# define WARN_REDEFINE 19
#endif
#ifndef WARN_REGEXP
# define WARN_REGEXP 20
#endif
#ifndef WARN_SEVERE
# define WARN_SEVERE 21
#endif
#ifndef WARN_DEBUGGING
# define WARN_DEBUGGING 22
#endif
#ifndef WARN_INPLACE
# define WARN_INPLACE 23
#endif
#ifndef WARN_INTERNAL
# define WARN_INTERNAL 24
#endif
#ifndef WARN_MALLOC
# define WARN_MALLOC 25
#endif
#ifndef WARN_SIGNAL
# define WARN_SIGNAL 26
#endif
#ifndef WARN_SUBSTR
# define WARN_SUBSTR 27
#endif
#ifndef WARN_SYNTAX
# define WARN_SYNTAX 28
#endif
#ifndef WARN_AMBIGUOUS
# define WARN_AMBIGUOUS 29
#endif
#ifndef WARN_BAREWORD
# define WARN_BAREWORD 30
#endif
#ifndef WARN_DIGIT
# define WARN_DIGIT 31
#endif
#ifndef WARN_PARENTHESIS
# define WARN_PARENTHESIS 32
#endif
#ifndef WARN_PRECEDENCE
# define WARN_PRECEDENCE 33
#endif
#ifndef WARN_PRINTF
# define WARN_PRINTF 34
#endif
#ifndef WARN_PROTOTYPE
# define WARN_PROTOTYPE 35
#endif
#ifndef WARN_QW
# define WARN_QW 36
#endif
#ifndef WARN_RESERVED
# define WARN_RESERVED 37
#endif
#ifndef WARN_SEMICOLON
# define WARN_SEMICOLON 38
#endif
#ifndef WARN_TAINT
# define WARN_TAINT 39
#endif
#ifndef WARN_THREADS
# define WARN_THREADS 40
#endif
#ifndef WARN_UNINITIALIZED
# define WARN_UNINITIALIZED 41
#endif
#ifndef WARN_UNPACK
# define WARN_UNPACK 42
#endif
#ifndef WARN_UNTIE
# define WARN_UNTIE 43
#endif
#ifndef WARN_UTF8
# define WARN_UTF8 44
#endif
#ifndef WARN_VOID
# define WARN_VOID 45
#endif
#ifndef WARN_ASSERTIONS
# define WARN_ASSERTIONS 46
#endif
#ifndef packWARN
# define packWARN(a) (a)
#endif
#ifndef ckWARN
# ifdef G_WARN_ON
# define ckWARN(a) (PL_dowarn & G_WARN_ON)
# else
# define ckWARN(a) PL_dowarn
# endif
#endif
#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner)
#if defined(NEED_warner)
static void DPPP_(my_warner)(U32 err, const char *pat, ...);
static
#else
extern void DPPP_(my_warner)(U32 err, const char *pat, ...);
#endif
#if defined(NEED_warner) || defined(NEED_warner_GLOBAL)
#define Perl_warner DPPP_(my_warner)
void
DPPP_(my_warner)(U32 err, const char *pat, ...)
{
SV *sv;
va_list args;
PERL_UNUSED_ARG(err);
va_start(args, pat);
sv = vnewSVpvf(pat, &args);
va_end(args);
sv_2mortal(sv);
warn("%s", SvPV_nolen(sv));
}
#define warner Perl_warner
#define Perl_warner_nocontext Perl_warner
#endif
#endif
#define _ppport_MIN(a,b) (((a) <= (b)) ? (a) : (b))
#ifndef sv_setuv
# define sv_setuv(sv, uv) \
STMT_START { \
UV TeMpUv = uv; \
if (TeMpUv <= IV_MAX) \
sv_setiv(sv, TeMpUv); \
else \
sv_setnv(sv, (double)TeMpUv); \
} STMT_END
#endif
#ifndef newSVuv
# define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : new
SVnv((NV)uv))
#endif
#ifndef sv_2uv
# define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? S
vNV(PL_Sv) : sv_2nv(PL_Sv)))
#endif
#ifndef SvUVX
# define SvUVX(sv) ((UV)SvIVX(sv))
#endif
#ifndef SvUVXx
# define SvUVXx(sv) SvUVX(sv)
#endif
#ifndef SvUV
# define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
#endif
#ifndef SvUVx
# define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
#endif
/* Hint: sv_uv
* Always use the SvUVx() macro instead of sv_uv().
*/
#ifndef sv_uv
# define sv_uv(sv) SvUVx(sv)
#endif
#if !defined(SvUOK) && defined(SvIOK_UV)
# define SvUOK(sv) SvIOK_UV(sv)
#endif
#ifndef XST_mUV
# define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
#endif
#ifndef XSRETURN_UV
# define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1)
; } STMT_END
#endif
#ifndef PUSHu
# define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); P
USHTARG; } STMT_END
#endif
#ifndef XPUSHu
# define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); X
PUSHTARG; } STMT_END
#endif
#if defined UTF8SKIP
/* Don't use official version because it uses MIN, which may not be available */
#undef UTF8_SAFE_SKIP
#ifndef UTF8_SAFE_SKIP
# define UTF8_SAFE_SKIP(s, e) (
\
((((e) - (s)) <= 0)
\
? 0
\
: _ppport_MIN(((e) - (s)), UTF8SKIP(s))))
#endif
#endif
#if !defined(my_strnlen)
#if defined(NEED_my_strnlen)
static STRLEN DPPP_(my_my_strnlen)(const char *str, Size_t maxlen);
static
#else
extern STRLEN DPPP_(my_my_strnlen)(const char *str, Size_t maxlen);
#endif
#if defined(NEED_my_strnlen) || defined(NEED_my_strnlen_GLOBAL)
#define my_strnlen DPPP_(my_my_strnlen)
#define Perl_my_strnlen DPPP_(my_my_strnlen)
STRLEN
DPPP_(my_my_strnlen)(const char *str, Size_t maxlen)
{
const char *p = str;
while(maxlen-- && *p)
p++;
return p - str;
}
#endif
#endif
#if (PERL_BCDVERSION < 0x5030000)
/* Versions prior to this accepted things that are now considered
* malformations, and didn't return -1 on error with warnings enabled
* */
# undef utf8_to_uvchr_buf
#endif
/* This implementation brings modern, generally more restricted standards to
* utf8_to_uvchr_buf. Some of these are security related, and clearly must
* be done. But its arguable that the others need not, and hence should not.
* The reason they're here is that a module that intends to play with the
* latest perls shoud be able to work the same in all releases. An example is
* that perl no longer accepts any UV for a code point, but limits them to
* IV_MAX or below. This is for future internal use of the larger code points.
* If it turns out that some of these changes are breaking code that isn't
* intended to work with modern perls, the tighter restrictions could be
* relaxed. khw thinks this is unlikely, but has been wrong in the past. */
#ifndef utf8_to_uvchr_buf
/* Choose which underlying implementation to use. At least one must be
* present or the perl is too early to handle this function */
# if defined(utf8n_to_uvchr) || defined(utf8_to_uv)
# if defined(utf8n_to_uvchr) /* This is the preferred implementation */
# define _ppport_utf8_to_uvchr_buf_callee utf8n_to_uvchr
# else
# define _ppport_utf8_to_uvchr_buf_callee utf8_to_uv
# endif
# endif
#ifdef _ppport_utf8_to_uvchr_buf_callee
# if defined(NEED_utf8_to_uvchr_buf)
static UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLE
N * retlen);
static
#else
extern UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLE
N * retlen);
#endif
#if defined(NEED_utf8_to_uvchr_buf) || defined(NEED_utf8_to_uvchr_buf_GLOBAL)
#ifdef utf8_to_uvchr_buf
# undef utf8_to_uvchr_buf
#endif
#define utf8_to_uvchr_buf(a,b,c) DPPP_(my_utf8_to_uvchr_buf)(aTHX_ a,b,c)
#define Perl_utf8_to_uvchr_buf DPPP_(my_utf8_to_uvchr_buf)
UV
DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
{
UV ret;
STRLEN curlen;
bool overflows = 0;
const U8 *cur_s = s;
const bool do_warnings = ckWARN_d(WARN_UTF8);
if (send > s) {
curlen = send - s;
}
else {
assert(0); /* Modern perls die under this circumstance */
curlen = 0;
if (! do_warnings) { /* Handle empty here if no warnings needed */
if (retlen) *retlen = 0;
return UNICODE_REPLACEMENT;
}
}
/* The modern version allows anything that evaluates to a legal UV, but not
* overlongs nor an empty input */
ret = _ppport_utf8_to_uvchr_buf_callee(
s, curlen, retlen, (UTF8_ALLOW_ANYUV
& ~(UTF8_ALLOW_LONG|UTF8_ALLOW_EMPTY)));
/* But actually, modern versions restrict the UV to being no more than what
* an IV can hold */
if (ret > PERL_INT_MAX) {
overflows = 1;
}
# if (PERL_BCDVERSION < 0x5026000)
# ifndef EBCDIC
/* There are bugs in versions earlier than this on non-EBCDIC platforms
* in which it did not detect all instances of overflow, which could be
* a security hole. Also, earlier versions did not allow the overflow
* malformation under any circumstances, and modern ones do. So we
* need to check here. */
else if (curlen > 0 && *s >= 0xFE) {
/* If the main routine detected overflow, great; it returned 0. But if
the
* input's first byte indicates it could overflow, we need to verify.
* First, on a 32-bit machine the first byte being at least \xFE
* automatically is overflow */
if (sizeof(ret) < 8) {
overflows = 1;
}
else {
const U8 highest[] = /* 2*63-1 */
"\xFF\x80\x87\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF";
const U8 *cur_h = highest;
for (cur_s = s; cur_s < send; cur_s++, cur_h++) {
if (UNLIKELY(*cur_s == *cur_h)) {
continue;
}
/* If this byte is larger than the corresponding highest UTF-8
* byte, the sequence overflows; otherwise the byte is less than
* (as we handled the equality case above), and so the sequence
* doesn't overflow */
overflows = *cur_s > *cur_h;
break;
}
/* Here, either we set the bool and broke out of the loop, or got
* to the end and all bytes are the same which indicates it doesn't
* overflow. */
}
}
# endif
# endif /* < 5.26 */
if (UNLIKELY(overflows)) {
if (! do_warnings) {
if (retlen) {
*retlen = _ppport_MIN(*retlen, UTF8SKIP(s));
*retlen = _ppport_MIN(*retlen, curlen);
}
return UNICODE_REPLACEMENT;
}
else {
/* On versions that correctly detect overflow, but forbid it
* always, 0 will be returned, but also a warning will have been
* raised. Don't repeat it */
if (ret != 0) {
/* We use the error message in use from 5.8-5.14 */
Perl_warner(aTHX_ packWARN(WARN_UTF8),
"Malformed UTF-8 character (overflow at 0x%" UVxf
", byte 0x%02x, after start byte 0x%02x)",
ret, *cur_s, *s);
}
if (retlen) {
*retlen = (STRLEN) -1;
}
return 0;
}
}
/* If failed and warnings are off, to emulate the behavior of the real
* utf8_to_uvchr(), try again, allowing anything. (Note a return of 0 is
* ok if the input was '\0') */
if (UNLIKELY(ret == 0 && (curlen == 0 || *s != '\0'))) {
/* If curlen is 0, we already handled the case where warnings are
* disabled, so this 'if' will be true, and we won't look at the
* contents of 's' */
if (do_warnings) {
*retlen = (STRLEN) -1;
}
else {
ret = _ppport_utf8_to_uvchr_buf_callee(
s, curlen, retlen, UTF8_ALLOW_ANY);
/* Override with the REPLACEMENT character, as that is what the
* modern version of this function returns */
ret = UNICODE_REPLACEMENT;
# if (PERL_BCDVERSION < 0x5016000)
/* Versions earlier than this don't necessarily return the proper
* length. It should not extend past the end of string, nor past
* what the first byte indicates the length is, nor past the
* continuation characters */
if (retlen && *retlen >= 0) {
*retlen = _ppport_MIN(*retlen, curlen);
*retlen = _ppport_MIN(*retlen, UTF8SKIP(s));
unsigned int i = 1;
do {
if (s[i] < 0x80 || s[i] > 0xBF) {
*retlen = i;
break;
}
} while (++i < *retlen);
}
# endif
}
}
return ret;
}
# endif
#endif
#endif
#if defined(UTF8SKIP) && defined(utf8_to_uvchr_buf)
#undef utf8_to_uvchr /* Always redefine this unsafe function so that it refuses
to read past a NUL, making it much less likely to read
off the end of the buffer. A NUL indicates the start
of the next character anyway. If the input isn't
NUL-terminated, the function remains unsafe, as it
always has been. */
#ifndef utf8_to_uvchr
# define utf8_to_uvchr(s, lp) \
((*(s) == '\0')
\
? utf8_to_uvchr_buf(s,((s)+1), lp) /* Handle single NUL specially */
\
: utf8_to_uvchr_buf(s, (s) + my_strnlen((char *) (s), UTF8SKIP(s)), (lp)))
#endif
#endif
#ifdef HAS_MEMCMP
#ifndef memNE
# define memNE(s1,s2,l) (memcmp(s1,s2,l))
#endif
#ifndef memEQ
# define memEQ(s1,s2,l) (!memcmp(s1,s2,l))
#endif
#else
#ifndef memNE
# define memNE(s1,s2,l) (bcmp(s1,s2,l))
#endif
#ifndef memEQ
# define memEQ(s1,s2,l) (!bcmp(s1,s2,l))
#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) * si
zeof(t))
#endif
#ifndef CopyD
# define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * siz
eof(t))
#endif
#ifdef HAS_MEMSET
#ifndef ZeroD
# define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t))
#endif
#else
#ifndef ZeroD
# define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof
(t)), d)
#endif
#endif
#ifndef PoisonWith
# define PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) *
sizeof(t))
#endif
#ifndef PoisonNew
# define PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB)
#endif
#ifndef PoisonFree
# define PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF)
#endif
#ifndef Poison
# define Poison(d,n,t) PoisonFree(d,n,t)
#endif
#ifndef Newx
# define Newx(v,n,t) New(0,v,n,t)
#endif
#ifndef Newxc
# define Newxc(v,n,t,c) Newc(0,v,n,t,c)
#endif
#ifndef Newxz
# define Newxz(v,n,t) Newz(0,v,n,t)
#endif
#ifndef PERL_MAGIC_sv
# define PERL_MAGIC_sv '\0'
#endif
#ifndef PERL_MAGIC_overload
# define PERL_MAGIC_overload 'A'
#endif
#ifndef PERL_MAGIC_overload_elem
# define PERL_MAGIC_overload_elem 'a'
#endif
#ifndef PERL_MAGIC_overload_table
# define PERL_MAGIC_overload_table 'c'
#endif
#ifndef PERL_MAGIC_bm
# define PERL_MAGIC_bm 'B'
#endif
#ifndef PERL_MAGIC_regdata
# define PERL_MAGIC_regdata 'D'
#endif
#ifndef PERL_MAGIC_regdatum
# define PERL_MAGIC_regdatum 'd'
#endif
#ifndef PERL_MAGIC_env
# define PERL_MAGIC_env 'E'
#endif
#ifndef PERL_MAGIC_envelem
# define PERL_MAGIC_envelem 'e'
#endif
#ifndef PERL_MAGIC_fm
# define PERL_MAGIC_fm 'f'
#endif
#ifndef PERL_MAGIC_regex_global
# define PERL_MAGIC_regex_global 'g'
#endif
#ifndef PERL_MAGIC_isa
# define PERL_MAGIC_isa 'I'
#endif
#ifndef PERL_MAGIC_isaelem
# define PERL_MAGIC_isaelem 'i'
#endif
#ifndef PERL_MAGIC_nkeys
# define PERL_MAGIC_nkeys 'k'
#endif
#ifndef PERL_MAGIC_dbfile
# define PERL_MAGIC_dbfile 'L'
#endif
#ifndef PERL_MAGIC_dbline
# define PERL_MAGIC_dbline 'l'
#endif
#ifndef PERL_MAGIC_mutex
# define PERL_MAGIC_mutex 'm'
#endif
#ifndef PERL_MAGIC_shared
# define PERL_MAGIC_shared 'N'
#endif
#ifndef PERL_MAGIC_shared_scalar
# define PERL_MAGIC_shared_scalar 'n'
#endif
#ifndef PERL_MAGIC_collxfrm
# define PERL_MAGIC_collxfrm 'o'
#endif
#ifndef PERL_MAGIC_tied
# define PERL_MAGIC_tied 'P'
#endif
#ifndef PERL_MAGIC_tiedelem
# define PERL_MAGIC_tiedelem 'p'
#endif
#ifndef PERL_MAGIC_tiedscalar
# define PERL_MAGIC_tiedscalar 'q'
#endif
#ifndef PERL_MAGIC_qr
# define PERL_MAGIC_qr 'r'
#endif
#ifndef PERL_MAGIC_sig
# define PERL_MAGIC_sig 'S'
#endif
#ifndef PERL_MAGIC_sigelem
# define PERL_MAGIC_sigelem 's'
#endif
#ifndef PERL_MAGIC_taint
# define PERL_MAGIC_taint 't'
#endif
#ifndef PERL_MAGIC_uvar
# define PERL_MAGIC_uvar 'U'
#endif
#ifndef PERL_MAGIC_uvar_elem
# define PERL_MAGIC_uvar_elem 'u'
#endif
#ifndef PERL_MAGIC_vstring
# define PERL_MAGIC_vstring 'V'
#endif
#ifndef PERL_MAGIC_vec
# define PERL_MAGIC_vec 'v'
#endif
#ifndef PERL_MAGIC_utf8
# define PERL_MAGIC_utf8 'w'
#endif
#ifndef PERL_MAGIC_substr
# define PERL_MAGIC_substr 'x'
#endif
#ifndef PERL_MAGIC_defelem
# define PERL_MAGIC_defelem 'y'
#endif
#ifndef PERL_MAGIC_glob
# define PERL_MAGIC_glob '*'
#endif
#ifndef PERL_MAGIC_arylen
# define PERL_MAGIC_arylen '#'
#endif
#ifndef PERL_MAGIC_pos
# define PERL_MAGIC_pos '.'
#endif
#ifndef PERL_MAGIC_backref
# define PERL_MAGIC_backref '<'
#endif
#ifndef PERL_MAGIC_ext
# define PERL_MAGIC_ext '~'
#endif
#ifdef NEED_mess_sv
#define NEED_mess
#endif
#ifdef NEED_mess
#define NEED_mess_nocontext
#define NEED_vmess
#endif
#ifndef croak_sv
#if (PERL_BCDVERSION >= 0x5007003) || ( (PERL_BCDVERSION >= 0x5006001) && (PERL_
BCDVERSION < 0x5007000) )
# if ( (PERL_BCDVERSION >= 0x5008000) && (PERL_BCDVERSION < 0x5008009) ) || ( (
PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5010001) )
# define D_PPP_FIX_UTF8_ERRSV(errsv, sv) \
STMT_START { \
if (sv != errsv) \
SvFLAGS(errsv) = (SvFLAGS(errsv) & ~SVf_UTF8) | \
(SvFLAGS(sv) & SVf_UTF8); \
} STMT_END
# else
# define D_PPP_FIX_UTF8_ERRSV(errsv, sv) STMT_START {} STMT_END
# endif
# define croak_sv(sv) \
STMT_START { \
if (SvROK(sv)) { \
sv_setsv(ERRSV, sv); \
croak(NULL); \
} else { \
D_PPP_FIX_UTF8_ERRSV(ERRSV, sv); \
croak("%" SVf, SVfARG(sv)); \
} \
} STMT_END
#elif (PERL_BCDVERSION >= 0x5004000)
# define croak_sv(sv) croak("%" SVf, SVfARG(sv))
#else
# define croak_sv(sv) croak("%s", SvPV_nolen(sv))
#endif
#endif
#ifndef die_sv
#if defined(NEED_die_sv)
static OP * DPPP_(my_die_sv)(pTHX_ SV *sv);
static
#else
extern OP * DPPP_(my_die_sv)(pTHX_ SV *sv);
#endif
#if defined(NEED_die_sv) || defined(NEED_die_sv_GLOBAL)
#ifdef die_sv
# undef die_sv
#endif
#define die_sv(a) DPPP_(my_die_sv)(aTHX_ a)
#define Perl_die_sv DPPP_(my_die_sv)
OP *
DPPP_(my_die_sv)(pTHX_ SV *sv)
{
croak_sv(sv);
return (OP *)NULL;
}
#endif
#endif
#ifndef warn_sv
#if (PERL_BCDVERSION >= 0x5004000)
# define warn_sv(sv) warn("%" SVf, SVfARG(sv))
#else
# define warn_sv(sv) warn("%s", SvPV_nolen(sv))
#endif
#endif
#ifndef vmess
#if defined(NEED_vmess)
static SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
static
#else
extern SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
#endif
#if defined(NEED_vmess) || defined(NEED_vmess_GLOBAL)
#ifdef vmess
# undef vmess
#endif
#define vmess(a,b) DPPP_(my_vmess)(aTHX_ a,b)
#define Perl_vmess DPPP_(my_vmess)
SV*
DPPP_(my_vmess)(pTHX_ const char* pat, va_list* args)
{
mess(pat, args);
return PL_mess_sv;
}
#endif
#endif
#if (PERL_BCDVERSION < 0x5006000)
#undef mess
#endif
#if !defined(mess_nocontext) && !defined(Perl_mess_nocontext)
#if defined(NEED_mess_nocontext)
static SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
static
#else
extern SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
#endif
#if defined(NEED_mess_nocontext) || defined(NEED_mess_nocontext_GLOBAL)
#define mess_nocontext DPPP_(my_mess_nocontext)
#define Perl_mess_nocontext DPPP_(my_mess_nocontext)
SV*
DPPP_(my_mess_nocontext)(const char* pat, ...)
{
dTHX;
SV *sv;
va_list args;
va_start(args, pat);
sv = vmess(pat, &args);
va_end(args);
return sv;
}
#endif
#endif
#ifndef mess
#if defined(NEED_mess)
static SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
static
#else
extern SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
#endif
#if defined(NEED_mess) || defined(NEED_mess_GLOBAL)
#define Perl_mess DPPP_(my_mess)
SV*
DPPP_(my_mess)(pTHX_ const char* pat, ...)
{
SV *sv;
va_list args;
va_start(args, pat);
sv = vmess(pat, &args);
va_end(args);
return sv;
}
#ifdef mess_nocontext
#define mess mess_nocontext
#else
#define mess Perl_mess_nocontext
#endif
#endif
#endif
#ifndef mess_sv
#if defined(NEED_mess_sv)
static SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
static
#else
extern SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
#endif
#if defined(NEED_mess_sv) || defined(NEED_mess_sv_GLOBAL)
#ifdef mess_sv
# undef mess_sv
#endif
#define mess_sv(a,b) DPPP_(my_mess_sv)(aTHX_ a,b)
#define Perl_mess_sv DPPP_(my_mess_sv)
SV *
DPPP_(my_mess_sv)(pTHX_ SV *basemsg, bool consume)
{
SV *tmp;
SV *ret;
if (SvPOK(basemsg) && SvCUR(basemsg) && *(SvEND(basemsg)-1) == '\n') {
if (consume)
return basemsg;
ret = mess("");
SvSetSV_nosteal(ret, basemsg);
return ret;
}
if (consume) {
sv_catsv(basemsg, mess(""));
return basemsg;
}
ret = mess("");
tmp = newSVsv(ret);
SvSetSV_nosteal(ret, basemsg);
sv_catsv(ret, tmp);
sv_dec(tmp);
return ret;
}
#endif
#endif
#ifndef warn_nocontext
#define warn_nocontext warn
#endif
#ifndef croak_nocontext
#define croak_nocontext croak
#endif
#ifndef croak_no_modify
#define croak_no_modify() croak_nocontext("%s", PL_no_modify)
#define Perl_croak_no_modify() croak_no_modify()
#endif
#ifndef croak_memory_wrap
#if (PERL_BCDVERSION >= 0x5009002) || ( (PERL_BCDVERSION >= 0x5008006) && (PERL_
BCDVERSION < 0x5009000) )
# define croak_memory_wrap() croak_nocontext("%s", PL_memory_wrap)
#else
# define croak_memory_wrap() croak_nocontext("panic: memory wrap")
#endif
#endif
#ifndef croak_xs_usage
#if defined(NEED_croak_xs_usage)
static void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const par
ams);
static
#else
extern void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const par
ams);
#endif
#if defined(NEED_croak_xs_usage) || defined(NEED_croak_xs_usage_GLOBAL)
#define croak_xs_usage DPPP_(my_croak_xs_usage)
#define Perl_croak_xs_usage DPPP_(my_croak_xs_usage)
#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
#endif
void
DPPP_(my_croak_xs_usage)(const CV *const cv, const char *const params)
{
dTHX;
const GV *const gv = CvGV(cv);
PERL_ARGS_ASSERT_CROAK_XS_USAGE;
if (gv) {
const char *const gvname = GvNAME(gv);
const HV *const stash = GvSTASH(gv);
const char *const hvname = stash ? HvNAME(stash) : NULL;
if (hvname)
croak("Usage: %s::%s(%s)", hvname, gvname, params);
else
croak("Usage: %s(%s)", gvname, params);
} else {
/* Pants. I don't think that it should be possible to get here. */
croak("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
}
}
#endif
#endif
#ifndef PERL_SIGNALS_UNSAFE_FLAG #ifndef PERL_SIGNALS_UNSAFE_FLAG
#define PERL_SIGNALS_UNSAFE_FLAG 0x0001 #define PERL_SIGNALS_UNSAFE_FLAG 0x0001
#if (PERL_BCDVERSION < 0x5008000) #if (PERL_BCDVERSION < 0x5008000)
# define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG # define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG
#else #else
# define D_PPP_PERL_SIGNALS_INIT 0 # define D_PPP_PERL_SIGNALS_INIT 0
#endif #endif
skipping to change at line 4541 skipping to change at line 5773
#else #else
extern U32 DPPP_(my_PL_signals); extern U32 DPPP_(my_PL_signals);
#endif #endif
#define PL_signals DPPP_(my_PL_signals) #define PL_signals DPPP_(my_PL_signals)
#endif #endif
/* Hint: PL_ppaddr /* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument * Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for * for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will * 5.005 perls, you can use aTHXR (supplied by dbipport.h), which will
* automatically be defined as the correct argument. * automatically be defined as the correct argument.
*/ */
#if (PERL_BCDVERSION <= 0x5005005) #if (PERL_BCDVERSION <= 0x5005005)
/* Replace: 1 */ /* Replace: 1 */
# define PL_ppaddr ppaddr # define PL_ppaddr ppaddr
# define PL_no_modify no_modify # define PL_no_modify no_modify
/* Replace: 0 */ /* Replace: 0 */
#endif #endif
skipping to change at line 4636 skipping to change at line 5868
yy_parser DPPP_(dummy_PL_parser); yy_parser DPPP_(dummy_PL_parser);
#else #else
extern yy_parser DPPP_(dummy_PL_parser); extern yy_parser DPPP_(dummy_PL_parser);
#endif #endif
# endif # endif
/* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bu fend, PL_lex_state, PL_lex_stuff, PL_tokenbuf depends on PL_parser */ /* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bu fend, PL_lex_state, PL_lex_stuff, PL_tokenbuf depends on PL_parser */
/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufp tr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf /* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufp tr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf
* Do not use this variable unless you know exactly what you're * Do not use this variable unless you know exactly what you're
* doint. It is internal to the perl parser and may change or even * doing. It is internal to the perl parser and may change or even
* be removed in the future. As of perl 5.9.5, you have to check * be removed in the future. As of perl 5.9.5, you have to check
* for (PL_parser != NULL) for this variable to have any effect. * for (PL_parser != NULL) for this variable to have any effect.
* An always non-NULL PL_parser dummy is provided for earlier * An always non-NULL PL_parser dummy is provided for earlier
* perl versions. * perl versions.
* If PL_parser is NULL when you try to access this variable, a * If PL_parser is NULL when you try to access this variable, a
* dummy is being accessed instead and a warning is issued unless * dummy is being accessed instead and a warning is issued unless
* you define DPPP_PL_parser_NO_DUMMY_WARNING. * you define DPPP_PL_parser_NO_DUMMY_WARNING.
* If DPPP_PL_parser_NO_DUMMY is defined, the code trying to access * If DPPP_PL_parser_NO_DUMMY is defined, the code trying to access
* this variable will croak with a panic message. * this variable will croak with a panic message.
*/ */
skipping to change at line 4772 skipping to change at line 6004
/* Replace perl_eval_pv with eval_pv */ /* Replace perl_eval_pv with eval_pv */
#ifndef eval_pv #ifndef eval_pv
#if defined(NEED_eval_pv) #if defined(NEED_eval_pv)
static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
static static
#else #else
extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
#endif #endif
#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
#ifdef eval_pv #ifdef eval_pv
# undef eval_pv # undef eval_pv
#endif #endif
#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b) #define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)
#define Perl_eval_pv DPPP_(my_eval_pv) #define Perl_eval_pv DPPP_(my_eval_pv)
#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
SV* SV*
DPPP_(my_eval_pv)(char *p, I32 croak_on_error) DPPP_(my_eval_pv)(char *p, I32 croak_on_error)
{ {
dSP; dSP;
SV* sv = newSVpv(p, 0); SV* sv = newSVpv(p, 0);
PUSHMARK(sp); PUSHMARK(sp);
eval_sv(sv, G_SCALAR); eval_sv(sv, G_SCALAR);
SvREFCNT_dec(sv); SvREFCNT_dec(sv);
SPAGAIN; SPAGAIN;
sv = POPs; sv = POPs;
PUTBACK; PUTBACK;
if (croak_on_error && SvTRUE(GvSV(errgv))) if (croak_on_error && SvTRUEx(ERRSV))
croak("%s", SvPVx(GvSV(errgv), na)); croak_sv(ERRSV);
return sv; return sv;
} }
#endif #endif
#endif #endif
#ifndef vload_module #ifndef vload_module
#if defined(NEED_vload_module) #if defined(NEED_vload_module)
static void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args); static void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args);
static static
#else #else
extern void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args); extern void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args);
#endif #endif
#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
#ifdef vload_module #ifdef vload_module
# undef vload_module # undef vload_module
#endif #endif
#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d) #define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d)
#define Perl_vload_module DPPP_(my_vload_module) #define Perl_vload_module DPPP_(my_vload_module)
#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
void void
DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args) DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args)
{ {
dTHR; dTHR;
dVAR; dVAR;
OP *veop, *imop; OP *veop, *imop;
OP * const modname = newSVOP(OP_CONST, 0, name); OP * const modname = newSVOP(OP_CONST, 0, name);
/* 5.005 has a somewhat hacky force_normal that doesn't croak on /* 5.005 has a somewhat hacky force_normal that doesn't croak on
SvREADONLY() if PL_compling is true. Current perls take care in SvREADONLY() if PL_compling is true. Current perls take care in
skipping to change at line 4886 skipping to change at line 6118
#endif #endif
#ifndef load_module #ifndef load_module
#if defined(NEED_load_module) #if defined(NEED_load_module)
static void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...); static void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...);
static static
#else #else
extern void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...); extern void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...);
#endif #endif
#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
#ifdef load_module #ifdef load_module
# undef load_module # undef load_module
#endif #endif
#define load_module DPPP_(my_load_module) #define load_module DPPP_(my_load_module)
#define Perl_load_module DPPP_(my_load_module) #define Perl_load_module DPPP_(my_load_module)
#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
void void
DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...) DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...)
{ {
va_list args; va_list args;
va_start(args, ver); va_start(args, ver);
vload_module(flags, name, ver, &args); vload_module(flags, name, ver, &args);
va_end(args); va_end(args);
} }
#endif #endif
skipping to change at line 4917 skipping to change at line 6149
#endif #endif
#ifndef newRV_noinc #ifndef newRV_noinc
#if defined(NEED_newRV_noinc) #if defined(NEED_newRV_noinc)
static SV * DPPP_(my_newRV_noinc)(SV *sv); static SV * DPPP_(my_newRV_noinc)(SV *sv);
static static
#else #else
extern SV * DPPP_(my_newRV_noinc)(SV *sv); extern SV * DPPP_(my_newRV_noinc)(SV *sv);
#endif #endif
#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)
#ifdef newRV_noinc #ifdef newRV_noinc
# undef newRV_noinc # undef newRV_noinc
#endif #endif
#define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a) #define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a)
#define Perl_newRV_noinc DPPP_(my_newRV_noinc) #define Perl_newRV_noinc DPPP_(my_newRV_noinc)
#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)
SV * SV *
DPPP_(my_newRV_noinc)(SV *sv) DPPP_(my_newRV_noinc)(SV *sv)
{ {
SV *rv = (SV *)newRV(sv); SV *rv = (SV *)newRV(sv);
SvREFCNT_dec(sv); SvREFCNT_dec(sv);
return rv; return rv;
} }
#endif #endif
#endif #endif
skipping to change at line 4948 skipping to change at line 6181
/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */ /* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005) #if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005)
#if defined(NEED_newCONSTSUB) #if defined(NEED_newCONSTSUB)
static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv); static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
static static
#else #else
extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv); extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
#endif #endif
#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
#ifdef newCONSTSUB #ifdef newCONSTSUB
# undef newCONSTSUB # undef newCONSTSUB
#endif #endif
#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c) #define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB) #define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
/* This is just a trick to avoid a dependency of newCONSTSUB on PL_parser */ /* This is just a trick to avoid a dependency of newCONSTSUB on PL_parser */
/* (There's no PL_parser in perl < 5.005, so this is completely safe) */ /* (There's no PL_parser in perl < 5.005, so this is completely safe) */
#define D_PPP_PL_copline PL_copline #define D_PPP_PL_copline PL_copline
void void
DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv) DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
{ {
U32 oldhints = PL_hints; U32 oldhints = PL_hints;
HV *old_cop_stash = PL_curcop->cop_stash; HV *old_cop_stash = PL_curcop->cop_stash;
HV *old_curstash = PL_curstash; HV *old_curstash = PL_curstash;
skipping to change at line 5213 skipping to change at line 6446
#ifndef newSV_type #ifndef newSV_type
#if defined(NEED_newSV_type) #if defined(NEED_newSV_type)
static SV* DPPP_(my_newSV_type)(pTHX_ svtype const t); static SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
static static
#else #else
extern SV* DPPP_(my_newSV_type)(pTHX_ svtype const t); extern SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
#endif #endif
#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
#ifdef newSV_type #ifdef newSV_type
# undef newSV_type # undef newSV_type
#endif #endif
#define newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a) #define newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a)
#define Perl_newSV_type DPPP_(my_newSV_type) #define Perl_newSV_type DPPP_(my_newSV_type)
#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
SV* SV*
DPPP_(my_newSV_type)(pTHX_ svtype const t) DPPP_(my_newSV_type)(pTHX_ svtype const t)
{ {
SV* const sv = newSV(0); SV* const sv = newSV(0);
sv_upgrade(sv, t); sv_upgrade(sv, t);
return sv; return sv;
} }
#endif #endif
skipping to change at line 5259 skipping to change at line 6492
#ifndef newSVpvn_flags #ifndef newSVpvn_flags
#if defined(NEED_newSVpvn_flags) #if defined(NEED_newSVpvn_flags)
static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) ; static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) ;
static static
#else #else
extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) ; extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) ;
#endif #endif
#if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)
#ifdef newSVpvn_flags #ifdef newSVpvn_flags
# undef newSVpvn_flags # undef newSVpvn_flags
#endif #endif
#define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c) #define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c)
#define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags) #define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags)
#if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)
SV * SV *
DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags)
{ {
SV *sv = newSVpvn(D_PPP_CONSTPV_ARG(s), len); SV *sv = newSVpvn(D_PPP_CONSTPV_ARG(s), len);
SvFLAGS(sv) |= (flags & SVf_UTF8); SvFLAGS(sv) |= (flags & SVf_UTF8);
return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv; return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;
} }
#endif #endif
skipping to change at line 5297 skipping to change at line 6530
/* Hint: sv_2pv_nolen /* Hint: sv_2pv_nolen
* Use the SvPV_nolen() or SvPV_nolen_const() macros instead of sv_2pv_nolen(). * Use the SvPV_nolen() or SvPV_nolen_const() macros instead of sv_2pv_nolen().
*/ */
#ifndef sv_2pv_nolen #ifndef sv_2pv_nolen
# define sv_2pv_nolen(sv) SvPV_nolen(sv) # define sv_2pv_nolen(sv) SvPV_nolen(sv)
#endif #endif
#ifdef SvPVbyte #ifdef SvPVbyte
/* Hint: SvPVbyte /* Hint: SvPVbyte
* Does not work in perl-5.6.1, ppport.h implements a version * Does not work in perl-5.6.1, dbipport.h implements a version
* borrowed from perl-5.7.3. * borrowed from perl-5.7.3.
*/ */
#if (PERL_BCDVERSION < 0x5007000) #if (PERL_BCDVERSION < 0x5007000)
#if defined(NEED_sv_2pvbyte) #if defined(NEED_sv_2pvbyte)
static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp); static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
static static
#else #else
extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp); extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
#endif #endif
#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
#ifdef sv_2pvbyte #ifdef sv_2pvbyte
# undef sv_2pvbyte # undef sv_2pvbyte
#endif #endif
#define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b) #define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b)
#define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte) #define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte)
#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
char * char *
DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp) DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
{ {
sv_utf8_downgrade(sv,0); sv_utf8_downgrade(sv,0);
return SvPV(sv,*lp); return SvPV(sv,*lp);
} }
#endif #endif
/* Hint: sv_2pvbyte /* Hint: sv_2pvbyte
skipping to change at line 5407 skipping to change at line 6640
#if (PERL_BCDVERSION < 0x5007002) #if (PERL_BCDVERSION < 0x5007002)
#if defined(NEED_sv_2pv_flags) #if defined(NEED_sv_2pv_flags)
static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
static static
#else #else
extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
#endif #endif
#if defined(NEED_sv_2pv_flags) || defined(NEED_sv_2pv_flags_GLOBAL)
#ifdef sv_2pv_flags #ifdef sv_2pv_flags
# undef sv_2pv_flags # undef sv_2pv_flags
#endif #endif
#define sv_2pv_flags(a,b,c) DPPP_(my_sv_2pv_flags)(aTHX_ a,b,c) #define sv_2pv_flags(a,b,c) DPPP_(my_sv_2pv_flags)(aTHX_ a,b,c)
#define Perl_sv_2pv_flags DPPP_(my_sv_2pv_flags) #define Perl_sv_2pv_flags DPPP_(my_sv_2pv_flags)
#if defined(NEED_sv_2pv_flags) || defined(NEED_sv_2pv_flags_GLOBAL)
char * char *
DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags) DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
{ {
STRLEN n_a = (STRLEN) flags; STRLEN n_a = (STRLEN) flags;
return sv_2pv(sv, lp ? lp : &n_a); return sv_2pv(sv, lp ? lp : &n_a);
} }
#endif #endif
#if defined(NEED_sv_pvn_force_flags) #if defined(NEED_sv_pvn_force_flags)
static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
static static
#else #else
extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
#endif #endif
#if defined(NEED_sv_pvn_force_flags) || defined(NEED_sv_pvn_force_flags_GLOBAL)
#ifdef sv_pvn_force_flags #ifdef sv_pvn_force_flags
# undef sv_pvn_force_flags # undef sv_pvn_force_flags
#endif #endif
#define sv_pvn_force_flags(a,b,c) DPPP_(my_sv_pvn_force_flags)(aTHX_ a,b,c) #define sv_pvn_force_flags(a,b,c) DPPP_(my_sv_pvn_force_flags)(aTHX_ a,b,c)
#define Perl_sv_pvn_force_flags DPPP_(my_sv_pvn_force_flags) #define Perl_sv_pvn_force_flags DPPP_(my_sv_pvn_force_flags)
#if defined(NEED_sv_pvn_force_flags) || defined(NEED_sv_pvn_force_flags_GLOBAL)
char * char *
DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags) DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
{ {
STRLEN n_a = (STRLEN) flags; STRLEN n_a = (STRLEN) flags;
return sv_pvn_force(sv, lp ? lp : &n_a); return sv_pvn_force(sv, lp ? lp : &n_a);
} }
#endif #endif
#endif #endif
#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_B CDVERSION < 0x5009003) ) #if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_B CDVERSION < 0x5009003) )
# define DPPP_SVPV_NOLEN_LP_ARG &PL_na # define D_PPP_SVPV_NOLEN_LP_ARG &PL_na
#else #else
# define DPPP_SVPV_NOLEN_LP_ARG 0 # define D_PPP_SVPV_NOLEN_LP_ARG 0
#endif #endif
#ifndef SvPV_const #ifndef SvPV_const
# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC) # define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
#endif #endif
#ifndef SvPV_mutable #ifndef SvPV_mutable
# define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC) # define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
#endif #endif
#ifndef SvPV_flags #ifndef SvPV_flags
# define SvPV_flags(sv, lp, flags) \ # define SvPV_flags(sv, lp, flags) \
skipping to change at line 5477 skipping to change at line 6710
#ifndef SvPV_flags_const #ifndef SvPV_flags_const
# define SvPV_flags_const(sv, lp, flags) \ # define SvPV_flags_const(sv, lp, flags) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \ ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
(const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN)) (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
#endif #endif
#ifndef SvPV_flags_const_nolen #ifndef SvPV_flags_const_nolen
# define SvPV_flags_const_nolen(sv, flags) \ # define SvPV_flags_const_nolen(sv, flags) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? SvPVX_const(sv) : \ ? SvPVX_const(sv) : \
(const char*) sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags|S V_CONST_RETURN)) (const char*) sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags| SV_CONST_RETURN))
#endif #endif
#ifndef SvPV_flags_mutable #ifndef SvPV_flags_mutable
# define SvPV_flags_mutable(sv, lp, flags) \ # define SvPV_flags_mutable(sv, lp, flags) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \ ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN)) sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
#endif #endif
#ifndef SvPV_force #ifndef SvPV_force
# define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC) # define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
#endif #endif
skipping to change at line 5512 skipping to change at line 6745
# define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0) # define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
#endif #endif
#ifndef SvPV_force_flags #ifndef SvPV_force_flags
# define SvPV_force_flags(sv, lp, flags) \ # define SvPV_force_flags(sv, lp, flags) \
((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, f lags)) ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, f lags))
#endif #endif
#ifndef SvPV_force_flags_nolen #ifndef SvPV_force_flags_nolen
# define SvPV_force_flags_nolen(sv, flags) \ # define SvPV_force_flags_nolen(sv, flags) \
((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
? SvPVX(sv) : sv_pvn_force_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, fl ags)) ? SvPVX(sv) : sv_pvn_force_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, f lags))
#endif #endif
#ifndef SvPV_force_flags_mutable #ifndef SvPV_force_flags_mutable
# define SvPV_force_flags_mutable(sv, lp, flags) \ # define SvPV_force_flags_mutable(sv, lp, flags) \
((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \ ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
: sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN)) : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
#endif #endif
#ifndef SvPV_nolen #ifndef SvPV_nolen
# define SvPV_nolen(sv) \ # define SvPV_nolen(sv) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAG IC)) ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMA GIC))
#endif #endif
#ifndef SvPV_nolen_const #ifndef SvPV_nolen_const
# define SvPV_nolen_const(sv) \ # define SvPV_nolen_const(sv) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? SvPVX_const(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, S V_GMAGIC|SV_CONST_RETURN)) ? SvPVX_const(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
#endif #endif
#ifndef SvPV_nomg #ifndef SvPV_nomg
# define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0) # define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
#endif #endif
#ifndef SvPV_nomg_const #ifndef SvPV_nomg_const
# define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0) # define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
#endif #endif
#ifndef SvPV_nomg_const_nolen #ifndef SvPV_nomg_const_nolen
# define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0) # define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
#endif #endif
#ifndef SvPV_nomg_nolen #ifndef SvPV_nomg_nolen
# define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ # define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOL EN_LP_ARG, 0)) ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NO LEN_LP_ARG, 0))
#endif #endif
#ifndef SvPV_renew #ifndef SvPV_renew
# define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \ # define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \
SvPV_set((sv), (char *) saferealloc( \ SvPV_set((sv), (char *) saferealloc( \
(Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \ (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
} STMT_END } STMT_END
#endif #endif
#ifndef SvMAGIC_set #ifndef SvMAGIC_set
# define SvMAGIC_set(sv, val) \ # define SvMAGIC_set(sv, val) \
STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \ STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
skipping to change at line 5617 skipping to change at line 6850
#endif #endif
#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf) #if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
#if defined(NEED_vnewSVpvf) #if defined(NEED_vnewSVpvf)
static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args); static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
static static
#else #else
extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args); extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
#endif #endif
#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)
#ifdef vnewSVpvf #ifdef vnewSVpvf
# undef vnewSVpvf # undef vnewSVpvf
#endif #endif
#define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b) #define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b)
#define Perl_vnewSVpvf DPPP_(my_vnewSVpvf) #define Perl_vnewSVpvf DPPP_(my_vnewSVpvf)
#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)
SV * SV *
DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args) DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args)
{ {
register SV *sv = newSV(0); register SV *sv = newSV(0);
sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
return sv; return sv;
} }
#endif #endif
#endif #endif
skipping to change at line 5652 skipping to change at line 6885
#endif #endif
#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg) #if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg)
#if defined(NEED_sv_catpvf_mg) #if defined(NEED_sv_catpvf_mg)
static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...); static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
static static
#else #else
extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...); extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
#endif #endif
#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL) #if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)
#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
void void
DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...) DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
{ {
va_list args; va_list args;
va_start(args, pat); va_start(args, pat);
sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
SvSETMAGIC(sv); SvSETMAGIC(sv);
va_end(args); va_end(args);
} }
skipping to change at line 5678 skipping to change at line 6911
#ifdef PERL_IMPLICIT_CONTEXT #ifdef PERL_IMPLICIT_CONTEXT
#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext) #if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext)
#if defined(NEED_sv_catpvf_mg_nocontext) #if defined(NEED_sv_catpvf_mg_nocontext)
static void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...); static void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...);
static static
#else #else
extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...); extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...);
#endif #endif
#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_
GLOBAL)
#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext) #define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext) #define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_
GLOBAL)
void void
DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...) DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
{ {
dTHX; dTHX;
va_list args; va_list args;
va_start(args, pat); va_start(args, pat);
sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
SvSETMAGIC(sv); SvSETMAGIC(sv);
va_end(args); va_end(args);
} }
skipping to change at line 5723 skipping to change at line 6956
#endif #endif
#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg) #if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg)
#if defined(NEED_sv_setpvf_mg) #if defined(NEED_sv_setpvf_mg)
static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...); static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
static static
#else #else
extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...); extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
#endif #endif
#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL) #if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)
#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
void void
DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...) DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
{ {
va_list args; va_list args;
va_start(args, pat); va_start(args, pat);
sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
SvSETMAGIC(sv); SvSETMAGIC(sv);
va_end(args); va_end(args);
} }
skipping to change at line 5749 skipping to change at line 6982
#ifdef PERL_IMPLICIT_CONTEXT #ifdef PERL_IMPLICIT_CONTEXT
#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext) #if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext)
#if defined(NEED_sv_setpvf_mg_nocontext) #if defined(NEED_sv_setpvf_mg_nocontext)
static void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...); static void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...);
static static
#else #else
extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...); extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...);
#endif #endif
#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_
GLOBAL)
#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext) #define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext) #define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_
GLOBAL)
void void
DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...) DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
{ {
dTHX; dTHX;
va_list args; va_list args;
va_start(args, pat); va_start(args, pat);
sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
SvSETMAGIC(sv); SvSETMAGIC(sv);
va_end(args); va_end(args);
} }
skipping to change at line 5801 skipping to change at line 7034
#ifndef newSVpvn_share #ifndef newSVpvn_share
#if defined(NEED_newSVpvn_share) #if defined(NEED_newSVpvn_share)
static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash); static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash);
static static
#else #else
extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash); extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash);
#endif #endif
#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
#ifdef newSVpvn_share #ifdef newSVpvn_share
# undef newSVpvn_share # undef newSVpvn_share
#endif #endif
#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c) #define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c)
#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share) #define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)
#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
SV * SV *
DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash) DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash)
{ {
SV *sv; SV *sv;
if (len < 0) if (len < 0)
len = -len; len = -len;
if (!hash) if (!hash)
PERL_HASH(hash, (char*) src, len); PERL_HASH(hash, (char*) src, len);
sv = newSVpvn((char *) src, len); sv = newSVpvn((char *) src, len);
sv_upgrade(sv, SVt_PVIV); sv_upgrade(sv, SVt_PVIV);
skipping to change at line 5837 skipping to change at line 7070
#endif #endif
#ifndef SvSHARED_HASH #ifndef SvSHARED_HASH
# define SvSHARED_HASH(sv) (0 + SvUVX(sv)) # define SvSHARED_HASH(sv) (0 + SvUVX(sv))
#endif #endif
#ifndef HvNAME_get #ifndef HvNAME_get
# define HvNAME_get(hv) HvNAME(hv) # define HvNAME_get(hv) HvNAME(hv)
#endif #endif
#ifndef HvNAMELEN_get #ifndef HvNAMELEN_get
# define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_ge t(hv)) : 0) # define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_ge t(hv)) : 0)
#endif #endif
#ifndef GvSVn
# define GvSVn(gv) GvSV(gv)
#endif
#ifndef isGV_with_GP
# define isGV_with_GP(gv) isGV(gv)
#endif
#ifndef gv_fetchpvn_flags #ifndef gv_fetchpvn_flags
# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt) #if defined(NEED_gv_fetchpvn_flags)
#endif static GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int f
lags, int types);
#ifndef gv_fetchsv static
# define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flag #else
s, svt) extern GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int f
#endif lags, int types);
#ifndef get_cvn_flags
# define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
#endif
#ifndef WARN_ALL
# define WARN_ALL 0
#endif
#ifndef WARN_CLOSURE
# define WARN_CLOSURE 1
#endif
#ifndef WARN_DEPRECATED
# define WARN_DEPRECATED 2
#endif
#ifndef WARN_EXITING
# define WARN_EXITING 3
#endif
#ifndef WARN_GLOB
# define WARN_GLOB 4
#endif
#ifndef WARN_IO
# define WARN_IO 5
#endif
#ifndef WARN_CLOSED
# define WARN_CLOSED 6
#endif
#ifndef WARN_EXEC
# define WARN_EXEC 7
#endif
#ifndef WARN_LAYER
# define WARN_LAYER 8
#endif
#ifndef WARN_NEWLINE
# define WARN_NEWLINE 9
#endif
#ifndef WARN_PIPE
# define WARN_PIPE 10
#endif
#ifndef WARN_UNOPENED
# define WARN_UNOPENED 11
#endif
#ifndef WARN_MISC
# define WARN_MISC 12
#endif
#ifndef WARN_NUMERIC
# define WARN_NUMERIC 13
#endif
#ifndef WARN_ONCE
# define WARN_ONCE 14
#endif
#ifndef WARN_OVERFLOW
# define WARN_OVERFLOW 15
#endif
#ifndef WARN_PACK
# define WARN_PACK 16
#endif
#ifndef WARN_PORTABLE
# define WARN_PORTABLE 17
#endif
#ifndef WARN_RECURSION
# define WARN_RECURSION 18
#endif
#ifndef WARN_REDEFINE
# define WARN_REDEFINE 19
#endif
#ifndef WARN_REGEXP
# define WARN_REGEXP 20
#endif
#ifndef WARN_SEVERE
# define WARN_SEVERE 21
#endif
#ifndef WARN_DEBUGGING
# define WARN_DEBUGGING 22
#endif
#ifndef WARN_INPLACE
# define WARN_INPLACE 23
#endif
#ifndef WARN_INTERNAL
# define WARN_INTERNAL 24
#endif
#ifndef WARN_MALLOC
# define WARN_MALLOC 25
#endif
#ifndef WARN_SIGNAL
# define WARN_SIGNAL 26
#endif
#ifndef WARN_SUBSTR
# define WARN_SUBSTR 27
#endif
#ifndef WARN_SYNTAX
# define WARN_SYNTAX 28
#endif
#ifndef WARN_AMBIGUOUS
# define WARN_AMBIGUOUS 29
#endif
#ifndef WARN_BAREWORD
# define WARN_BAREWORD 30
#endif
#ifndef WARN_DIGIT
# define WARN_DIGIT 31
#endif
#ifndef WARN_PARENTHESIS
# define WARN_PARENTHESIS 32
#endif
#ifndef WARN_PRECEDENCE
# define WARN_PRECEDENCE 33
#endif
#ifndef WARN_PRINTF
# define WARN_PRINTF 34
#endif
#ifndef WARN_PROTOTYPE
# define WARN_PROTOTYPE 35
#endif
#ifndef WARN_QW
# define WARN_QW 36
#endif
#ifndef WARN_RESERVED
# define WARN_RESERVED 37
#endif
#ifndef WARN_SEMICOLON
# define WARN_SEMICOLON 38
#endif #endif
#ifndef WARN_TAINT #if defined(NEED_gv_fetchpvn_flags) || defined(NEED_gv_fetchpvn_flags_GLOBAL)
# define WARN_TAINT 39
#endif
#ifndef WARN_THREADS #ifdef gv_fetchpvn_flags
# define WARN_THREADS 40 # undef gv_fetchpvn_flags
#endif #endif
#define gv_fetchpvn_flags(a,b,c,d) DPPP_(my_gv_fetchpvn_flags)(aTHX_ a,b,c,d)
#define Perl_gv_fetchpvn_flags DPPP_(my_gv_fetchpvn_flags)
#ifndef WARN_UNINITIALIZED GV*
# define WARN_UNINITIALIZED 41 DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int t
#endif ypes) {
char *namepv = savepvn(name, len);
GV* stash = gv_fetchpv(namepv, TRUE, SVt_PVHV);
Safefree(namepv);
return stash;
}
#ifndef WARN_UNPACK
# define WARN_UNPACK 42
#endif #endif
#ifndef WARN_UNTIE
# define WARN_UNTIE 43
#endif #endif
#ifndef GvSVn
#ifndef WARN_UTF8 # define GvSVn(gv) GvSV(gv)
# define WARN_UTF8 44
#endif
#ifndef WARN_VOID
# define WARN_VOID 45
#endif #endif
#ifndef WARN_ASSERTIONS #ifndef isGV_with_GP
# define WARN_ASSERTIONS 46 # define isGV_with_GP(gv) isGV(gv)
#endif
#ifndef packWARN
# define packWARN(a) (a)
#endif #endif
#ifndef ckWARN #ifndef gv_fetchsv
# ifdef G_WARN_ON # define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flag
# define ckWARN(a) (PL_dowarn & G_WARN_ON) s, svt)
# else
# define ckWARN(a) PL_dowarn
# endif
#endif #endif
#ifndef get_cvn_flags
#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner) # define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
#if defined(NEED_warner)
static void DPPP_(my_warner)(U32 err, const char *pat, ...);
static
#else
extern void DPPP_(my_warner)(U32 err, const char *pat, ...);
#endif #endif
#define Perl_warner DPPP_(my_warner) #ifndef gv_init_pvn
# define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, f
#if defined(NEED_warner) || defined(NEED_warner_GLOBAL) lags & GV_ADDMULTI ? TRUE : FALSE)
void
DPPP_(my_warner)(U32 err, const char *pat, ...)
{
SV *sv;
va_list args;
PERL_UNUSED_ARG(err);
va_start(args, pat);
sv = vnewSVpvf(pat, &args);
va_end(args);
sv_2mortal(sv);
warn("%s", SvPV_nolen(sv));
}
#define warner Perl_warner
#define Perl_warner_nocontext Perl_warner
#endif
#endif #endif
/* concatenating with "" ensures that only literal strings are accepted as argum ent /* concatenating with "" ensures that only literal strings are accepted as argum ent
* note that STR_WITH_LEN() can't be used as argument to macros or functions tha t * note that STR_WITH_LEN() can't be used as argument to macros or functions tha t
* under some configurations might be macros * under some configurations might be macros
*/ */
#ifndef STR_WITH_LEN #ifndef STR_WITH_LEN
# define STR_WITH_LEN(s) (s ""), (sizeof(s)-1) # define STR_WITH_LEN(s) (s ""), (sizeof(s)-1)
#endif #endif
#ifndef newSVpvs #ifndef newSVpvs
skipping to change at line 6136 skipping to change at line 7164
#ifndef gv_stashpvs #ifndef gv_stashpvs
# define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags) # define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags)
#endif #endif
#ifndef get_cvs #ifndef get_cvs
# define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags) # define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags)
#endif #endif
#ifndef SvGETMAGIC #ifndef SvGETMAGIC
# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get( x); } STMT_END # define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get( x); } STMT_END
#endif #endif
/* Some random bits for sv_unmagicext. These should probably be pulled in for
real and organized at some point */
#ifndef HEf_SVKEY
# define HEf_SVKEY -2
#endif
#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
# define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
#else
# define MUTABLE_PTR(p) ((void *) (p))
#endif
#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
/* end of random bits */
#ifndef PERL_MAGIC_sv
# define PERL_MAGIC_sv '\0'
#endif
#ifndef PERL_MAGIC_overload
# define PERL_MAGIC_overload 'A'
#endif
#ifndef PERL_MAGIC_overload_elem
# define PERL_MAGIC_overload_elem 'a'
#endif
#ifndef PERL_MAGIC_overload_table
# define PERL_MAGIC_overload_table 'c'
#endif
#ifndef PERL_MAGIC_bm
# define PERL_MAGIC_bm 'B'
#endif
#ifndef PERL_MAGIC_regdata
# define PERL_MAGIC_regdata 'D'
#endif
#ifndef PERL_MAGIC_regdatum
# define PERL_MAGIC_regdatum 'd'
#endif
#ifndef PERL_MAGIC_env
# define PERL_MAGIC_env 'E'
#endif
#ifndef PERL_MAGIC_envelem
# define PERL_MAGIC_envelem 'e'
#endif
#ifndef PERL_MAGIC_fm
# define PERL_MAGIC_fm 'f'
#endif
#ifndef PERL_MAGIC_regex_global
# define PERL_MAGIC_regex_global 'g'
#endif
#ifndef PERL_MAGIC_isa
# define PERL_MAGIC_isa 'I'
#endif
#ifndef PERL_MAGIC_isaelem
# define PERL_MAGIC_isaelem 'i'
#endif
#ifndef PERL_MAGIC_nkeys
# define PERL_MAGIC_nkeys 'k'
#endif
#ifndef PERL_MAGIC_dbfile
# define PERL_MAGIC_dbfile 'L'
#endif
#ifndef PERL_MAGIC_dbline
# define PERL_MAGIC_dbline 'l'
#endif
#ifndef PERL_MAGIC_mutex
# define PERL_MAGIC_mutex 'm'
#endif
#ifndef PERL_MAGIC_shared
# define PERL_MAGIC_shared 'N'
#endif
#ifndef PERL_MAGIC_shared_scalar
# define PERL_MAGIC_shared_scalar 'n'
#endif
#ifndef PERL_MAGIC_collxfrm
# define PERL_MAGIC_collxfrm 'o'
#endif
#ifndef PERL_MAGIC_tied
# define PERL_MAGIC_tied 'P'
#endif
#ifndef PERL_MAGIC_tiedelem
# define PERL_MAGIC_tiedelem 'p'
#endif
#ifndef PERL_MAGIC_tiedscalar
# define PERL_MAGIC_tiedscalar 'q'
#endif
#ifndef PERL_MAGIC_qr
# define PERL_MAGIC_qr 'r'
#endif
#ifndef PERL_MAGIC_sig
# define PERL_MAGIC_sig 'S'
#endif
#ifndef PERL_MAGIC_sigelem
# define PERL_MAGIC_sigelem 's'
#endif
#ifndef PERL_MAGIC_taint
# define PERL_MAGIC_taint 't'
#endif
#ifndef PERL_MAGIC_uvar
# define PERL_MAGIC_uvar 'U'
#endif
#ifndef PERL_MAGIC_uvar_elem
# define PERL_MAGIC_uvar_elem 'u'
#endif
#ifndef PERL_MAGIC_vstring
# define PERL_MAGIC_vstring 'V'
#endif
#ifndef PERL_MAGIC_vec
# define PERL_MAGIC_vec 'v'
#endif
#ifndef PERL_MAGIC_utf8
# define PERL_MAGIC_utf8 'w'
#endif
#ifndef PERL_MAGIC_substr
# define PERL_MAGIC_substr 'x'
#endif
#ifndef PERL_MAGIC_defelem
# define PERL_MAGIC_defelem 'y'
#endif
#ifndef PERL_MAGIC_glob
# define PERL_MAGIC_glob '*'
#endif
#ifndef PERL_MAGIC_arylen
# define PERL_MAGIC_arylen '#'
#endif
#ifndef PERL_MAGIC_pos
# define PERL_MAGIC_pos '.'
#endif
#ifndef PERL_MAGIC_backref
# define PERL_MAGIC_backref '<'
#endif
#ifndef PERL_MAGIC_ext
# define PERL_MAGIC_ext '~'
#endif
/* That's the best we can do... */ /* That's the best we can do... */
#ifndef sv_catpvn_nomg #ifndef sv_catpvn_nomg
# define sv_catpvn_nomg sv_catpvn # define sv_catpvn_nomg sv_catpvn
#endif #endif
#ifndef sv_catsv_nomg #ifndef sv_catsv_nomg
# define sv_catsv_nomg sv_catsv # define sv_catsv_nomg sv_catsv
#endif #endif
#ifndef sv_setsv_nomg #ifndef sv_setsv_nomg
skipping to change at line 6474 skipping to change at line 7331
#endif #endif
#if !defined(mg_findext) #if !defined(mg_findext)
#if defined(NEED_mg_findext) #if defined(NEED_mg_findext)
static MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl); static MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl);
static static
#else #else
extern MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl); extern MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl);
#endif #endif
#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
#define mg_findext DPPP_(my_mg_findext) #define mg_findext DPPP_(my_mg_findext)
#define Perl_mg_findext DPPP_(my_mg_findext) #define Perl_mg_findext DPPP_(my_mg_findext)
#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
MAGIC * MAGIC *
DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl) { DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl) {
if (sv) { if (sv) {
MAGIC *mg; MAGIC *mg;
#ifdef AvPAD_NAMELIST #ifdef AvPAD_NAMELIST
assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv))); assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
#endif #endif
for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) { for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
skipping to change at line 6508 skipping to change at line 7365
#endif #endif
#if !defined(sv_unmagicext) #if !defined(sv_unmagicext)
#if defined(NEED_sv_unmagicext) #if defined(NEED_sv_unmagicext)
static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl); static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
static static
#else #else
extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl); extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
#endif #endif
#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)
#ifdef sv_unmagicext #ifdef sv_unmagicext
# undef sv_unmagicext # undef sv_unmagicext
#endif #endif
#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c) #define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c)
#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext) #define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)
#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)
int int
DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL *vtbl) DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL *vtbl)
{ {
MAGIC* mg; MAGIC* mg;
MAGIC** mgp; MAGIC** mgp;
if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv)) if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
return 0; return 0;
mgp = &(SvMAGIC(sv)); mgp = &(SvMAGIC(sv));
for (mg = *mgp; mg; mg = *mgp) { for (mg = *mgp; mg; mg = *mgp) {
skipping to change at line 6681 skipping to change at line 7538
} }
# endif # endif
# if defined(NEED_caller_cx) # if defined(NEED_caller_cx)
static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONT EXT **dbcxp); static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONT EXT **dbcxp);
static static
#else #else
extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONT EXT **dbcxp); extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONT EXT **dbcxp);
#endif #endif
#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
#ifdef caller_cx #ifdef caller_cx
# undef caller_cx # undef caller_cx
#endif #endif
#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b) #define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b)
#define Perl_caller_cx DPPP_(my_caller_cx) #define Perl_caller_cx DPPP_(my_caller_cx)
#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
const PERL_CONTEXT * const PERL_CONTEXT *
DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp) DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp)
{ {
register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
register const PERL_CONTEXT *cx; register const PERL_CONTEXT *cx;
register const PERL_CONTEXT *ccstack = cxstack; register const PERL_CONTEXT *ccstack = cxstack;
const PERL_SI *top_si = PL_curstackinfo; const PERL_SI *top_si = PL_curstackinfo;
for (;;) { for (;;) {
/* we may be in a higher stacklevel, so dig down deeper */ /* we may be in a higher stacklevel, so dig down deeper */
skipping to change at line 6798 skipping to change at line 7655
#endif #endif
#ifndef grok_numeric_radix #ifndef grok_numeric_radix
#if defined(NEED_grok_numeric_radix) #if defined(NEED_grok_numeric_radix)
static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * se nd); static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * se nd);
static static
#else #else
extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * se nd); extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * se nd);
#endif #endif
#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
#ifdef grok_numeric_radix #ifdef grok_numeric_radix
# undef grok_numeric_radix # undef grok_numeric_radix
#endif #endif
#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b) #define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b)
#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix) #define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)
#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
bool bool
DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send) DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send)
{ {
#ifdef USE_LOCALE_NUMERIC #ifdef USE_LOCALE_NUMERIC
#ifdef PL_numeric_radix_sv #ifdef PL_numeric_radix_sv
if (PL_numeric_radix_sv && IN_LOCALE) { if (PL_numeric_radix_sv && IN_LOCALE) {
STRLEN len; STRLEN len;
char* radix = SvPV(PL_numeric_radix_sv, len); char* radix = SvPV(PL_numeric_radix_sv, len);
if (*sp + len <= send && memEQ(*sp, radix, len)) { if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len; *sp += len;
skipping to change at line 6854 skipping to change at line 7712
#endif #endif
#ifndef grok_number #ifndef grok_number
#if defined(NEED_grok_number) #if defined(NEED_grok_number)
static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep) ; static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep) ;
static static
#else #else
extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep) ; extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep) ;
#endif #endif
#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
#ifdef grok_number #ifdef grok_number
# undef grok_number # undef grok_number
#endif #endif
#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c) #define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c)
#define Perl_grok_number DPPP_(my_grok_number) #define Perl_grok_number DPPP_(my_grok_number)
#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
int int
DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep) DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
{ {
const char *s = pv; const char *s = pv;
const char *send = pv + len; const char *send = pv + len;
const UV max_div_10 = UV_MAX / 10; const UV max_div_10 = UV_MAX / 10;
const char max_mod_10 = UV_MAX % 10; const char max_mod_10 = UV_MAX % 10;
int numtype = 0; int numtype = 0;
int sawinf = 0; int sawinf = 0;
int sawnan = 0; int sawnan = 0;
skipping to change at line 7068 skipping to change at line 7927
*/ */
#ifndef grok_bin #ifndef grok_bin
#if defined(NEED_grok_bin) #if defined(NEED_grok_bin)
static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
static static
#else #else
extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
#endif #endif
#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
#ifdef grok_bin #ifdef grok_bin
# undef grok_bin # undef grok_bin
#endif #endif
#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d) #define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d)
#define Perl_grok_bin DPPP_(my_grok_bin) #define Perl_grok_bin DPPP_(my_grok_bin)
#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
UV UV
DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t) DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t)
{ {
const char *s = start; const char *s = start;
STRLEN len = *len_p; STRLEN len = *len_p;
UV value = 0; UV value = 0;
NV value_nv = 0; NV value_nv = 0;
const UV max_div_2 = UV_MAX / 2; const UV max_div_2 = UV_MAX / 2;
bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
skipping to change at line 7170 skipping to change at line 8030
#endif #endif
#ifndef grok_hex #ifndef grok_hex
#if defined(NEED_grok_hex) #if defined(NEED_grok_hex)
static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
static static
#else #else
extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
#endif #endif
#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
#ifdef grok_hex #ifdef grok_hex
# undef grok_hex # undef grok_hex
#endif #endif
#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d) #define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d)
#define Perl_grok_hex DPPP_(my_grok_hex) #define Perl_grok_hex DPPP_(my_grok_hex)
#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
UV UV
DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t) DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t)
{ {
const char *s = start; const char *s = start;
STRLEN len = *len_p; STRLEN len = *len_p;
UV value = 0; UV value = 0;
NV value_nv = 0; NV value_nv = 0;
const UV max_div_16 = UV_MAX / 16; const UV max_div_16 = UV_MAX / 16;
bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
skipping to change at line 7272 skipping to change at line 8133
#endif #endif
#ifndef grok_oct #ifndef grok_oct
#if defined(NEED_grok_oct) #if defined(NEED_grok_oct)
static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
static static
#else #else
extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result); extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * fla gs, NV * result);
#endif #endif
#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
#ifdef grok_oct #ifdef grok_oct
# undef grok_oct # undef grok_oct
#endif #endif
#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d) #define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d)
#define Perl_grok_oct DPPP_(my_grok_oct) #define Perl_grok_oct DPPP_(my_grok_oct)
#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
UV UV
DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t) DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul t)
{ {
const char *s = start; const char *s = start;
STRLEN len = *len_p; STRLEN len = *len_p;
UV value = 0; UV value = 0;
NV value_nv = 0; NV value_nv = 0;
const UV max_div_8 = UV_MAX / 8; const UV max_div_8 = UV_MAX / 8;
bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
skipping to change at line 7365 skipping to change at line 8227
#endif #endif
#if !defined(my_snprintf) #if !defined(my_snprintf)
#if defined(NEED_my_snprintf) #if defined(NEED_my_snprintf)
static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * f ormat, ...); static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * f ormat, ...);
static static
#else #else
extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * f ormat, ...); extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * f ormat, ...);
#endif #endif
#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
#define my_snprintf DPPP_(my_my_snprintf) #define my_snprintf DPPP_(my_my_snprintf)
#define Perl_my_snprintf DPPP_(my_my_snprintf) #define Perl_my_snprintf DPPP_(my_my_snprintf)
#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
int int
DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...) DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
{ {
dTHX; dTHX;
int retval; int retval;
va_list ap; va_list ap;
va_start(ap, format); va_start(ap, format);
#ifdef HAS_VSNPRINTF #ifdef HAS_VSNPRINTF
retval = vsnprintf(buffer, len, format, ap); retval = vsnprintf(buffer, len, format, ap);
#else #else
skipping to change at line 7399 skipping to change at line 8261
#endif #endif
#if !defined(my_sprintf) #if !defined(my_sprintf)
#if defined(NEED_my_sprintf) #if defined(NEED_my_sprintf)
static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...); static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
static static
#else #else
extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...); extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
#endif #endif
#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
#define my_sprintf DPPP_(my_my_sprintf) #define my_sprintf DPPP_(my_my_sprintf)
#define Perl_my_sprintf DPPP_(my_my_sprintf) #define Perl_my_sprintf DPPP_(my_my_sprintf)
#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
int int
DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...) DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...)
{ {
va_list args; va_list args;
va_start(args, pat); va_start(args, pat);
vsprintf(buffer, pat, args); vsprintf(buffer, pat, args);
va_end(args); va_end(args);
return strlen(buffer); return strlen(buffer);
} }
skipping to change at line 7441 skipping to change at line 8303
#endif #endif
#if !defined(my_strlcat) #if !defined(my_strlcat)
#if defined(NEED_my_strlcat) #if defined(NEED_my_strlcat)
static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size); static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
static static
#else #else
extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size); extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
#endif #endif
#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
#define my_strlcat DPPP_(my_my_strlcat) #define my_strlcat DPPP_(my_my_strlcat)
#define Perl_my_strlcat DPPP_(my_my_strlcat) #define Perl_my_strlcat DPPP_(my_my_strlcat)
#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
Size_t Size_t
DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size) DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size)
{ {
Size_t used, length, copy; Size_t used, length, copy;
used = strlen(dst); used = strlen(dst);
length = strlen(src); length = strlen(src);
if (size > 0 && used < size - 1) { if (size > 0 && used < size - 1) {
copy = (length >= size - used) ? size - used - 1 : length; copy = (length >= size - used) ? size - used - 1 : length;
memcpy(dst + used, src, copy); memcpy(dst + used, src, copy);
skipping to change at line 7471 skipping to change at line 8333
#endif #endif
#if !defined(my_strlcpy) #if !defined(my_strlcpy)
#if defined(NEED_my_strlcpy) #if defined(NEED_my_strlcpy)
static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size); static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
static static
#else #else
extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size); extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
#endif #endif
#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
#define my_strlcpy DPPP_(my_my_strlcpy) #define my_strlcpy DPPP_(my_my_strlcpy)
#define Perl_my_strlcpy DPPP_(my_my_strlcpy) #define Perl_my_strlcpy DPPP_(my_my_strlcpy)
#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
Size_t Size_t
DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size) DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
{ {
Size_t length, copy; Size_t length, copy;
length = strlen(src); length = strlen(src);
if (size > 0) { if (size > 0) {
copy = (length >= size) ? size - 1 : length; copy = (length >= size) ? size - 1 : length;
memcpy(dst, src, copy); memcpy(dst, src, copy);
dst[copy] = '\0'; dst[copy] = '\0';
skipping to change at line 7561 skipping to change at line 8423
*/ */
#ifndef pv_escape #ifndef pv_escape
#if defined(NEED_pv_escape) #if defined(NEED_pv_escape)
static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags); static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
static static
#else #else
extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags); extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
#endif #endif
#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
#ifdef pv_escape #ifdef pv_escape
# undef pv_escape # undef pv_escape
#endif #endif
#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f) #define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
#define Perl_pv_escape DPPP_(my_pv_escape) #define Perl_pv_escape DPPP_(my_pv_escape)
#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
char * char *
DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str, DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
const STRLEN count, const STRLEN max, const STRLEN count, const STRLEN max,
STRLEN * const escaped, const U32 flags) STRLEN * const escaped, const U32 flags)
{ {
const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\'; const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc; const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
char octbuf[32] = "%123456789ABCDF"; char octbuf[32] = "%123456789ABCDF";
STRLEN wrote = 0; STRLEN wrote = 0;
STRLEN chsize = 0; STRLEN chsize = 0;
STRLEN readsize = 1; STRLEN readsize = 1;
#if defined(is_utf8_string) && defined(utf8_to_uvchr) #if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0; bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;
#endif #endif
const char *pv = str; const char *pv = str;
const char * const end = pv + count; const char * const end = pv + count;
octbuf[0] = esc; octbuf[0] = esc;
if (!(flags & PERL_PV_ESCAPE_NOCLEAR)) if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
sv_setpvs(dsv, ""); sv_setpvs(dsv, "");
#if defined(is_utf8_string) && defined(utf8_to_uvchr) #if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count)) if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count))
isuni = 1; isuni = 1;
#endif #endif
for (; pv < end && (!max || wrote < max) ; pv += readsize) { for (; pv < end && (!max || wrote < max) ; pv += readsize) {
const UV u = const UV u =
#if defined(is_utf8_string) && defined(utf8_to_uvchr) #if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
isuni ? utf8_to_uvchr((U8*)pv, &readsize) : isuni ? utf8_to_uvchr_buf((U8*)pv, end, &readsize) :
#endif #endif
(U8)*pv; (U8)*pv;
const U8 c = (U8)u & 0xFF; const U8 c = (U8)u & 0xFF;
if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) { if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
if (flags & PERL_PV_ESCAPE_FIRSTCHAR) if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
chsize = my_snprintf(octbuf, sizeof octbuf, chsize = my_snprintf(octbuf, sizeof octbuf,
"%" UVxf, u); "%" UVxf, u);
else else
chsize = my_snprintf(octbuf, sizeof octbuf, chsize = my_snprintf(octbuf, sizeof octbuf,
skipping to change at line 7670 skipping to change at line 8532
#endif #endif
#ifndef pv_pretty #ifndef pv_pretty
#if defined(NEED_pv_pretty) #if defined(NEED_pv_pretty)
static char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * con st end_color, const U32 flags); static char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * con st end_color, const U32 flags);
static static
#else #else
extern char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * con st end_color, const U32 flags); extern char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * con st end_color, const U32 flags);
#endif #endif
#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
#ifdef pv_pretty #ifdef pv_pretty
# undef pv_pretty # undef pv_pretty
#endif #endif
#define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g) #define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g)
#define Perl_pv_pretty DPPP_(my_pv_pretty) #define Perl_pv_pretty DPPP_(my_pv_pretty)
#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
char * char *
DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count, DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
const STRLEN max, char const * const start_color, char const * const end_color , const STRLEN max, char const * const start_color, char const * const end_color ,
const U32 flags) const U32 flags)
{ {
const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%'; const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
STRLEN escaped; STRLEN escaped;
if (!(flags & PERL_PV_PRETTY_NOCLEAR)) if (!(flags & PERL_PV_PRETTY_NOCLEAR))
sv_setpvs(dsv, ""); sv_setpvs(dsv, "");
skipping to change at line 7724 skipping to change at line 8586
#endif #endif
#ifndef pv_display #ifndef pv_display
#if defined(NEED_pv_display) #if defined(NEED_pv_display)
static char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim); static char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
static static
#else #else
extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim); extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
#endif #endif
#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
#ifdef pv_display #ifdef pv_display
# undef pv_display # undef pv_display
#endif #endif
#define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e) #define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e)
#define Perl_pv_display DPPP_(my_pv_display) #define Perl_pv_display DPPP_(my_pv_display)
#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
char * char *
DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRL EN pvlim) DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRL EN pvlim)
{ {
pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP); pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP);
if (len > cur && pv[cur] == '\0') if (len > cur && pv[cur] == '\0')
sv_catpvs(dsv, "\\0"); sv_catpvs(dsv, "\\0");
return SvPVX(dsv); return SvPVX(dsv);
} }
#endif #endif
#endif #endif
#endif /* _P_P_PORTABILITY_H_ */ #endif /* _P_P_PORTABILITY_H_ */
/* End of File ppport.h */ /* End of File dbipport.h */
 End of changes. 409 change blocks. 
1046 lines changed or deleted 1964 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)