From: Michael Tremer <michael.tremer@ipfire.org>
To: development@lists.ipfire.org
Subject: Re: [PATCH] perl: Add perl bindings for libloc.
Date: Thu, 26 Sep 2019 16:49:35 +0100 [thread overview]
Message-ID: <C5EBB319-F4A8-4C96-94E9-D62A93466977@ipfire.org> (raw)
In-Reply-To: <1a8abf73675e867d75af5c836cefa8e4cbb86d4e.camel@ipfire.org>
[-- Attachment #1: Type: text/plain, Size: 272637 bytes --]
Hi,
> On 25 Sep 2019, at 18:54, Stefan Schantl <stefan.schantl(a)ipfire.org> wrote:
>
> Hello Michael,
>
> thanks for your feedback. Currently it is a very simple and feature-
> limited interface for libloc, which still requires a lot of work.
>> Hi,
>>
>> Thank for working on this. This is a great break-through to make use
>> of libloc on IPFire 2.
>>
>> However, I have a couple of questions:
>>
>> * How are we going to integrate this into the standard build process?
>> I would like it that the module is being built in the single Makefile
>> instead of bringing its own. Can you have a look into that?
>
> I think this is not possible, because the Makefile will be generated by
> calling the "perl Makefile.PL" script.
>
> All the magic comes from Perl MakeMaker and several other modules,
> which take care about everything.
Okay, so will have to add something in the main makefile so that those commands are being invoked automatically. I do not want to package this separately.
>
> I appreciate the option to skip the perl bindings if they are not
> needed. This now easily can be done by not calling the script and the
> classical make commands.
I guess we can merge this for now, but we will need to automate it all. Otherwise people will never execute the test suite or even use the module at all.
>
> (Currently I'm missing something for the python bindings…)
I thought about this, and in general I would want to have it, too.
But the CLI tools are using the python modules, so it is very useless to build libloc without python.
>
>>
>> * I would also like to not carry the ppport header around because
>> that file is large and how do we keep borrowed code up to date?
>>
>
> Theoretically, the file and the include statement can be removed, but
> if found the following lines:(
> https://perldoc.perl.org/Devel/PPPort.html)
>
> Why use ppport.h?
>
> You should use ppport.h in modern code so that your code will work with
> the widest range of Perl interpreters possible, without significant
> additional work.
>
> You should attempt older code to fully use ppport.h, because the
> reduced pollution of newer Perl versions is an important thing. It's so
> important that the old polluting ways of original Perl modules will not
> be supported very far into the future, and your module will almost
> certainly break! By adapting to it now, you'll gain compatibility and a
> sense of having done the electronic ecology some good.
>
> So, I'm not sure, if this should be removed.
I read through that and ppport.h is also a perl script (why not, I cannot even).
And it does this:
root(a)michael:/build/libloc/src/perl/Location# perl ppport.h
Scanning ./Location.xs ...
=== Analyzing ./Location.xs ===
No need to include 'ppport.h'
Analysis completed
Suggested changes:
--- ./Location.xs 2019-09-26 15:44:47.103408685 +0000
+++ ./Location.xs.patched 2019-09-26 15:45:27.027291303 +0000
@@ -6,7 +6,6 @@
#include <stdio.h>
#include <string.h>
-#include "ppport.h"
#include <loc/libloc.h>
#include <loc/database.h>
So even the script itself suggest to be removed.
>
>> * Can we make use of the test suite?
>
> Yes, of course - implementing and using a testsuite is a mandatory.
Please do that then :)
>>
>> * I also have no need for the Changes file and README. Are those
>> mandatory? The content will be in Git and in the main README file.
>>
>
> They safely can be removed, I'll send a patch for dropping this files.
Okay.
>
>> I might be up for merging this patch anyways and then tidy it up by
>> other commits. However, I won’t merge this before we have the tidy-
>> upping ready as well.
>>
>> Best,
>> -Michael
>
> Best regards,
> -Stefan
>>
>>> On 25 Sep 2019, at 14:59, Stefan Schantl <stefan.schantl(a)ipfire.org
>>>> wrote:
>>>
>>> Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org>
>>> ---
>>> src/perl/Location/Changes | 5 +
>>> src/perl/Location/Location.xs | 95 +
>>> src/perl/Location/MANIFEST | 9 +
>>> src/perl/Location/Makefile.PL | 17 +
>>> src/perl/Location/README | 38 +
>>> src/perl/Location/lib/Location.pm | 69 +
>>> src/perl/Location/ppport.h | 8214
>>> +++++++++++++++++++++++++++++
>>> src/perl/Location/t/Location.t | 17 +
>>> src/perl/Location/typemap | 2 +
>>> 9 files changed, 8466 insertions(+)
>>> create mode 100644 src/perl/Location/Changes
>>> create mode 100644 src/perl/Location/Location.xs
>>> create mode 100644 src/perl/Location/MANIFEST
>>> create mode 100644 src/perl/Location/Makefile.PL
>>> create mode 100644 src/perl/Location/README
>>> create mode 100644 src/perl/Location/lib/Location.pm
>>> create mode 100644 src/perl/Location/ppport.h
>>> create mode 100644 src/perl/Location/t/Location.t
>>> create mode 100644 src/perl/Location/typemap
>>>
>>> diff --git a/src/perl/Location/Changes b/src/perl/Location/Changes
>>> new file mode 100644
>>> index 0000000..7afbdba
>>> --- /dev/null
>>> +++ b/src/perl/Location/Changes
>>> @@ -0,0 +1,5 @@
>>> +Revision history for Perl extension Location.
>>> +
>>> +0.01 Mon Sep 23 19:59:15 2019
>>> + - original version; created by h2xs 1.23 with options
>>> + -O -A -n Location loc/libloc.h loc/database.h
>>> diff --git a/src/perl/Location/Location.xs
>>> b/src/perl/Location/Location.xs
>>> new file mode 100644
>>> index 0000000..b3bd89c
>>> --- /dev/null
>>> +++ b/src/perl/Location/Location.xs
>>> @@ -0,0 +1,95 @@
>>> +#define PERL_NO_GET_CONTEXT
>>> +#include "EXTERN.h"
>>> +#include "perl.h"
>>> +#include "XSUB.h"
>>> +
>>> +#include <stdio.h>
>>> +#include <string.h>
>>> +
>>> +#include "ppport.h"
>>> +
>>> +#include <loc/libloc.h>
>>> +#include <loc/database.h>
>>> +#include <loc/network.h>
>>> +
>>> +
>>> +MODULE = Location PACKAGE = Location
>>> +
>>> +struct loc_database *
>>> +init(file)
>>> + char * file;
>>> +
>>> + CODE:
>>> + int err;
>>> +
>>> + struct loc_ctx *ctx;
>>> + err = loc_new(&ctx);
>>> + if (err < 0)
>>> + croak("Error");
>>> +
>>> + FILE* f = fopen(file, "r");
>>> + if (!f) {
>>> + croak("Could not open file for reading: %s\n",
>>> file);
>>> + }
>>> +
>>> + struct loc_database *db;
>>> + err = loc_database_new(ctx, &db, f);
>>> + if (err) {
>>> + croak("Could not open database: %s\n", file);
>>> + }
>>> +
>>> + RETVAL = db;
>>> + OUTPUT:
>>> + RETVAL
>>> +
>>> +char*
>>> +get_country_code(db, address)
>>> + struct loc_database *db;
>>> + char * address;
>>> +
>>> + CODE:
>>> + int err;
>>> + const char * country_code;
>>> +
>>> + struct loc_network *network;
>>> + err = loc_database_lookup_from_string(db, address,
>>> &network);
>>> + if (err) {
>>> + croak("Could not look up for %s\n", address);
>>> + }
>>> +
>>> + country_code = loc_network_get_country_code(network);
>>> +
>>> + loc_network_unref(network);
>>> +
>>> + if (!country_code) {
>>> + croak("Could not get the country code\n");
>>> + }
>>> +
>>> + RETVAL = strdup(country_code);
>>> + OUTPUT:
>>> + RETVAL
>>> +
>>> +
>>> +
>>> +char*
>>> +database_get_vendor(db)
>>> + struct loc_database *db;
>>> +
>>> + CODE:
>>> + const char * vendor;
>>> +
>>> + vendor = loc_database_get_vendor(db);
>>> +
>>> + if (!vendor) {
>>> + croak("Could not retrieve vendor\n");
>>> + }
>>> +
>>> + RETVAL = strdup(vendor);
>>> + OUTPUT:
>>> + RETVAL
>>> +
>>> +void
>>> +DESTROY(db)
>>> + struct loc_database *db ;
>>> + CODE:
>>> + loc_database_unref(db);
>>> diff --git a/src/perl/Location/MANIFEST
>>> b/src/perl/Location/MANIFEST
>>> new file mode 100644
>>> index 0000000..55fe58b
>>> --- /dev/null
>>> +++ b/src/perl/Location/MANIFEST
>>> @@ -0,0 +1,9 @@
>>> +Changes
>>> +Location.xs
>>> +Makefile.PL
>>> +MANIFEST
>>> +ppport.h
>>> +README
>>> +typemap
>>> +t/Location.t
>>> +lib/Location.pm
>>> diff --git a/src/perl/Location/Makefile.PL
>>> b/src/perl/Location/Makefile.PL
>>> new file mode 100644
>>> index 0000000..ba53efc
>>> --- /dev/null
>>> +++ b/src/perl/Location/Makefile.PL
>>> @@ -0,0 +1,17 @@
>>> +use 5.028001;
>>> +use ExtUtils::MakeMaker;
>>> +# See lib/ExtUtils/MakeMaker.pm for details of how to influence
>>> +# the contents of the Makefile that is written.
>>> +WriteMakefile(
>>> + NAME => 'Location',
>>> + VERSION_FROM => 'lib/Location.pm',
>>> + PREREQ_PM => {},
>>> + ABSTRACT_FROM => 'lib/Location.pm',
>>> + AUTHOR => 'Stefan Schantl <
>>> stefan.schantl(a)ipfire.org>',
>>> + LICENSE => 'lgpl',
>>> + LIBS => ['-lloc'],
>>> + DEFINE => '', # e.g., '-DHAVE_SOMETHING'
>>> + INC => '-I. -I../../',
>>> + # Un-comment this if you add C files to link with later:
>>> + # OBJECT => '$(O_FILES)', # link all the C files
>>> too
>>> +);
>>> diff --git a/src/perl/Location/README b/src/perl/Location/README
>>> new file mode 100644
>>> index 0000000..21d8017
>>> --- /dev/null
>>> +++ b/src/perl/Location/README
>>> @@ -0,0 +1,38 @@
>>> +Location version 0.01
>>> +===================
>>> +
>>> +The README is used to introduce the module and provide
>>> instructions on
>>> +how to install the module, any machine dependencies it may have
>>> (for
>>> +example C compilers and installed libraries) and any other
>>> information
>>> +that should be provided before the module is installed.
>>> +
>>> +A README file is required for CPAN modules since CPAN extracts the
>>> +README file from a module distribution so that people browsing the
>>> +archive can use it get an idea of the modules uses. It is usually
>>> a
>>> +good idea to provide version information here so that people can
>>> +decide whether fixes for the module are worth downloading.
>>> +
>>> +INSTALLATION
>>> +
>>> +To install this module type the following:
>>> +
>>> + perl Makefile.PL
>>> + make
>>> + make test
>>> + make install
>>> +
>>> +DEPENDENCIES
>>> +
>>> +This module requires these other modules and libraries:
>>> +
>>> + libloc
>>> +
>>> +COPYRIGHT AND LICENCE
>>> +
>>> +Put the correct copyright and licence information here.
>>> +
>>> +Copyright (C) 2019 by Stefan Schantl
>>> +
>>> +This library is free software; you can redistribute it and/or
>>> modify
>>> +it under the same terms as Perl itself, either Perl version 5.28.1
>>> or,
>>> +at your option, any later version of Perl 5 you may have
>>> available.
>>> diff --git a/src/perl/Location/lib/Location.pm
>>> b/src/perl/Location/lib/Location.pm
>>> new file mode 100644
>>> index 0000000..2782d53
>>> --- /dev/null
>>> +++ b/src/perl/Location/lib/Location.pm
>>> @@ -0,0 +1,69 @@
>>> +package Location;
>>> +
>>> +use 5.028001;
>>> +use strict;
>>> +use warnings;
>>> +
>>> +require Exporter;
>>> +
>>> +our @ISA = qw(Exporter);
>>> +
>>> +# Items to export into callers namespace by default. Note: do not
>>> export
>>> +# names by default without a very good reason. Use EXPORT_OK
>>> instead.
>>> +# Do not simply export all your public
>>> functions/methods/constants.
>>> +
>>> +# This allows declaration use Location ':all';
>>> +# If you do not need this, moving things directly into @EXPORT or
>>> @EXPORT_OK
>>> +# will save memory.
>>> +our %EXPORT_TAGS = ( 'all' => [ qw() ] );
>>> +
>>> +our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
>>> +
>>> +our @EXPORT = qw();
>>> +
>>> +our $VERSION = '0.01';
>>> +
>>> +require XSLoader;
>>> +XSLoader::load('Location', $VERSION);
>>> +
>>> +# Preloaded methods go here.
>>> +
>>> +1;
>>> +__END__
>>> +# Below is stub documentation for your module. You'd better edit
>>> it!
>>> +
>>> +=head1 NAME
>>> +
>>> +Location - Provides a simple interface to libloc.
>>> +
>>> +=head1 SYNOPSIS
>>> +
>>> + use Location;
>>> +
>>> +=head1 DESCRIPTION
>>> +
>>> +Location is a simple interface to libloc - A library to determine
>>> someones
>>> +location on the Internet. (
>>> https://git.ipfire.org/?p=location/libloc.git;a=summary)
>>> +
>>> +=head2 EXPORT
>>> +
>>> +None by default.
>>> +
>>> +=head1 SEE ALSO
>>> +
>>> +https://git.ipfire.org/?p=location/libloc.git;a=summary
>>> +
>>> +=head1 AUTHOR
>>> +
>>> +Stefan Schantl, stefan.schantl(a)ipfire.org
>>> +
>>> +=head1 COPYRIGHT AND LICENSE
>>> +
>>> +Copyright (C) 2019 by Stefan Schantl
>>> +
>>> +This library is free software; you can redistribute it and/or
>>> modify
>>> +it under the same terms as Perl itself, either Perl version 5.28.1
>>> or,
>>> +at your option, any later version of Perl 5 you may have
>>> available.
>>> +
>>> +
>>> +=cut
>>> diff --git a/src/perl/Location/ppport.h
>>> b/src/perl/Location/ppport.h
>>> new file mode 100644
>>> index 0000000..208fb41
>>> --- /dev/null
>>> +++ b/src/perl/Location/ppport.h
>>> @@ -0,0 +1,8214 @@
>>> +#if 0
>>> +<<'SKIP';
>>> +#endif
>>> +/*
>>> +----------------------------------------------------------------
>>> ------
>>> +
>>> + ppport.h -- Perl/Pollution/Portability Version 3.40
>>> +
>>> + Automatically created by Devel::PPPort running under perl
>>> 5.028001.
>>> +
>>> + Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
>>> + includes in parts/inc/ instead.
>>> +
>>> + Use 'perldoc ppport.h' to view the documentation below.
>>> +
>>> +----------------------------------------------------------------
>>> ------
>>> +
>>> +SKIP
>>> +
>>> +=pod
>>> +
>>> +=head1 NAME
>>> +
>>> +ppport.h - Perl/Pollution/Portability version 3.40
>>> +
>>> +=head1 SYNOPSIS
>>> +
>>> + perl ppport.h [options] [source files]
>>> +
>>> + Searches current directory for files if no [source files] are
>>> given
>>> +
>>> + --help show short help
>>> +
>>> + --version show version
>>> +
>>> + --patch=file write one patch file with changes
>>> + --copy=suffix write changed copies with suffix
>>> + --diff=program use diff program and options
>>> +
>>> + --compat-version=version provide compatibility with Perl
>>> version
>>> + --cplusplus accept C++ comments
>>> +
>>> + --quiet don't output anything except fatal
>>> errors
>>> + --nodiag don't show diagnostics
>>> + --nohints don't show hints
>>> + --nochanges don't suggest changes
>>> + --nofilter don't filter input files
>>> +
>>> + --strip strip all script and doc
>>> functionality
>>> + from ppport.h
>>> +
>>> + --list-provided list provided API
>>> + --list-unsupported list unsupported API
>>> + --api-info=name show Perl API portability
>>> information
>>> +
>>> +=head1 COMPATIBILITY
>>> +
>>> +This version of F<ppport.h> is designed to support operation with
>>> Perl
>>> +installations back to 5.003, and has been tested up to 5.20.
>>> +
>>> +=head1 OPTIONS
>>> +
>>> +=head2 --help
>>> +
>>> +Display a brief usage summary.
>>> +
>>> +=head2 --version
>>> +
>>> +Display the version of F<ppport.h>.
>>> +
>>> +=head2 --patch=I<file>
>>> +
>>> +If this option is given, a single patch file will be created if
>>> +any changes are suggested. This requires a working diff program
>>> +to be installed on your system.
>>> +
>>> +=head2 --copy=I<suffix>
>>> +
>>> +If this option is given, a copy of each file will be saved with
>>> +the given suffix that contains the suggested changes. This does
>>> +not require any external programs. Note that this does not
>>> +automagically add a dot between the original filename and the
>>> +suffix. If you want the dot, you have to include it in the option
>>> +argument.
>>> +
>>> +If neither C<--patch> or C<--copy> are given, the default is to
>>> +simply print the diffs for each file. This requires either
>>> +C<Text::Diff> or a C<diff> program to be installed.
>>> +
>>> +=head2 --diff=I<program>
>>> +
>>> +Manually set the diff program and options to use. The default
>>> +is to use C<Text::Diff>, when installed, and output unified
>>> +context diffs.
>>> +
>>> +=head2 --compat-version=I<version>
>>> +
>>> +Tell F<ppport.h> to check for compatibility with the given
>>> +Perl version. The default is to check for compatibility with Perl
>>> +version 5.003. You can use this option to reduce the output
>>> +of F<ppport.h> if you intend to be backward compatible only
>>> +down to a certain Perl version.
>>> +
>>> +=head2 --cplusplus
>>> +
>>> +Usually, F<ppport.h> will detect C++ style comments and
>>> +replace them with C style comments for portability reasons.
>>> +Using this option instructs F<ppport.h> to leave C++
>>> +comments untouched.
>>> +
>>> +=head2 --quiet
>>> +
>>> +Be quiet. Don't print anything except fatal errors.
>>> +
>>> +=head2 --nodiag
>>> +
>>> +Don't output any diagnostic messages. Only portability
>>> +alerts will be printed.
>>> +
>>> +=head2 --nohints
>>> +
>>> +Don't output any hints. Hints often contain useful portability
>>> +notes. Warnings will still be displayed.
>>> +
>>> +=head2 --nochanges
>>> +
>>> +Don't suggest any changes. Only give diagnostic output and hints
>>> +unless these are also deactivated.
>>> +
>>> +=head2 --nofilter
>>> +
>>> +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.
>>> +
>>> +=head2 --strip
>>> +
>>> +Strip all script and documentation functionality from F<ppport.h>.
>>> +This reduces the size of F<ppport.h> dramatically and may be
>>> useful
>>> +if you want to include F<ppport.h> in smaller modules without
>>> +increasing their distribution size too much.
>>> +
>>> +The stripped F<ppport.h> will have a C<--unstrip> option that
>>> allows
>>> +you to undo the stripping, but only if an appropriate
>>> C<Devel::PPPort>
>>> +module is installed.
>>> +
>>> +=head2 --list-provided
>>> +
>>> +Lists the API elements for which compatibility is provided by
>>> +F<ppport.h>. Also lists if it must be explicitly requested,
>>> +if it has dependencies, and if there are hints or warnings for it.
>>> +
>>> +=head2 --list-unsupported
>>> +
>>> +Lists the API elements that are known not to be supported by
>>> +F<ppport.h> and below which version of Perl they probably
>>> +won't be available or work.
>>> +
>>> +=head2 --api-info=I<name>
>>> +
>>> +Show portability information for API elements matching I<name>.
>>> +If I<name> is surrounded by slashes, it is interpreted as a
>>> regular
>>> +expression.
>>> +
>>> +=head1 DESCRIPTION
>>> +
>>> +In order for a Perl extension (XS) module to be as portable as
>>> possible
>>> +across differing versions of Perl itself, certain steps need to be
>>> taken.
>>> +
>>> +=over 4
>>> +
>>> +=item *
>>> +
>>> +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
>>> +earlier Perl releases. Use
>>> +
>>> + perl ppport.h --list-provided
>>> +
>>> +to see which API elements are provided by ppport.h.
>>> +
>>> +=item *
>>> +
>>> +You should avoid using deprecated parts of the API. For example,
>>> using
>>> +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
>>> +also deprecated. You can safely use the supported API, as
>>> F<ppport.h>
>>> +will provide wrappers for older Perl versions.
>>> +
>>> +=item *
>>> +
>>> +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
>>> +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>.
>>> +
>>> +These functions or variables will be marked C<explicit> in the
>>> list shown
>>> +by C<--list-provided>.
>>> +
>>> +Depending on whether you module has a single or multiple files
>>> that
>>> +use such functions or variables, you want either C<static> or
>>> global
>>> +variants.
>>> +
>>> +For a C<static> function or variable (used only in a single source
>>> +file), use:
>>> +
>>> + #define NEED_function
>>> + #define NEED_variable
>>> +
>>> +For a global function or variable (used in multiple source files),
>>> +use:
>>> +
>>> + #define NEED_function_GLOBAL
>>> + #define NEED_variable_GLOBAL
>>> +
>>> +Note that you mustn't have more than one global request for the
>>> +same function or variable in your project.
>>> +
>>> + Function / Variable Static Request Global
>>> Request
>>> + ------------------------------------------------------------
>>> -----------------------------
>>> + PL_parser NEED_PL_parser NEED_PL
>>> _parser_GLOBAL
>>> + PL_signals NEED_PL_signals NEED_PL
>>> _signals_GLOBAL
>>> + SvRX() NEED_SvRX NEED_Sv
>>> RX_GLOBAL
>>> + caller_cx() NEED_caller_cx NEED_ca
>>> ller_cx_GLOBAL
>>> + croak_xs_usage() NEED_croak_xs_usage NEED_cr
>>> oak_xs_usage_GLOBAL
>>> + die_sv() NEED_die_sv NEED_di
>>> e_sv_GLOBAL
>>> + eval_pv() NEED_eval_pv NEED_ev
>>> al_pv_GLOBAL
>>> + grok_bin() NEED_grok_bin NEED_gr
>>> ok_bin_GLOBAL
>>> + grok_hex() NEED_grok_hex NEED_gr
>>> ok_hex_GLOBAL
>>> + grok_number() NEED_grok_number NEED_gr
>>> ok_number_GLOBAL
>>> + grok_numeric_radix() NEED_grok_numeric_radix NEED_gr
>>> ok_numeric_radix_GLOBAL
>>> + grok_oct() NEED_grok_oct NEED_gr
>>> ok_oct_GLOBAL
>>> + gv_fetchpvn_flags() NEED_gv_fetchpvn_flags NEED_gv
>>> _fetchpvn_flags_GLOBAL
>>> + load_module() NEED_load_module NEED_lo
>>> ad_module_GLOBAL
>>> + mess() NEED_mess NEED_me
>>> ss_GLOBAL
>>> + mess_nocontext() NEED_mess_nocontext NEED_me
>>> ss_nocontext_GLOBAL
>>> + mess_sv() NEED_mess_sv NEED_me
>>> ss_sv_GLOBAL
>>> + mg_findext() NEED_mg_findext NEED_mg
>>> _findext_GLOBAL
>>> + my_snprintf() NEED_my_snprintf NEED_my
>>> _snprintf_GLOBAL
>>> + my_sprintf() NEED_my_sprintf NEED_my
>>> _sprintf_GLOBAL
>>> + my_strlcat() NEED_my_strlcat NEED_my
>>> _strlcat_GLOBAL
>>> + my_strlcpy() NEED_my_strlcpy NEED_my
>>> _strlcpy_GLOBAL
>>> + newCONSTSUB() NEED_newCONSTSUB NEED_ne
>>> wCONSTSUB_GLOBAL
>>> + newRV_noinc() NEED_newRV_noinc NEED_ne
>>> wRV_noinc_GLOBAL
>>> + newSV_type() NEED_newSV_type NEED_ne
>>> wSV_type_GLOBAL
>>> + newSVpvn_flags() NEED_newSVpvn_flags NEED_ne
>>> wSVpvn_flags_GLOBAL
>>> + newSVpvn_share() NEED_newSVpvn_share NEED_ne
>>> wSVpvn_share_GLOBAL
>>> + pv_display() NEED_pv_display NEED_pv
>>> _display_GLOBAL
>>> + pv_escape() NEED_pv_escape NEED_pv
>>> _escape_GLOBAL
>>> + pv_pretty() NEED_pv_pretty NEED_pv
>>> _pretty_GLOBAL
>>> + sv_2pv_flags() NEED_sv_2pv_flags NEED_sv
>>> _2pv_flags_GLOBAL
>>> + sv_2pvbyte() NEED_sv_2pvbyte NEED_sv
>>> _2pvbyte_GLOBAL
>>> + sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv
>>> _catpvf_mg_GLOBAL
>>> + sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv
>>> _catpvf_mg_nocontext_GLOBAL
>>> + sv_pvn_force_flags() NEED_sv_pvn_force_flags NEED_sv
>>> _pvn_force_flags_GLOBAL
>>> + sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv
>>> _setpvf_mg_GLOBAL
>>> + sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv
>>> _setpvf_mg_nocontext_GLOBAL
>>> + sv_unmagicext() NEED_sv_unmagicext NEED_sv
>>> _unmagicext_GLOBAL
>>> + vload_module() NEED_vload_module NEED_vl
>>> oad_module_GLOBAL
>>> + vmess() NEED_vmess NEED_vm
>>> ess_GLOBAL
>>> + vnewSVpvf() NEED_vnewSVpvf NEED_vn
>>> ewSVpvf_GLOBAL
>>> + warner() NEED_warner NEED_wa
>>> rner_GLOBAL
>>> +
>>> +To avoid namespace conflicts, you can change the namespace of the
>>> +explicitly exported functions / variables using the
>>> C<DPPP_NAMESPACE>
>>> +macro. Just C<#define> the macro before including C<ppport.h>:
>>> +
>>> + #define DPPP_NAMESPACE MyOwnNamespace_
>>> + #include "ppport.h"
>>> +
>>> +The default namespace is C<DPPP_>.
>>> +
>>> +=back
>>> +
>>> +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
>>> +details.
>>> +
>>> +=head1 EXAMPLES
>>> +
>>> +To verify whether F<ppport.h> is needed for your module, whether
>>> you
>>> +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
>>> +source code. Simply say:
>>> +
>>> + perl ppport.h
>>> +
>>> +The result will usually be a list of patches suggesting changes
>>> +that should at least be acceptable, if not necessarily the most
>>> +efficient solution, or a fix for all possible problems.
>>> +
>>> +If you know that your XS module uses features only available in
>>> +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
>>> +use something like this:
>>> +
>>> + perl ppport.h --compat-version=5.6.0 --cplusplus --
>>> patch=test.diff
>>> +
>>> +If you only want your code to be scanned without any suggestions
>>> +for changes, use:
>>> +
>>> + perl ppport.h --nochanges
>>> +
>>> +You can specify a different C<diff> program or options, using
>>> +the C<--diff> option:
>>> +
>>> + perl ppport.h --diff='diff -C 10'
>>> +
>>> +This would output context diffs with 10 lines of context.
>>> +
>>> +If you want to create patched copies of your files instead, use:
>>> +
>>> + perl ppport.h --copy=.new
>>> +
>>> +To display portability information for the C<newSVpvn> function,
>>> +use:
>>> +
>>> + perl ppport.h --api-info=newSVpvn
>>> +
>>> +Since the argument to C<--api-info> can be a regular expression,
>>> +you can use
>>> +
>>> + perl ppport.h --api-info=/_nomg$/
>>> +
>>> +to display portability information for all C<_nomg> functions or
>>> +
>>> + perl ppport.h --api-info=/./
>>> +
>>> +to display information for all known API elements.
>>> +
>>> +=head1 BUGS
>>> +
>>> +If this version of F<ppport.h> is causing failure during
>>> +the compilation of this module, please check if newer versions
>>> +of either this module or C<Devel::PPPort> are available on CPAN
>>> +before sending a bug report.
>>> +
>>> +If F<ppport.h> was generated using the latest version of
>>> +C<Devel::PPPort> and is causing failure of this module, please
>>> +send a bug report to L<perlbug(a)perl.org|mailto:perlbug(a)perl.org>.
>>> +
>>> +Please include the following information:
>>> +
>>> +=over 4
>>> +
>>> +=item 1.
>>> +
>>> +The complete output from running "perl -V"
>>> +
>>> +=item 2.
>>> +
>>> +This file.
>>> +
>>> +=item 3.
>>> +
>>> +The name and version of the module you were trying to build.
>>> +
>>> +=item 4.
>>> +
>>> +A full log of the build that failed.
>>> +
>>> +=item 5.
>>> +
>>> +Any other information that you think could be relevant.
>>> +
>>> +=back
>>> +
>>> +For the latest version of this code, please get the
>>> C<Devel::PPPort>
>>> +module from CPAN.
>>> +
>>> +=head1 COPYRIGHT
>>> +
>>> +Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
>>> +
>>> +Version 2.x, Copyright (C) 2001, Paul Marquess.
>>> +
>>> +Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
>>> +
>>> +This program is free software; you can redistribute it and/or
>>> +modify it under the same terms as Perl itself.
>>> +
>>> +=head1 SEE ALSO
>>> +
>>> +See L<Devel::PPPort>.
>>> +
>>> +=cut
>>> +
>>> +use strict;
>>> +
>>> +# Disable broken TRIE-optimization
>>> +BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <=
>>> 5.009005 }
>>> +
>>> +my $VERSION = 3.40;
>>> +
>>> +my %opt = (
>>> + quiet => 0,
>>> + diag => 1,
>>> + hints => 1,
>>> + changes => 1,
>>> + cplusplus => 0,
>>> + filter => 1,
>>> + strip => 0,
>>> + version => 0,
>>> +);
>>> +
>>> +my($ppport) = $0 =~ /([\w.]+)$/;
>>> +my $LF = '(?:\r\n|[\r\n])'; # line feed
>>> +my $HS = "[ \t]"; # horizontal whitespace
>>> +
>>> +# Never use C comments in this file!
>>> +my $ccs = '/'.'*';
>>> +my $cce = '*'.'/';
>>> +my $rccs = quotemeta $ccs;
>>> +my $rcce = quotemeta $cce;
>>> +
>>> +eval {
>>> + require Getopt::Long;
>>> + Getopt::Long::GetOptions(\%opt, qw(
>>> + help quiet diag! filter! hints! changes! cplusplus strip
>>> version
>>> + patch=s copy=s diff=s compat-version=s
>>> + list-provided list-unsupported api-info=s
>>> + )) or usage();
>>> +};
>>> +
>>> +if ($@ and grep /^-/, @ARGV) {
>>> + usage() if "@ARGV" =~ /^--?h(?:elp)?$/;
>>> + die "Getopt::Long not found. Please don't use any options.\n";
>>> +}
>>> +
>>> +if ($opt{version}) {
>>> + print "This is $0 $VERSION.\n";
>>> + exit 0;
>>> +}
>>> +
>>> +usage() if $opt{help};
>>> +strip() if $opt{strip};
>>> +
>>> +if (exists $opt{'compat-version'}) {
>>> + my($r,$v,$s) = eval { parse_version($opt{'compat-version'}) };
>>> + if ($@) {
>>> + die "Invalid version number format: '$opt{'compat-
>>> version'}'\n";
>>> + }
>>> + die "Only Perl 5 is supported\n" if $r != 5;
>>> + die "Invalid version number: $opt{'compat-version'}\n" if $v >=
>>> 1000 || $s >= 1000;
>>> + $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;
>>> +}
>>> +else {
>>> + $opt{'compat-version'} = 5;
>>> +}
>>> +
>>> +my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
>>> + ? ( $1 => {
>>> + ($2 ? ( base => $2 ) :
>>> ()),
>>> + ($3 ? ( todo => $3 ) :
>>> ()),
>>> + (index($4, 'v') >= 0 ? ( varargs => 1 ) :
>>> ()),
>>> + (index($4, 'p') >= 0 ? ( provided => 1 ) :
>>> ()),
>>> + (index($4, 'n') >= 0 ? ( nothxarg => 1 ) :
>>> ()),
>>> + } )
>>> + : die "invalid spec: $_" } qw(
>>> +ASCII_TO_NEED||5.007001|n
>>> +AvFILLp|5.004050||p
>>> +AvFILL|||
>>> +BhkDISABLE||5.024000|
>>> +BhkENABLE||5.024000|
>>> +BhkENTRY_set||5.024000|
>>> +BhkENTRY|||
>>> +BhkFLAGS|||
>>> +CALL_BLOCK_HOOKS|||
>>> +CLASS|||n
>>> +CPERLscope|5.005000||p
>>> +CX_CURPAD_SAVE|||
>>> +CX_CURPAD_SV|||
>>> +C_ARRAY_END|5.013002||p
>>> +C_ARRAY_LENGTH|5.008001||p
>>> +CopFILEAV|5.006000||p
>>> +CopFILEGV_set|5.006000||p
>>> +CopFILEGV|5.006000||p
>>> +CopFILESV|5.006000||p
>>> +CopFILE_set|5.006000||p
>>> +CopFILE|5.006000||p
>>> +CopSTASHPV_set|5.006000||p
>>> +CopSTASHPV|5.006000||p
>>> +CopSTASH_eq|5.006000||p
>>> +CopSTASH_set|5.006000||p
>>> +CopSTASH|5.006000||p
>>> +CopyD|5.009002|5.004050|p
>>> +Copy|||
>>> +CvPADLIST||5.008001|
>>> +CvSTASH|||
>>> +CvWEAKOUTSIDE|||
>>> +DECLARATION_FOR_LC_NUMERIC_MANIPULATION||5.021010|n
>>> +DEFSV_set|5.010001||p
>>> +DEFSV|5.004050||p
>>> +DO_UTF8||5.006000|
>>> +END_EXTERN_C|5.005000||p
>>> +ENTER|||
>>> +ERRSV|5.004050||p
>>> +EXTEND|||
>>> +EXTERN_C|5.005000||p
>>> +F0convert|||n
>>> +FREETMPS|||
>>> +GIMME_V||5.004000|n
>>> +GIMME|||n
>>> +GROK_NUMERIC_RADIX|5.007002||p
>>> +G_ARRAY|||
>>> +G_DISCARD|||
>>> +G_EVAL|||
>>> +G_METHOD|5.006001||p
>>> +G_NOARGS|||
>>> +G_SCALAR|||
>>> +G_VOID||5.004000|
>>> +GetVars|||
>>> +GvAV|||
>>> +GvCV|||
>>> +GvHV|||
>>> +GvSV|||
>>> +Gv_AMupdate||5.011000|
>>> +HEf_SVKEY|5.003070||p
>>> +HeHASH||5.003070|
>>> +HeKEY||5.003070|
>>> +HeKLEN||5.003070|
>>> +HePV||5.004000|
>>> +HeSVKEY_force||5.003070|
>>> +HeSVKEY_set||5.004000|
>>> +HeSVKEY||5.003070|
>>> +HeUTF8|5.010001|5.008000|p
>>> +HeVAL||5.003070|
>>> +HvENAMELEN||5.015004|
>>> +HvENAMEUTF8||5.015004|
>>> +HvENAME||5.013007|
>>> +HvNAMELEN_get|5.009003||p
>>> +HvNAMELEN||5.015004|
>>> +HvNAMEUTF8||5.015004|
>>> +HvNAME_get|5.009003||p
>>> +HvNAME|||
>>> +INT2PTR|5.006000||p
>>> +IN_LOCALE_COMPILETIME|5.007002||p
>>> +IN_LOCALE_RUNTIME|5.007002||p
>>> +IN_LOCALE|5.007002||p
>>> +IN_PERL_COMPILETIME|5.008001||p
>>> +IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p
>>> +IS_NUMBER_INFINITY|5.007002||p
>>> +IS_NUMBER_IN_UV|5.007002||p
>>> +IS_NUMBER_NAN|5.007003||p
>>> +IS_NUMBER_NEG|5.007002||p
>>> +IS_NUMBER_NOT_INT|5.007002||p
>>> +IVSIZE|5.006000||p
>>> +IVTYPE|5.006000||p
>>> +IVdf|5.006000||p
>>> +LEAVE|||
>>> +LINKLIST||5.013006|
>>> +LVRET|||
>>> +MARK|||
>>> +MULTICALL||5.024000|
>>> +MUTABLE_PTR|5.010001||p
>>> +MUTABLE_SV|5.010001||p
>>> +MY_CXT_CLONE|5.009002||p
>>> +MY_CXT_INIT|5.007003||p
>>> +MY_CXT|5.007003||p
>>> +MoveD|5.009002|5.004050|p
>>> +Move|||
>>> +NATIVE_TO_NEED||5.007001|n
>>> +NOOP|5.005000||p
>>> +NUM2PTR|5.006000||p
>>> +NVTYPE|5.006000||p
>>> +NVef|5.006001||p
>>> +NVff|5.006001||p
>>> +NVgf|5.006001||p
>>> +Newxc|5.009003||p
>>> +Newxz|5.009003||p
>>> +Newx|5.009003||p
>>> +Nullav|||
>>> +Nullch|||
>>> +Nullcv|||
>>> +Nullhv|||
>>> +Nullsv|||
>>> +OP_CLASS||5.013007|
>>> +OP_DESC||5.007003|
>>> +OP_NAME||5.007003|
>>> +OP_TYPE_IS_OR_WAS||5.019010|
>>> +OP_TYPE_IS||5.019007|
>>> +ORIGMARK|||
>>> +OpHAS_SIBLING|5.021007||p
>>> +OpLASTSIB_set|5.021011||p
>>> +OpMAYBESIB_set|5.021011||p
>>> +OpMORESIB_set|5.021011||p
>>> +OpSIBLING|5.021007||p
>>> +PAD_BASE_SV|||
>>> +PAD_CLONE_VARS|||
>>> +PAD_COMPNAME_FLAGS|||
>>> +PAD_COMPNAME_GEN_set|||
>>> +PAD_COMPNAME_GEN|||
>>> +PAD_COMPNAME_OURSTASH|||
>>> +PAD_COMPNAME_PV|||
>>> +PAD_COMPNAME_TYPE|||
>>> +PAD_RESTORE_LOCAL|||
>>> +PAD_SAVE_LOCAL|||
>>> +PAD_SAVE_SETNULLPAD|||
>>> +PAD_SETSV|||
>>> +PAD_SET_CUR_NOSAVE|||
>>> +PAD_SET_CUR|||
>>> +PAD_SVl|||
>>> +PAD_SV|||
>>> +PERLIO_FUNCS_CAST|5.009003||p
>>> +PERLIO_FUNCS_DECL|5.009003||p
>>> +PERL_ABS|5.008001||p
>>> +PERL_ARGS_ASSERT_CROAK_XS_USAGE|||p
>>> +PERL_BCDVERSION|5.024000||p
>>> +PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
>>> +PERL_HASH|5.003070||p
>>> +PERL_INT_MAX|5.003070||p
>>> +PERL_INT_MIN|5.003070||p
>>> +PERL_LONG_MAX|5.003070||p
>>> +PERL_LONG_MIN|5.003070||p
>>> +PERL_MAGIC_arylen|5.007002||p
>>> +PERL_MAGIC_backref|5.007002||p
>>> +PERL_MAGIC_bm|5.007002||p
>>> +PERL_MAGIC_collxfrm|5.007002||p
>>> +PERL_MAGIC_dbfile|5.007002||p
>>> +PERL_MAGIC_dbline|5.007002||p
>>> +PERL_MAGIC_defelem|5.007002||p
>>> +PERL_MAGIC_envelem|5.007002||p
>>> +PERL_MAGIC_env|5.007002||p
>>> +PERL_MAGIC_ext|5.007002||p
>>> +PERL_MAGIC_fm|5.007002||p
>>> +PERL_MAGIC_glob|5.024000||p
>>> +PERL_MAGIC_isaelem|5.007002||p
>>> +PERL_MAGIC_isa|5.007002||p
>>> +PERL_MAGIC_mutex|5.024000||p
>>> +PERL_MAGIC_nkeys|5.007002||p
>>> +PERL_MAGIC_overload_elem|5.024000||p
>>> +PERL_MAGIC_overload_table|5.007002||p
>>> +PERL_MAGIC_overload|5.024000||p
>>> +PERL_MAGIC_pos|5.007002||p
>>> +PERL_MAGIC_qr|5.007002||p
>>> +PERL_MAGIC_regdata|5.007002||p
>>> +PERL_MAGIC_regdatum|5.007002||p
>>> +PERL_MAGIC_regex_global|5.007002||p
>>> +PERL_MAGIC_shared_scalar|5.007003||p
>>> +PERL_MAGIC_shared|5.007003||p
>>> +PERL_MAGIC_sigelem|5.007002||p
>>> +PERL_MAGIC_sig|5.007002||p
>>> +PERL_MAGIC_substr|5.007002||p
>>> +PERL_MAGIC_sv|5.007002||p
>>> +PERL_MAGIC_taint|5.007002||p
>>> +PERL_MAGIC_tiedelem|5.007002||p
>>> +PERL_MAGIC_tiedscalar|5.007002||p
>>> +PERL_MAGIC_tied|5.007002||p
>>> +PERL_MAGIC_utf8|5.008001||p
>>> +PERL_MAGIC_uvar_elem|5.007003||p
>>> +PERL_MAGIC_uvar|5.007002||p
>>> +PERL_MAGIC_vec|5.007002||p
>>> +PERL_MAGIC_vstring|5.008001||p
>>> +PERL_PV_ESCAPE_ALL|5.009004||p
>>> +PERL_PV_ESCAPE_FIRSTCHAR|5.009004||p
>>> +PERL_PV_ESCAPE_NOBACKSLASH|5.009004||p
>>> +PERL_PV_ESCAPE_NOCLEAR|5.009004||p
>>> +PERL_PV_ESCAPE_QUOTE|5.009004||p
>>> +PERL_PV_ESCAPE_RE|5.009005||p
>>> +PERL_PV_ESCAPE_UNI_DETECT|5.009004||p
>>> +PERL_PV_ESCAPE_UNI|5.009004||p
>>> +PERL_PV_PRETTY_DUMP|5.009004||p
>>> +PERL_PV_PRETTY_ELLIPSES|5.010000||p
>>> +PERL_PV_PRETTY_LTGT|5.009004||p
>>> +PERL_PV_PRETTY_NOCLEAR|5.010000||p
>>> +PERL_PV_PRETTY_QUOTE|5.009004||p
>>> +PERL_PV_PRETTY_REGPROP|5.009004||p
>>> +PERL_QUAD_MAX|5.003070||p
>>> +PERL_QUAD_MIN|5.003070||p
>>> +PERL_REVISION|5.006000||p
>>> +PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p
>>> +PERL_SCAN_DISALLOW_PREFIX|5.007003||p
>>> +PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p
>>> +PERL_SCAN_SILENT_ILLDIGIT|5.008001||p
>>> +PERL_SHORT_MAX|5.003070||p
>>> +PERL_SHORT_MIN|5.003070||p
>>> +PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
>>> +PERL_SUBVERSION|5.006000||p
>>> +PERL_SYS_INIT3||5.006000|
>>> +PERL_SYS_INIT|||
>>> +PERL_SYS_TERM||5.024000|
>>> +PERL_UCHAR_MAX|5.003070||p
>>> +PERL_UCHAR_MIN|5.003070||p
>>> +PERL_UINT_MAX|5.003070||p
>>> +PERL_UINT_MIN|5.003070||p
>>> +PERL_ULONG_MAX|5.003070||p
>>> +PERL_ULONG_MIN|5.003070||p
>>> +PERL_UNUSED_ARG|5.009003||p
>>> +PERL_UNUSED_CONTEXT|5.009004||p
>>> +PERL_UNUSED_DECL|5.007002||p
>>> +PERL_UNUSED_RESULT|5.021001||p
>>> +PERL_UNUSED_VAR|5.007002||p
>>> +PERL_UQUAD_MAX|5.003070||p
>>> +PERL_UQUAD_MIN|5.003070||p
>>> +PERL_USE_GCC_BRACE_GROUPS|5.009004||p
>>> +PERL_USHORT_MAX|5.003070||p
>>> +PERL_USHORT_MIN|5.003070||p
>>> +PERL_VERSION|5.006000||p
>>> +PL_DBsignal|5.005000||p
>>> +PL_DBsingle|||pn
>>> +PL_DBsub|||pn
>>> +PL_DBtrace|||pn
>>> +PL_Sv|5.005000||p
>>> +PL_bufend|5.024000||p
>>> +PL_bufptr|5.024000||p
>>> +PL_check||5.006000|
>>> +PL_compiling|5.004050||p
>>> +PL_comppad_name||5.017004|
>>> +PL_comppad||5.008001|
>>> +PL_copline|5.024000||p
>>> +PL_curcop|5.004050||p
>>> +PL_curpad||5.005000|
>>> +PL_curstash|5.004050||p
>>> +PL_debstash|5.004050||p
>>> +PL_defgv|5.004050||p
>>> +PL_diehook|5.004050||p
>>> +PL_dirty|5.004050||p
>>> +PL_dowarn|||pn
>>> +PL_errgv|5.004050||p
>>> +PL_error_count|5.024000||p
>>> +PL_expect|5.024000||p
>>> +PL_hexdigit|5.005000||p
>>> +PL_hints|5.005000||p
>>> +PL_in_my_stash|5.024000||p
>>> +PL_in_my|5.024000||p
>>> +PL_keyword_plugin||5.011002|
>>> +PL_last_in_gv|||n
>>> +PL_laststatval|5.005000||p
>>> +PL_lex_state|5.024000||p
>>> +PL_lex_stuff|5.024000||p
>>> +PL_linestr|5.024000||p
>>> +PL_modglobal||5.005000|n
>>> +PL_na|5.004050||pn
>>> +PL_no_modify|5.006000||p
>>> +PL_ofsgv|||n
>>> +PL_opfreehook||5.011000|n
>>> +PL_parser|5.009005||p
>>> +PL_peepp||5.007003|n
>>> +PL_perl_destruct_level|5.004050||p
>>> +PL_perldb|5.004050||p
>>> +PL_ppaddr|5.006000||p
>>> +PL_rpeepp||5.013005|n
>>> +PL_rsfp_filters|5.024000||p
>>> +PL_rsfp|5.024000||p
>>> +PL_rs|||n
>>> +PL_signals|5.008001||p
>>> +PL_stack_base|5.004050||p
>>> +PL_stack_sp|5.004050||p
>>> +PL_statcache|5.005000||p
>>> +PL_stdingv|5.004050||p
>>> +PL_sv_arenaroot|5.004050||p
>>> +PL_sv_no|5.004050||pn
>>> +PL_sv_undef|5.004050||pn
>>> +PL_sv_yes|5.004050||pn
>>> +PL_tainted|5.004050||p
>>> +PL_tainting|5.004050||p
>>> +PL_tokenbuf|5.024000||p
>>> +POP_MULTICALL||5.024000|
>>> +POPi|||n
>>> +POPl|||n
>>> +POPn|||n
>>> +POPpbytex||5.007001|n
>>> +POPpx||5.005030|n
>>> +POPp|||n
>>> +POPs|||n
>>> +POPul||5.006000|n
>>> +POPu||5.004000|n
>>> +PTR2IV|5.006000||p
>>> +PTR2NV|5.006000||p
>>> +PTR2UV|5.006000||p
>>> +PTR2nat|5.009003||p
>>> +PTR2ul|5.007001||p
>>> +PTRV|5.006000||p
>>> +PUSHMARK|||
>>> +PUSH_MULTICALL||5.024000|
>>> +PUSHi|||
>>> +PUSHmortal|5.009002||p
>>> +PUSHn|||
>>> +PUSHp|||
>>> +PUSHs|||
>>> +PUSHu|5.004000||p
>>> +PUTBACK|||
>>> +PadARRAY||5.024000|
>>> +PadMAX||5.024000|
>>> +PadlistARRAY||5.024000|
>>> +PadlistMAX||5.024000|
>>> +PadlistNAMESARRAY||5.024000|
>>> +PadlistNAMESMAX||5.024000|
>>> +PadlistNAMES||5.024000|
>>> +PadlistREFCNT||5.017004|
>>> +PadnameIsOUR|||
>>> +PadnameIsSTATE|||
>>> +PadnameLEN||5.024000|
>>> +PadnameOURSTASH|||
>>> +PadnameOUTER|||
>>> +PadnamePV||5.024000|
>>> +PadnameREFCNT_dec||5.024000|
>>> +PadnameREFCNT||5.024000|
>>> +PadnameSV||5.024000|
>>> +PadnameTYPE|||
>>> +PadnameUTF8||5.021007|
>>> +PadnamelistARRAY||5.024000|
>>> +PadnamelistMAX||5.024000|
>>> +PadnamelistREFCNT_dec||5.024000|
>>> +PadnamelistREFCNT||5.024000|
>>> +PerlIO_clearerr||5.007003|
>>> +PerlIO_close||5.007003|
>>> +PerlIO_context_layers||5.009004|
>>> +PerlIO_eof||5.007003|
>>> +PerlIO_error||5.007003|
>>> +PerlIO_fileno||5.007003|
>>> +PerlIO_fill||5.007003|
>>> +PerlIO_flush||5.007003|
>>> +PerlIO_get_base||5.007003|
>>> +PerlIO_get_bufsiz||5.007003|
>>> +PerlIO_get_cnt||5.007003|
>>> +PerlIO_get_ptr||5.007003|
>>> +PerlIO_read||5.007003|
>>> +PerlIO_restore_errno|||
>>> +PerlIO_save_errno|||
>>> +PerlIO_seek||5.007003|
>>> +PerlIO_set_cnt||5.007003|
>>> +PerlIO_set_ptrcnt||5.007003|
>>> +PerlIO_setlinebuf||5.007003|
>>> +PerlIO_stderr||5.007003|
>>> +PerlIO_stdin||5.007003|
>>> +PerlIO_stdout||5.007003|
>>> +PerlIO_tell||5.007003|
>>> +PerlIO_unread||5.007003|
>>> +PerlIO_write||5.007003|
>>> +Perl_signbit||5.009005|n
>>> +PoisonFree|5.009004||p
>>> +PoisonNew|5.009004||p
>>> +PoisonWith|5.009004||p
>>> +Poison|5.008000||p
>>> +READ_XDIGIT||5.017006|
>>> +RESTORE_LC_NUMERIC||5.024000|
>>> +RETVAL|||n
>>> +Renewc|||
>>> +Renew|||
>>> +SAVECLEARSV|||
>>> +SAVECOMPPAD|||
>>> +SAVEPADSV|||
>>> +SAVETMPS|||
>>> +SAVE_DEFSV|5.004050||p
>>> +SPAGAIN|||
>>> +SP|||
>>> +START_EXTERN_C|5.005000||p
>>> +START_MY_CXT|5.007003||p
>>> +STMT_END|||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
>>> +ST|||
>>> +SV_CONST_RETURN|5.009003||p
>>> +SV_COW_DROP_PV|5.008001||p
>>> +SV_COW_SHARED_HASH_KEYS|5.009005||p
>>> +SV_GMAGIC|5.007002||p
>>> +SV_HAS_TRAILING_NUL|5.009004||p
>>> +SV_IMMEDIATE_UNREF|5.007001||p
>>> +SV_MUTABLE_RETURN|5.009003||p
>>> +SV_NOSTEAL|5.009002||p
>>> +SV_SMAGIC|5.009003||p
>>> +SV_UTF8_NO_ENCODING|5.008001||p
>>> +SVfARG|5.009005||p
>>> +SVf_UTF8|5.006000||p
>>> +SVf|5.006000||p
>>> +SVt_INVLIST||5.019002|
>>> +SVt_IV|||
>>> +SVt_NULL|||
>>> +SVt_NV|||
>>> +SVt_PVAV|||
>>> +SVt_PVCV|||
>>> +SVt_PVFM|||
>>> +SVt_PVGV|||
>>> +SVt_PVHV|||
>>> +SVt_PVIO|||
>>> +SVt_PVIV|||
>>> +SVt_PVLV|||
>>> +SVt_PVMG|||
>>> +SVt_PVNV|||
>>> +SVt_PV|||
>>> +SVt_REGEXP||5.011000|
>>> +Safefree|||
>>> +Slab_Alloc|||
>>> +Slab_Free|||
>>> +Slab_to_ro|||
>>> +Slab_to_rw|||
>>> +StructCopy|||
>>> +SvCUR_set|||
>>> +SvCUR|||
>>> +SvEND|||
>>> +SvGAMAGIC||5.006001|
>>> +SvGETMAGIC|5.004050||p
>>> +SvGROW|||
>>> +SvIOK_UV||5.006000|
>>> +SvIOK_notUV||5.006000|
>>> +SvIOK_off|||
>>> +SvIOK_only_UV||5.006000|
>>> +SvIOK_only|||
>>> +SvIOK_on|||
>>> +SvIOKp|||
>>> +SvIOK|||
>>> +SvIVX|||
>>> +SvIV_nomg|5.009001||p
>>> +SvIV_set|||
>>> +SvIVx|||
>>> +SvIV|||
>>> +SvIsCOW_shared_hash||5.008003|
>>> +SvIsCOW||5.008003|
>>> +SvLEN_set|||
>>> +SvLEN|||
>>> +SvLOCK||5.007003|
>>> +SvMAGIC_set|5.009003||p
>>> +SvNIOK_off|||
>>> +SvNIOKp|||
>>> +SvNIOK|||
>>> +SvNOK_off|||
>>> +SvNOK_only|||
>>> +SvNOK_on|||
>>> +SvNOKp|||
>>> +SvNOK|||
>>> +SvNVX|||
>>> +SvNV_nomg||5.013002|
>>> +SvNV_set|||
>>> +SvNVx|||
>>> +SvNV|||
>>> +SvOK|||
>>> +SvOOK_offset||5.011000|
>>> +SvOOK|||
>>> +SvPOK_off|||
>>> +SvPOK_only_UTF8||5.006000|
>>> +SvPOK_only|||
>>> +SvPOK_on|||
>>> +SvPOKp|||
>>> +SvPOK|||
>>> +SvPVX_const|5.009003||p
>>> +SvPVX_mutable|5.009003||p
>>> +SvPVX|||
>>> +SvPV_const|5.009003||p
>>> +SvPV_flags_const_nolen|5.009003||p
>>> +SvPV_flags_const|5.009003||p
>>> +SvPV_flags_mutable|5.009003||p
>>> +SvPV_flags|5.007002||p
>>> +SvPV_force_flags_mutable|5.009003||p
>>> +SvPV_force_flags_nolen|5.009003||p
>>> +SvPV_force_flags|5.007002||p
>>> +SvPV_force_mutable|5.009003||p
>>> +SvPV_force_nolen|5.009003||p
>>> +SvPV_force_nomg_nolen|5.009003||p
>>> +SvPV_force_nomg|5.007002||p
>>> +SvPV_force|||p
>>> +SvPV_mutable|5.009003||p
>>> +SvPV_nolen_const|5.009003||p
>>> +SvPV_nolen|5.006000||p
>>> +SvPV_nomg_const_nolen|5.009003||p
>>> +SvPV_nomg_const|5.009003||p
>>> +SvPV_nomg_nolen|5.013007||p
>>> +SvPV_nomg|5.007002||p
>>> +SvPV_renew|5.009003||p
>>> +SvPV_set|||
>>> +SvPVbyte_force||5.009002|
>>> +SvPVbyte_nolen||5.006000|
>>> +SvPVbytex_force||5.006000|
>>> +SvPVbytex||5.006000|
>>> +SvPVbyte|5.006000||p
>>> +SvPVutf8_force||5.006000|
>>> +SvPVutf8_nolen||5.006000|
>>> +SvPVutf8x_force||5.006000|
>>> +SvPVutf8x||5.006000|
>>> +SvPVutf8||5.006000|
>>> +SvPVx|||
>>> +SvPV|||
>>> +SvREFCNT_dec_NN||5.017007|
>>> +SvREFCNT_dec|||
>>> +SvREFCNT_inc_NN|5.009004||p
>>> +SvREFCNT_inc_simple_NN|5.009004||p
>>> +SvREFCNT_inc_simple_void_NN|5.009004||p
>>> +SvREFCNT_inc_simple_void|5.009004||p
>>> +SvREFCNT_inc_simple|5.009004||p
>>> +SvREFCNT_inc_void_NN|5.009004||p
>>> +SvREFCNT_inc_void|5.009004||p
>>> +SvREFCNT_inc|||p
>>> +SvREFCNT|||
>>> +SvROK_off|||
>>> +SvROK_on|||
>>> +SvROK|||
>>> +SvRV_set|5.009003||p
>>> +SvRV|||
>>> +SvRXOK|5.009005||p
>>> +SvRX|5.009005||p
>>> +SvSETMAGIC|||
>>> +SvSHARED_HASH|5.009003||p
>>> +SvSHARE||5.007003|
>>> +SvSTASH_set|5.009003||p
>>> +SvSTASH|||
>>> +SvSetMagicSV_nosteal||5.004000|
>>> +SvSetMagicSV||5.004000|
>>> +SvSetSV_nosteal||5.004000|
>>> +SvSetSV|||
>>> +SvTAINTED_off||5.004000|
>>> +SvTAINTED_on||5.004000|
>>> +SvTAINTED||5.004000|
>>> +SvTAINT|||
>>> +SvTHINKFIRST|||
>>> +SvTRUE_nomg||5.013006|
>>> +SvTRUE|||
>>> +SvTYPE|||
>>> +SvUNLOCK||5.007003|
>>> +SvUOK|5.007001|5.006000|p
>>> +SvUPGRADE|||
>>> +SvUTF8_off||5.006000|
>>> +SvUTF8_on||5.006000|
>>> +SvUTF8||5.006000|
>>> +SvUVXx|5.004000||p
>>> +SvUVX|5.004000||p
>>> +SvUV_nomg|5.009001||p
>>> +SvUV_set|5.009003||p
>>> +SvUVx|5.004000||p
>>> +SvUV|5.004000||p
>>> +SvVOK||5.008001|
>>> +SvVSTRING_mg|5.009004||p
>>> +THIS|||n
>>> +UNDERBAR|5.009002||p
>>> +UTF8SKIP||5.006000|
>>> +UTF8_MAXBYTES|5.009002||p
>>> +UVCHR_SKIP||5.022000|
>>> +UVSIZE|5.006000||p
>>> +UVTYPE|5.006000||p
>>> +UVXf|5.007001||p
>>> +UVof|5.006000||p
>>> +UVuf|5.006000||p
>>> +UVxf|5.006000||p
>>> +WARN_ALL|5.006000||p
>>> +WARN_AMBIGUOUS|5.006000||p
>>> +WARN_ASSERTIONS|5.024000||p
>>> +WARN_BAREWORD|5.006000||p
>>> +WARN_CLOSED|5.006000||p
>>> +WARN_CLOSURE|5.006000||p
>>> +WARN_DEBUGGING|5.006000||p
>>> +WARN_DEPRECATED|5.006000||p
>>> +WARN_DIGIT|5.006000||p
>>> +WARN_EXEC|5.006000||p
>>> +WARN_EXITING|5.006000||p
>>> +WARN_GLOB|5.006000||p
>>> +WARN_INPLACE|5.006000||p
>>> +WARN_INTERNAL|5.006000||p
>>> +WARN_IO|5.006000||p
>>> +WARN_LAYER|5.008000||p
>>> +WARN_MALLOC|5.006000||p
>>> +WARN_MISC|5.006000||p
>>> +WARN_NEWLINE|5.006000||p
>>> +WARN_NUMERIC|5.006000||p
>>> +WARN_ONCE|5.006000||p
>>> +WARN_OVERFLOW|5.006000||p
>>> +WARN_PACK|5.006000||p
>>> +WARN_PARENTHESIS|5.006000||p
>>> +WARN_PIPE|5.006000||p
>>> +WARN_PORTABLE|5.006000||p
>>> +WARN_PRECEDENCE|5.006000||p
>>> +WARN_PRINTF|5.006000||p
>>> +WARN_PROTOTYPE|5.006000||p
>>> +WARN_QW|5.006000||p
>>> +WARN_RECURSION|5.006000||p
>>> +WARN_REDEFINE|5.006000||p
>>> +WARN_REGEXP|5.006000||p
>>> +WARN_RESERVED|5.006000||p
>>> +WARN_SEMICOLON|5.006000||p
>>> +WARN_SEVERE|5.006000||p
>>> +WARN_SIGNAL|5.006000||p
>>> +WARN_SUBSTR|5.006000||p
>>> +WARN_SYNTAX|5.006000||p
>>> +WARN_TAINT|5.006000||p
>>> +WARN_THREADS|5.008000||p
>>> +WARN_UNINITIALIZED|5.006000||p
>>> +WARN_UNOPENED|5.006000||p
>>> +WARN_UNPACK|5.006000||p
>>> +WARN_UNTIE|5.006000||p
>>> +WARN_UTF8|5.006000||p
>>> +WARN_VOID|5.006000||p
>>> +WIDEST_UTYPE|5.015004||p
>>> +XCPT_CATCH|5.009002||p
>>> +XCPT_RETHROW|5.009002||p
>>> +XCPT_TRY_END|5.009002||p
>>> +XCPT_TRY_START|5.009002||p
>>> +XPUSHi|||
>>> +XPUSHmortal|5.009002||p
>>> +XPUSHn|||
>>> +XPUSHp|||
>>> +XPUSHs|||
>>> +XPUSHu|5.004000||p
>>> +XSPROTO|5.010000||p
>>> +XSRETURN_EMPTY|||
>>> +XSRETURN_IV|||
>>> +XSRETURN_NO|||
>>> +XSRETURN_NV|||
>>> +XSRETURN_PV|||
>>> +XSRETURN_UNDEF|||
>>> +XSRETURN_UV|5.008001||p
>>> +XSRETURN_YES|||
>>> +XSRETURN|||p
>>> +XST_mIV|||
>>> +XST_mNO|||
>>> +XST_mNV|||
>>> +XST_mPV|||
>>> +XST_mUNDEF|||
>>> +XST_mUV|5.008001||p
>>> +XST_mYES|||
>>> +XS_APIVERSION_BOOTCHECK||5.024000|
>>> +XS_EXTERNAL||5.024000|
>>> +XS_INTERNAL||5.024000|
>>> +XS_VERSION_BOOTCHECK||5.024000|
>>> +XS_VERSION|||
>>> +XSprePUSH|5.006000||p
>>> +XS|||
>>> +XopDISABLE||5.024000|
>>> +XopENABLE||5.024000|
>>> +XopENTRYCUSTOM||5.024000|
>>> +XopENTRY_set||5.024000|
>>> +XopENTRY||5.024000|
>>> +XopFLAGS||5.013007|
>>> +ZeroD|5.009002||p
>>> +Zero|||
>>> +_aMY_CXT|5.007003||p
>>> +_add_range_to_invlist|||
>>> +_append_range_to_invlist|||
>>> +_core_swash_init|||
>>> +_get_encoding|||
>>> +_get_regclass_nonbitmap_data|||
>>> +_get_swash_invlist|||
>>> +_invlistEQ|||
>>> +_invlist_array_init|||n
>>> +_invlist_contains_cp|||n
>>> +_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|||
>>> +_pMY_CXT|5.007003||p
>>> +_setlocale_debug_string|||n
>>> +_setup_canned_invlist|||
>>> +_swash_inversion_hash|||
>>> +_swash_to_invlist|||
>>> +_to_fold_latin1|||
>>> +_to_uni_fold_flags||5.014000|
>>> +_to_upper_title_latin1|||
>>> +_to_utf8_case|||
>>> +_to_utf8_fold_flags||5.019009|
>>> +_to_utf8_lower_flags||5.019009|
>>> +_to_utf8_title_flags||5.019009|
>>> +_to_utf8_upper_flags||5.019009|
>>> +_warn_problematic_locale|||n
>>> +aMY_CXT_|5.007003||p
>>> +aMY_CXT|5.007003||p
>>> +aTHXR_|5.024000||p
>>> +aTHXR|5.024000||p
>>> +aTHX_|5.006000||p
>>> +aTHX|5.006000||p
>>> +add_above_Latin1_folds|||
>>> +add_cp_to_invlist|||
>>> +add_data|||n
>>> +add_multi_match|||
>>> +add_utf16_textfilter|||
>>> +adjust_size_and_find_bucket|||n
>>> +advance_one_LB|||
>>> +advance_one_SB|||
>>> +advance_one_WB|||
>>> +alloc_maybe_populate_EXACT|||
>>> +alloccopstash|||
>>> +allocmy|||
>>> +amagic_call|||
>>> +amagic_cmp_locale|||
>>> +amagic_cmp|||
>>> +amagic_deref_call||5.013007|
>>> +amagic_i_ncmp|||
>>> +amagic_is_enabled|||
>>> +amagic_ncmp|||
>>> +anonymise_cv_maybe|||
>>> +any_dup|||
>>> +ao|||
>>> +append_utf8_from_native_byte||5.019004|n
>>> +apply_attrs_my|||
>>> +apply_attrs_string||5.006001|
>>> +apply_attrs|||
>>> +apply|||
>>> +assert_uft8_cache_coherent|||
>>> +assignment_type|||
>>> +atfork_lock||5.007003|n
>>> +atfork_unlock||5.007003|n
>>> +av_arylen_p||5.009003|
>>> +av_clear|||
>>> +av_create_and_push||5.009005|
>>> +av_create_and_unshift_one||5.009005|
>>> +av_delete||5.006000|
>>> +av_exists||5.006000|
>>> +av_extend_guts|||
>>> +av_extend|||
>>> +av_fetch|||
>>> +av_fill|||
>>> +av_iter_p||5.011000|
>>> +av_len|||
>>> +av_make|||
>>> +av_pop|||
>>> +av_push|||
>>> +av_reify|||
>>> +av_shift|||
>>> +av_store|||
>>> +av_tindex||5.017009|
>>> +av_top_index||5.017009|
>>> +av_undef|||
>>> +av_unshift|||
>>> +ax|||n
>>> +backup_one_LB|||
>>> +backup_one_SB|||
>>> +backup_one_WB|||
>>> +bad_type_gv|||
>>> +bad_type_pv|||
>>> +bind_match|||
>>> +block_end||5.004000|
>>> +block_gimme||5.004000|
>>> +block_start||5.004000|
>>> +blockhook_register||5.013003|
>>> +boolSV|5.004000||p
>>> +boot_core_PerlIO|||
>>> +boot_core_UNIVERSAL|||
>>> +boot_core_mro|||
>>> +bytes_cmp_utf8||5.013007|
>>> +bytes_from_utf8||5.007001|
>>> +bytes_to_utf8||5.006001|
>>> +cBOOL|5.013000||p
>>> +call_argv|5.006000||p
>>> +call_atexit||5.006000|
>>> +call_list||5.004000|
>>> +call_method|5.006000||p
>>> +call_pv|5.006000||p
>>> +call_sv|5.006000||p
>>> +caller_cx|5.013005|5.006000|p
>>> +calloc||5.007002|n
>>> +cando|||
>>> +cast_i32||5.006000|n
>>> +cast_iv||5.006000|n
>>> +cast_ulong||5.006000|n
>>> +cast_uv||5.006000|n
>>> +check_locale_boundary_crossing|||
>>> +check_type_and_open|||
>>> +check_uni|||
>>> +check_utf8_print|||
>>> +checkcomma|||
>>> +ckWARN|5.006000||p
>>> +ck_entersub_args_core|||
>>> +ck_entersub_args_list||5.013006|
>>> +ck_entersub_args_proto_or_list||5.013006|
>>> +ck_entersub_args_proto||5.013006|
>>> +ck_warner_d||5.011001|v
>>> +ck_warner||5.011001|v
>>> +ckwarn_common|||
>>> +ckwarn_d||5.009003|
>>> +ckwarn||5.009003|
>>> +clear_defarray||5.023008|
>>> +clear_placeholders|||
>>> +clear_special_blocks|||
>>> +clone_params_del|||n
>>> +clone_params_new|||n
>>> +closest_cop|||
>>> +cntrl_to_mnemonic|||n
>>> +compute_EXACTish|||n
>>> +construct_ahocorasick_from_trie|||
>>> +cop_fetch_label||5.015001|
>>> +cop_free|||
>>> +cop_hints_2hv||5.013007|
>>> +cop_hints_fetch_pvn||5.013007|
>>> +cop_hints_fetch_pvs||5.013007|
>>> +cop_hints_fetch_pv||5.013007|
>>> +cop_hints_fetch_sv||5.013007|
>>> +cop_store_label||5.015001|
>>> +cophh_2hv||5.013007|
>>> +cophh_copy||5.013007|
>>> +cophh_delete_pvn||5.013007|
>>> +cophh_delete_pvs||5.013007|
>>> +cophh_delete_pv||5.013007|
>>> +cophh_delete_sv||5.013007|
>>> +cophh_fetch_pvn||5.013007|
>>> +cophh_fetch_pvs||5.013007|
>>> +cophh_fetch_pv||5.013007|
>>> +cophh_fetch_sv||5.013007|
>>> +cophh_free||5.013007|
>>> +cophh_new_empty||5.024000|
>>> +cophh_store_pvn||5.013007|
>>> +cophh_store_pvs||5.013007|
>>> +cophh_store_pv||5.013007|
>>> +cophh_store_sv||5.013007|
>>> +core_prototype|||
>>> +coresub_op|||
>>> +cr_textfilter|||
>>> +create_eval_scope|||
>>> +croak_memory_wrap|5.019003||pn
>>> +croak_no_mem|||n
>>> +croak_no_modify|5.013003||pn
>>> +croak_nocontext|||pvn
>>> +croak_popstack|||n
>>> +croak_sv|5.013001||p
>>> +croak_xs_usage|5.010001||pn
>>> +croak|||v
>>> +csighandler||5.009003|n
>>> +current_re_engine|||
>>> +curse|||
>>> +custom_op_desc||5.007003|
>>> +custom_op_get_field|||
>>> +custom_op_name||5.007003|
>>> +custom_op_register||5.013007|
>>> +custom_op_xop||5.013007|
>>> +cv_ckproto_len_flags|||
>>> +cv_clone_into|||
>>> +cv_clone|||
>>> +cv_const_sv_or_av|||n
>>> +cv_const_sv||5.003070|n
>>> +cv_dump|||
>>> +cv_forget_slab|||
>>> +cv_get_call_checker||5.013006|
>>> +cv_name||5.021005|
>>> +cv_set_call_checker_flags||5.021004|
>>> +cv_set_call_checker||5.013006|
>>> +cv_undef_flags|||
>>> +cv_undef|||
>>> +cvgv_from_hek|||
>>> +cvgv_set|||
>>> +cvstash_set|||
>>> +cx_dump||5.005000|
>>> +cx_dup|||
>>> +cx_popblock||5.023008|
>>> +cx_popeval||5.023008|
>>> +cx_popformat||5.023008|
>>> +cx_popgiven||5.023008|
>>> +cx_poploop||5.023008|
>>> +cx_popsub_args||5.023008|
>>> +cx_popsub_common||5.023008|
>>> +cx_popsub||5.023008|
>>> +cx_popwhen||5.023008|
>>> +cx_pushblock||5.023008|
>>> +cx_pusheval||5.023008|
>>> +cx_pushformat||5.023008|
>>> +cx_pushgiven||5.023008|
>>> +cx_pushloop_for||5.023008|
>>> +cx_pushloop_plain||5.023008|
>>> +cx_pushsub||5.023008|
>>> +cx_pushwhen||5.023008|
>>> +cx_topblock||5.023008|
>>> +cxinc|||
>>> +dAXMARK|5.009003||p
>>> +dAX|5.007002||p
>>> +dITEMS|5.007002||p
>>> +dMARK|||
>>> +dMULTICALL||5.009003|
>>> +dMY_CXT_SV|5.007003||p
>>> +dMY_CXT|5.007003||p
>>> +dNOOP|5.006000||p
>>> +dORIGMARK|||
>>> +dSP|||
>>> +dTHR|5.004050||p
>>> +dTHXR|5.024000||p
>>> +dTHXa|5.006000||p
>>> +dTHXoa|5.006000||p
>>> +dTHX|5.006000||p
>>> +dUNDERBAR|5.009002||p
>>> +dVAR|5.009003||p
>>> +dXCPT|5.009002||p
>>> +dXSARGS|||
>>> +dXSI32|||
>>> +dXSTARG|5.006000||p
>>> +deb_curcv|||
>>> +deb_nocontext|||vn
>>> +deb_stack_all|||
>>> +deb_stack_n|||
>>> +debop||5.005000|
>>> +debprofdump||5.005000|
>>> +debprof|||
>>> +debstackptrs||5.007003|
>>> +debstack||5.007003|
>>> +debug_start_match|||
>>> +deb||5.007003|v
>>> +defelem_target|||
>>> +del_sv|||
>>> +delete_eval_scope|||
>>> +delimcpy||5.004000|n
>>> +deprecate_commaless_var_list|||
>>> +despatch_signals||5.007001|
>>> +destroy_matcher|||
>>> +die_nocontext|||vn
>>> +die_sv|5.013001||p
>>> +die_unwind|||
>>> +die|||v
>>> +dirp_dup|||
>>> +div128|||
>>> +djSP|||
>>> +do_aexec5|||
>>> +do_aexec|||
>>> +do_aspawn|||
>>> +do_binmode||5.004050|
>>> +do_chomp|||
>>> +do_close|||
>>> +do_delete_local|||
>>> +do_dump_pad|||
>>> +do_eof|||
>>> +do_exec3|||
>>> +do_execfree|||
>>> +do_exec|||
>>> +do_gv_dump||5.006000|
>>> +do_gvgv_dump||5.006000|
>>> +do_hv_dump||5.006000|
>>> +do_ipcctl|||
>>> +do_ipcget|||
>>> +do_join|||
>>> +do_magic_dump||5.006000|
>>> +do_msgrcv|||
>>> +do_msgsnd|||
>>> +do_ncmp|||
>>> +do_oddball|||
>>> +do_op_dump||5.006000|
>>> +do_open6|||
>>> +do_open9||5.006000|
>>> +do_open_raw|||
>>> +do_openn||5.007001|
>>> +do_open||5.003070|
>>> +do_pmop_dump||5.006000|
>>> +do_print|||
>>> +do_readline|||
>>> +do_seek|||
>>> +do_semop|||
>>> +do_shmio|||
>>> +do_smartmatch|||
>>> +do_spawn_nowait|||
>>> +do_spawn|||
>>> +do_sprintf|||
>>> +do_sv_dump||5.006000|
>>> +do_sysseek|||
>>> +do_tell|||
>>> +do_trans_complex_utf8|||
>>> +do_trans_complex|||
>>> +do_trans_count_utf8|||
>>> +do_trans_count|||
>>> +do_trans_simple_utf8|||
>>> +do_trans_simple|||
>>> +do_trans|||
>>> +do_vecget|||
>>> +do_vecset|||
>>> +do_vop|||
>>> +docatch|||
>>> +doeval_compile|||
>>> +dofile|||
>>> +dofindlabel|||
>>> +doform|||
>>> +doing_taint||5.008001|n
>>> +dooneliner|||
>>> +doopen_pm|||
>>> +doparseform|||
>>> +dopoptoeval|||
>>> +dopoptogivenfor|||
>>> +dopoptolabel|||
>>> +dopoptoloop|||
>>> +dopoptosub_at|||
>>> +dopoptowhen|||
>>> +doref||5.009003|
>>> +dounwind|||
>>> +dowantarray|||
>>> +drand48_init_r|||n
>>> +drand48_r|||n
>>> +dtrace_probe_call|||
>>> +dtrace_probe_load|||
>>> +dtrace_probe_op|||
>>> +dtrace_probe_phase|||
>>> +dump_all_perl|||
>>> +dump_all||5.006000|
>>> +dump_c_backtrace|||
>>> +dump_eval||5.006000|
>>> +dump_exec_pos|||
>>> +dump_form||5.006000|
>>> +dump_indent||5.006000|v
>>> +dump_mstats|||
>>> +dump_packsubs_perl|||
>>> +dump_packsubs||5.006000|
>>> +dump_sub_perl|||
>>> +dump_sub||5.006000|
>>> +dump_sv_child|||
>>> +dump_trie_interim_list|||
>>> +dump_trie_interim_table|||
>>> +dump_trie|||
>>> +dump_vindent||5.006000|
>>> +dumpuntil|||
>>> +dup_attrlist|||
>>> +edit_distance|||n
>>> +emulate_cop_io|||
>>> +eval_pv|5.006000||p
>>> +eval_sv|5.006000||p
>>> +exec_failed|||
>>> +expect_number|||
>>> +fbm_compile||5.005000|
>>> +fbm_instr||5.005000|
>>> +feature_is_enabled|||
>>> +filter_add|||
>>> +filter_del|||
>>> +filter_gets|||
>>> +filter_read|||
>>> +finalize_optree|||
>>> +finalize_op|||
>>> +find_and_forget_pmops|||
>>> +find_array_subscript|||
>>> +find_beginning|||
>>> +find_byclass|||
>>> +find_default_stash|||
>>> +find_hash_subscript|||
>>> +find_in_my_stash|||
>>> +find_lexical_cv|||
>>> +find_runcv_where|||
>>> +find_runcv||5.008001|
>>> +find_rundefsvoffset||5.009002|
>>> +find_rundefsv||5.013002|
>>> +find_script|||
>>> +find_uninit_var|||
>>> +first_symbol|||n
>>> +fixup_errno_string|||
>>> +foldEQ_latin1||5.013008|n
>>> +foldEQ_locale||5.013002|n
>>> +foldEQ_utf8_flags||5.013010|
>>> +foldEQ_utf8||5.013002|
>>> +foldEQ||5.013002|n
>>> +fold_constants|||
>>> +forbid_setid|||
>>> +force_ident_maybe_lex|||
>>> +force_ident|||
>>> +force_list|||
>>> +force_next|||
>>> +force_strict_version|||
>>> +force_version|||
>>> +force_word|||
>>> +forget_pmop|||
>>> +form_nocontext|||vn
>>> +form_short_octal_warning|||
>>> +form||5.004000|v
>>> +fp_dup|||
>>> +fprintf_nocontext|||vn
>>> +free_c_backtrace|||
>>> +free_global_struct|||
>>> +free_tied_hv_pool|||
>>> +free_tmps|||
>>> +gen_constant_list|||
>>> +get_ANYOF_cp_list_for_ssc|||
>>> +get_and_check_backslash_N_name|||
>>> +get_aux_mg|||
>>> +get_av|5.006000||p
>>> +get_c_backtrace_dump|||
>>> +get_c_backtrace|||
>>> +get_context||5.006000|n
>>> +get_cvn_flags|||
>>> +get_cvs|5.011000||p
>>> +get_cv|5.006000||p
>>> +get_db_sub|||
>>> +get_debug_opts|||
>>> +get_hash_seed|||
>>> +get_hv|5.006000||p
>>> +get_invlist_iter_addr|||n
>>> +get_invlist_offset_addr|||n
>>> +get_invlist_previous_index_addr|||n
>>> +get_mstats|||
>>> +get_no_modify|||
>>> +get_num|||
>>> +get_op_descs||5.005000|
>>> +get_op_names||5.005000|
>>> +get_opargs|||
>>> +get_ppaddr||5.006000|
>>> +get_re_arg|||
>>> +get_sv|5.006000||p
>>> +get_vtbl||5.005030|
>>> +getcwd_sv||5.007002|
>>> +getenv_len|||
>>> +glob_2number|||
>>> +glob_assign_glob|||
>>> +gp_dup|||
>>> +gp_free|||
>>> +gp_ref|||
>>> +grok_atoUV|||n
>>> +grok_bin|5.007003||p
>>> +grok_bslash_N|||
>>> +grok_bslash_c|||
>>> +grok_bslash_o|||
>>> +grok_bslash_x|||
>>> +grok_hex|5.007003||p
>>> +grok_infnan||5.021004|
>>> +grok_number_flags||5.021002|
>>> +grok_number|5.007002||p
>>> +grok_numeric_radix|5.007002||p
>>> +grok_oct|5.007003||p
>>> +group_end|||
>>> +gv_AVadd|||
>>> +gv_HVadd|||
>>> +gv_IOadd|||
>>> +gv_SVadd|||
>>> +gv_add_by_type||5.011000|
>>> +gv_autoload4||5.004000|
>>> +gv_autoload_pvn||5.015004|
>>> +gv_autoload_pv||5.015004|
>>> +gv_autoload_sv||5.015004|
>>> +gv_check|||
>>> +gv_const_sv||5.009003|
>>> +gv_dump||5.006000|
>>> +gv_efullname3||5.003070|
>>> +gv_efullname4||5.006001|
>>> +gv_efullname|||
>>> +gv_fetchfile_flags||5.009005|
>>> +gv_fetchfile|||
>>> +gv_fetchmeth_autoload||5.007003|
>>> +gv_fetchmeth_internal|||
>>> +gv_fetchmeth_pv_autoload||5.015004|
>>> +gv_fetchmeth_pvn_autoload||5.015004|
>>> +gv_fetchmeth_pvn||5.015004|
>>> +gv_fetchmeth_pv||5.015004|
>>> +gv_fetchmeth_sv_autoload||5.015004|
>>> +gv_fetchmeth_sv||5.015004|
>>> +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_fetchmeth|||
>>> +gv_fetchpvn_flags|5.009002||p
>>> +gv_fetchpvs|5.009004||p
>>> +gv_fetchpv|||
>>> +gv_fetchsv|||
>>> +gv_fullname3||5.003070|
>>> +gv_fullname4||5.006001|
>>> +gv_fullname|||
>>> +gv_handler||5.007001|
>>> +gv_init_pvn|||
>>> +gv_init_pv||5.015004|
>>> +gv_init_svtype|||
>>> +gv_init_sv||5.015004|
>>> +gv_init|||
>>> +gv_is_in_main|||
>>> +gv_magicalize_isa|||
>>> +gv_magicalize|||
>>> +gv_name_set||5.009004|
>>> +gv_override|||
>>> +gv_setref|||
>>> +gv_stashpvn_internal|||
>>> +gv_stashpvn|5.003070||p
>>> +gv_stashpvs|5.009003||p
>>> +gv_stashpv|||
>>> +gv_stashsvpvn_cached|||
>>> +gv_stashsv|||
>>> +gv_try_downgrade|||
>>> +handle_named_backref|||
>>> +handle_possible_posix|||
>>> +handle_regex_sets|||
>>> +he_dup|||
>>> +hek_dup|||
>>> +hfree_next_entry|||
>>> +hsplit|||
>>> +hv_assert|||
>>> +hv_auxinit_internal|||n
>>> +hv_auxinit|||
>>> +hv_backreferences_p|||
>>> +hv_clear_placeholders||5.009001|
>>> +hv_clear|||
>>> +hv_common_key_len||5.010000|
>>> +hv_common||5.010000|
>>> +hv_copy_hints_hv||5.009004|
>>> +hv_delayfree_ent||5.004000|
>>> +hv_delete_common|||
>>> +hv_delete_ent||5.003070|
>>> +hv_delete|||
>>> +hv_eiter_p||5.009003|
>>> +hv_eiter_set||5.009003|
>>> +hv_ename_add|||
>>> +hv_ename_delete|||
>>> +hv_exists_ent||5.003070|
>>> +hv_exists|||
>>> +hv_fetch_ent||5.003070|
>>> +hv_fetchs|5.009003||p
>>> +hv_fetch|||
>>> +hv_fill||5.013002|
>>> +hv_free_ent_ret|||
>>> +hv_free_entries|||
>>> +hv_free_ent||5.004000|
>>> +hv_iterinit|||
>>> +hv_iterkeysv||5.003070|
>>> +hv_iterkey|||
>>> +hv_iternext_flags||5.008000|
>>> +hv_iternextsv|||
>>> +hv_iternext|||
>>> +hv_iterval|||
>>> +hv_kill_backrefs|||
>>> +hv_ksplit||5.003070|
>>> +hv_magic_check|||n
>>> +hv_magic|||
>>> +hv_name_set||5.009003|
>>> +hv_notallowed|||
>>> +hv_placeholders_get||5.009003|
>>> +hv_placeholders_p|||
>>> +hv_placeholders_set||5.009003|
>>> +hv_rand_set||5.018000|
>>> +hv_riter_p||5.009003|
>>> +hv_riter_set||5.009003|
>>> +hv_scalar||5.009001|
>>> +hv_store_ent||5.003070|
>>> +hv_store_flags||5.008000|
>>> +hv_stores|5.009004||p
>>> +hv_store|||
>>> +hv_undef_flags|||
>>> +hv_undef|||
>>> +ibcmp_locale||5.004000|
>>> +ibcmp_utf8||5.007003|
>>> +ibcmp|||
>>> +incline|||
>>> +incpush_if_exists|||
>>> +incpush_use_sep|||
>>> +incpush|||
>>> +ingroup|||
>>> +init_argv_symbols|||
>>> +init_constants|||
>>> +init_dbargs|||
>>> +init_debugger|||
>>> +init_global_struct|||
>>> +init_i18nl10n||5.006000|
>>> +init_i18nl14n||5.006000|
>>> +init_ids|||
>>> +init_interp|||
>>> +init_main_stash|||
>>> +init_perllib|||
>>> +init_postdump_symbols|||
>>> +init_predump_symbols|||
>>> +init_stacks||5.005000|
>>> +init_tm||5.007002|
>>> +inplace_aassign|||
>>> +instr|||n
>>> +intro_my||5.004000|
>>> +intuit_method|||
>>> +intuit_more|||
>>> +invert|||
>>> +invlist_array|||n
>>> +invlist_clear|||
>>> +invlist_clone|||
>>> +invlist_contents|||
>>> +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_replace_list_destroys_src|||
>>> +invlist_set_len|||
>>> +invlist_set_previous_index|||n
>>> +invlist_trim|||n
>>> +invoke_exception_hook|||
>>> +io_close|||
>>> +isALNUMC|5.006000||p
>>> +isALNUM_lazy||5.021001|
>>> +isALPHANUMERIC||5.017008|
>>> +isALPHA|||
>>> +isASCII|5.006000||p
>>> +isBLANK|5.006001||p
>>> +isCNTRL|5.006000||p
>>> +isDIGIT|||
>>> +isFOO_lc|||
>>> +isFOO_utf8_lc|||
>>> +isGCB|||n
>>> +isGRAPH|5.006000||p
>>> +isIDCONT||5.017008|
>>> +isIDFIRST_lazy||5.021001|
>>> +isIDFIRST|||
>>> +isLB|||
>>> +isLOWER|||
>>> +isOCTAL||5.013005|
>>> +isPRINT|5.004000||p
>>> +isPSXSPC|5.006001||p
>>> +isPUNCT|5.006000||p
>>> +isSB|||
>>> +isSPACE|||
>>> +isUPPER|||
>>> +isUTF8_CHAR||5.021001|
>>> +isWB|||
>>> +isWORDCHAR||5.013006|
>>> +isXDIGIT|5.006000||p
>>> +is_an_int|||
>>> +is_ascii_string||5.011000|
>>> +is_handle_constructor|||n
>>> +is_invariant_string||5.021007|n
>>> +is_lvalue_sub||5.007001|
>>> +is_safe_syscall||5.019004|
>>> +is_ssc_worth_it|||n
>>> +is_uni_alnum_lc||5.006000|
>>> +is_uni_alnumc_lc||5.017007|
>>> +is_uni_alnumc||5.017007|
>>> +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||5.006000|n
>>> +is_utf8_cntrl||5.006000|
>>> +is_utf8_common|||
>>> +is_utf8_digit||5.006000|
>>> +is_utf8_graph||5.006000|
>>> +is_utf8_idcont||5.008000|
>>> +is_utf8_idfirst||5.006000|
>>> +is_utf8_lower||5.006000|
>>> +is_utf8_mark||5.006000|
>>> +is_utf8_perl_space||5.011001|
>>> +is_utf8_perl_word||5.011001|
>>> +is_utf8_posix_digit||5.011001|
>>> +is_utf8_print||5.006000|
>>> +is_utf8_punct||5.006000|
>>> +is_utf8_space||5.006000|
>>> +is_utf8_string_loclen||5.009003|n
>>> +is_utf8_string_loc||5.008001|n
>>> +is_utf8_string||5.006001|n
>>> +is_utf8_upper||5.006000|
>>> +is_utf8_xdigit||5.006000|
>>> +is_utf8_xidcont||5.013010|
>>> +is_utf8_xidfirst||5.013010|
>>> +isa_lookup|||
>>> +isinfnansv|||
>>> +isinfnan||5.021004|n
>>> +items|||n
>>> +ix|||n
>>> +jmaybe|||
>>> +join_exact|||
>>> +keyword_plugin_standard|||
>>> +keyword|||
>>> +leave_adjust_stacks||5.023008|
>>> +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_pv||5.013006|
>>> +lex_stuff_sv||5.011002|
>>> +lex_unstuff||5.011002|
>>> +listkids|||
>>> +list|||
>>> +load_module_nocontext|||vn
>>> +load_module|5.006000||pv
>>> +localize|||
>>> +looks_like_bool|||
>>> +looks_like_number|||
>>> +lop|||
>>> +mPUSHi|5.009002||p
>>> +mPUSHn|5.009002||p
>>> +mPUSHp|5.009002||p
>>> +mPUSHs|5.010001||p
>>> +mPUSHu|5.009002||p
>>> +mXPUSHi|5.009002||p
>>> +mXPUSHn|5.009002||p
>>> +mXPUSHp|5.009002||p
>>> +mXPUSHs|5.010001||p
>>> +mXPUSHu|5.009002||p
>>> +magic_clear_all_env|||
>>> +magic_cleararylen_p|||
>>> +magic_clearenv|||
>>> +magic_clearhints|||
>>> +magic_clearhint|||
>>> +magic_clearisa|||
>>> +magic_clearpack|||
>>> +magic_clearsig|||
>>> +magic_copycallchecker|||
>>> +magic_dump||5.006000|
>>> +magic_existspack|||
>>> +magic_freearylen_p|||
>>> +magic_freeovrld|||
>>> +magic_getarylen|||
>>> +magic_getdebugvar|||
>>> +magic_getdefelem|||
>>> +magic_getnkeys|||
>>> +magic_getpack|||
>>> +magic_getpos|||
>>> +magic_getsig|||
>>> +magic_getsubstr|||
>>> +magic_gettaint|||
>>> +magic_getuvar|||
>>> +magic_getvec|||
>>> +magic_get|||
>>> +magic_killbackrefs|||
>>> +magic_methcall1|||
>>> +magic_methcall|||v
>>> +magic_methpack|||
>>> +magic_nextpack|||
>>> +magic_regdata_cnt|||
>>> +magic_regdatum_get|||
>>> +magic_regdatum_set|||
>>> +magic_scalarpack|||
>>> +magic_set_all_env|||
>>> +magic_setarylen|||
>>> +magic_setcollxfrm|||
>>> +magic_setdbline|||
>>> +magic_setdebugvar|||
>>> +magic_setdefelem|||
>>> +magic_setenv|||
>>> +magic_sethint|||
>>> +magic_setisa|||
>>> +magic_setlvref|||
>>> +magic_setmglob|||
>>> +magic_setnkeys|||
>>> +magic_setpack|||
>>> +magic_setpos|||
>>> +magic_setregexp|||
>>> +magic_setsig|||
>>> +magic_setsubstr|||
>>> +magic_settaint|||
>>> +magic_setutf8|||
>>> +magic_setuvar|||
>>> +magic_setvec|||
>>> +magic_set|||
>>> +magic_sizepack|||
>>> +magic_wipepack|||
>>> +make_matcher|||
>>> +make_trie|||
>>> +malloc_good_size|||n
>>> +malloced_size|||n
>>> +malloc||5.007002|n
>>> +markstack_grow||5.021001|
>>> +matcher_matches_sv|||
>>> +maybe_multimagic_gv|||
>>> +mayberelocate|||
>>> +measure_struct|||
>>> +memEQs|5.009005||p
>>> +memEQ|5.004000||p
>>> +memNEs|5.009005||p
>>> +memNE|5.004000||p
>>> +mem_collxfrm|||
>>> +mem_log_alloc|||n
>>> +mem_log_common|||n
>>> +mem_log_free|||n
>>> +mem_log_realloc|||n
>>> +mess_alloc|||
>>> +mess_nocontext|||pvn
>>> +mess_sv|5.013001||p
>>> +mess|5.006000||pv
>>> +mfree||5.007002|n
>>> +mg_clear|||
>>> +mg_copy|||
>>> +mg_dup|||
>>> +mg_find_mglob|||
>>> +mg_findext|5.013008||pn
>>> +mg_find|||n
>>> +mg_free_type||5.013006|
>>> +mg_free|||
>>> +mg_get|||
>>> +mg_length||5.005000|
>>> +mg_localize|||
>>> +mg_magical|||n
>>> +mg_set|||
>>> +mg_size||5.005000|
>>> +mini_mktime||5.007002|n
>>> +minus_v|||
>>> +missingterm|||
>>> +mode_from_discipline|||
>>> +modkids|||
>>> +more_bodies|||
>>> +more_sv|||
>>> +moreswitches|||
>>> +move_proto_attr|||
>>> +mro_clean_isarev|||
>>> +mro_gather_and_rename|||
>>> +mro_get_from_name||5.010001|
>>> +mro_get_linear_isa_dfs|||
>>> +mro_get_linear_isa||5.009005|
>>> +mro_get_private_data||5.010001|
>>> +mro_isa_changed_in|||
>>> +mro_meta_dup|||
>>> +mro_meta_init|||
>>> +mro_method_changed_in||5.009005|
>>> +mro_package_moved|||
>>> +mro_register||5.010001|
>>> +mro_set_mro||5.010001|
>>> +mro_set_private_data||5.010001|
>>> +mul128|||
>>> +mulexp10|||n
>>> +multideref_stringify|||
>>> +my_atof2||5.007002|
>>> +my_atof||5.006000|
>>> +my_attrs|||
>>> +my_bcopy||5.004050|n
>>> +my_bytes_to_utf8|||n
>>> +my_bzero|||n
>>> +my_chsize|||
>>> +my_clearenv|||
>>> +my_cxt_index|||
>>> +my_cxt_init|||
>>> +my_dirfd||5.009005|n
>>> +my_exit_jump|||
>>> +my_exit|||
>>> +my_failure_exit||5.004000|
>>> +my_fflush_all||5.006000|
>>> +my_fork||5.007003|n
>>> +my_kid|||
>>> +my_lstat_flags|||
>>> +my_lstat||5.024000|
>>> +my_memcmp|||n
>>> +my_memset|||n
>>> +my_pclose||5.003070|
>>> +my_popen_list||5.007001|
>>> +my_popen||5.003070|
>>> +my_setenv|||
>>> +my_setlocale|||
>>> +my_snprintf|5.009004||pvn
>>> +my_socketpair||5.007003|n
>>> +my_sprintf|5.009003||pvn
>>> +my_stat_flags|||
>>> +my_stat||5.024000|
>>> +my_strerror||5.021001|
>>> +my_strftime||5.007002|
>>> +my_strlcat|5.009004||pn
>>> +my_strlcpy|5.009004||pn
>>> +my_unexec|||
>>> +my_vsnprintf||5.009004|n
>>> +need_utf8|||n
>>> +newANONATTRSUB||5.006000|
>>> +newANONHASH|||
>>> +newANONLIST|||
>>> +newANONSUB|||
>>> +newASSIGNOP|||
>>> +newATTRSUB_x|||
>>> +newATTRSUB||5.006000|
>>> +newAVREF|||
>>> +newAV|||
>>> +newBINOP|||
>>> +newCONDOP|||
>>> +newCONSTSUB_flags||5.015006|
>>> +newCONSTSUB|5.004050||p
>>> +newCVREF|||
>>> +newDEFSVOP||5.021006|
>>> +newFORM|||
>>> +newFOROP||5.013007|
>>> +newGIVENOP||5.009003|
>>> +newGIVWHENOP|||
>>> +newGP|||
>>> +newGVOP|||
>>> +newGVREF|||
>>> +newGVgen_flags||5.015004|
>>> +newGVgen|||
>>> +newHVREF|||
>>> +newHVhv||5.005000|
>>> +newHV|||
>>> +newIO|||
>>> +newLISTOP|||
>>> +newLOGOP|||
>>> +newLOOPEX|||
>>> +newLOOPOP|||
>>> +newMETHOP_internal|||
>>> +newMETHOP_named||5.021005|
>>> +newMETHOP||5.021005|
>>> +newMYSUB||5.017004|
>>> +newNULLLIST|||
>>> +newOP|||
>>> +newPADNAMELIST||5.021007|n
>>> +newPADNAMEouter||5.021007|n
>>> +newPADNAMEpvn||5.021007|n
>>> +newPADOP|||
>>> +newPMOP|||
>>> +newPROG|||
>>> +newPVOP|||
>>> +newRANGE|||
>>> +newRV_inc|5.004000||p
>>> +newRV_noinc|5.004000||p
>>> +newRV|||
>>> +newSLICEOP|||
>>> +newSTATEOP|||
>>> +newSTUB|||
>>> +newSUB|||
>>> +newSVOP|||
>>> +newSVREF|||
>>> +newSV_type|5.009005||p
>>> +newSVavdefelem|||
>>> +newSVhek||5.009003|
>>> +newSViv|||
>>> +newSVnv|||
>>> +newSVpadname||5.017004|
>>> +newSVpv_share||5.013006|
>>> +newSVpvf_nocontext|||vn
>>> +newSVpvf||5.004000|v
>>> +newSVpvn_flags|5.010001||p
>>> +newSVpvn_share|5.007001||p
>>> +newSVpvn_utf8|5.010001||p
>>> +newSVpvn|5.004050||p
>>> +newSVpvs_flags|5.010001||p
>>> +newSVpvs_share|5.009003||p
>>> +newSVpvs|5.009003||p
>>> +newSVpv|||
>>> +newSVrv|||
>>> +newSVsv|||
>>> +newSVuv|5.006000||p
>>> +newSV|||
>>> +newUNOP_AUX||5.021007|
>>> +newUNOP|||
>>> +newWHENOP||5.009003|
>>> +newWHILEOP||5.013007|
>>> +newXS_deffile|||
>>> +newXS_flags||5.009004|
>>> +newXS_len_flags|||
>>> +newXSproto||5.006000|
>>> +newXS||5.006000|
>>> +new_collate||5.006000|
>>> +new_constant|||
>>> +new_ctype||5.006000|
>>> +new_he|||
>>> +new_logop|||
>>> +new_numeric||5.006000|
>>> +new_stackinfo||5.005000|
>>> +new_version||5.009000|
>>> +new_warnings_bitfield|||
>>> +next_symbol|||
>>> +nextargv|||
>>> +nextchar|||
>>> +ninstr|||n
>>> +no_bareword_allowed|||
>>> +no_fh_allowed|||
>>> +no_op|||
>>> +noperl_die|||vn
>>> +not_a_number|||
>>> +not_incrementable|||
>>> +nothreadhook||5.008000|
>>> +nuke_stacks|||
>>> +num_overflow|||n
>>> +oopsAV|||
>>> +oopsHV|||
>>> +op_append_elem||5.013006|
>>> +op_append_list||5.013006|
>>> +op_clear|||
>>> +op_contextualize||5.013006|
>>> +op_convert_list||5.021006|
>>> +op_dump||5.006000|
>>> +op_free|||
>>> +op_integerize|||
>>> +op_linklist||5.013006|
>>> +op_lvalue_flags|||
>>> +op_lvalue||5.013007|
>>> +op_null||5.007002|
>>> +op_parent|||n
>>> +op_prepend_elem||5.013006|
>>> +op_refcnt_dec|||
>>> +op_refcnt_inc|||
>>> +op_refcnt_lock||5.009002|
>>> +op_refcnt_unlock||5.009002|
>>> +op_relocate_sv|||
>>> +op_scope||5.013007|
>>> +op_sibling_splice||5.021002|n
>>> +op_std_init|||
>>> +op_unscope|||
>>> +open_script|||
>>> +openn_cleanup|||
>>> +openn_setup|||
>>> +opmethod_stash|||
>>> +opslab_force_free|||
>>> +opslab_free_nopad|||
>>> +opslab_free|||
>>> +output_or_return_posix_warnings|||
>>> +pMY_CXT_|5.007003||p
>>> +pMY_CXT|5.007003||p
>>> +pTHX_|5.006000||p
>>> +pTHX|5.006000||p
>>> +packWARN|5.007003||p
>>> +pack_cat||5.007003|
>>> +pack_rec|||
>>> +package_version|||
>>> +package|||
>>> +packlist||5.008001|
>>> +pad_add_anon||5.008001|
>>> +pad_add_name_pvn||5.015001|
>>> +pad_add_name_pvs||5.015001|
>>> +pad_add_name_pv||5.015001|
>>> +pad_add_name_sv||5.015001|
>>> +pad_add_weakref|||
>>> +pad_alloc_name|||
>>> +pad_alloc|||
>>> +pad_block_start|||
>>> +pad_check_dup|||
>>> +pad_compname_type||5.009003|
>>> +pad_findlex|||
>>> +pad_findmy_pvn||5.015001|
>>> +pad_findmy_pvs||5.015001|
>>> +pad_findmy_pv||5.015001|
>>> +pad_findmy_sv||5.015001|
>>> +pad_fixup_inner_anons|||
>>> +pad_free|||
>>> +pad_leavemy|||
>>> +pad_new||5.008001|
>>> +pad_push|||
>>> +pad_reset|||
>>> +pad_setsv|||
>>> +pad_sv|||
>>> +pad_swipe|||
>>> +pad_tidy||5.008001|
>>> +padlist_dup|||
>>> +padlist_store|||
>>> +padname_dup|||
>>> +padname_free|||
>>> +padnamelist_dup|||
>>> +padnamelist_fetch||5.021007|n
>>> +padnamelist_free|||
>>> +padnamelist_store||5.021007|
>>> +parse_arithexpr||5.013008|
>>> +parse_barestmt||5.013007|
>>> +parse_block||5.013007|
>>> +parse_body|||
>>> +parse_fullexpr||5.013008|
>>> +parse_fullstmt||5.013005|
>>> +parse_gv_stash_name|||
>>> +parse_ident|||
>>> +parse_label||5.013007|
>>> +parse_listexpr||5.013008|
>>> +parse_lparen_question_flags|||
>>> +parse_stmtseq||5.013006|
>>> +parse_subsignature|||
>>> +parse_termexpr||5.013008|
>>> +parse_unicode_opts|||
>>> +parser_dup|||
>>> +parser_free_nexttoke_ops|||
>>> +parser_free|||
>>> +path_is_searchable|||n
>>> +peep|||
>>> +pending_ident|||
>>> +perl_alloc_using|||n
>>> +perl_alloc|||n
>>> +perl_clone_using|||n
>>> +perl_clone|||n
>>> +perl_construct|||n
>>> +perl_destruct||5.007003|n
>>> +perl_free|||n
>>> +perl_parse||5.006000|n
>>> +perl_run|||n
>>> +pidgone|||
>>> +pm_description|||
>>> +pmop_dump||5.006000|
>>> +pmruntime|||
>>> +pmtrans|||
>>> +pop_scope|||
>>> +populate_ANYOF_from_invlist|||
>>> +populate_isa|||v
>>> +pregcomp||5.009005|
>>> +pregexec|||
>>> +pregfree2||5.011000|
>>> +pregfree|||
>>> +prescan_version||5.011004|
>>> +printbuf|||
>>> +printf_nocontext|||vn
>>> +process_special_blocks|||
>>> +ptr_hash|||n
>>> +ptr_table_clear||5.009005|
>>> +ptr_table_fetch||5.009005|
>>> +ptr_table_find|||n
>>> +ptr_table_free||5.009005|
>>> +ptr_table_new||5.009005|
>>> +ptr_table_split||5.009005|
>>> +ptr_table_store||5.009005|
>>> +push_scope|||
>>> +put_charclass_bitmap_innards_common|||
>>> +put_charclass_bitmap_innards_invlist|||
>>> +put_charclass_bitmap_innards|||
>>> +put_code_point|||
>>> +put_range|||
>>> +pv_display|5.006000||p
>>> +pv_escape|5.009004||p
>>> +pv_pretty|5.009004||p
>>> +pv_uni_display||5.007003|
>>> +qerror|||
>>> +qsortsvu|||
>>> +quadmath_format_needed|||n
>>> +quadmath_format_single|||n
>>> +re_compile||5.009005|
>>> +re_croak2|||
>>> +re_dup_guts|||
>>> +re_exec_indentf|||v
>>> +re_indentf|||v
>>> +re_intuit_start||5.019001|
>>> +re_intuit_string||5.006000|
>>> +re_op_compile|||
>>> +re_printf|||v
>>> +realloc||5.007002|n
>>> +reentrant_free||5.024000|
>>> +reentrant_init||5.024000|
>>> +reentrant_retry||5.024000|vn
>>> +reentrant_size||5.024000|
>>> +ref_array_or_hash|||
>>> +refcounted_he_chain_2hv|||
>>> +refcounted_he_fetch_pvn|||
>>> +refcounted_he_fetch_pvs|||
>>> +refcounted_he_fetch_pv|||
>>> +refcounted_he_fetch_sv|||
>>> +refcounted_he_free|||
>>> +refcounted_he_inc|||
>>> +refcounted_he_new_pvn|||
>>> +refcounted_he_new_pvs|||
>>> +refcounted_he_new_pv|||
>>> +refcounted_he_new_sv|||
>>> +refcounted_he_value|||
>>> +refkids|||
>>> +refto|||
>>> +ref||5.024000|
>>> +reg2Lanode|||
>>> +reg_check_named_buff_matched|||n
>>> +reg_named_buff_all||5.009005|
>>> +reg_named_buff_exists||5.009005|
>>> +reg_named_buff_fetch||5.009005|
>>> +reg_named_buff_firstkey||5.009005|
>>> +reg_named_buff_iter|||
>>> +reg_named_buff_nextkey||5.009005|
>>> +reg_named_buff_scalar||5.009005|
>>> +reg_named_buff|||
>>> +reg_node|||
>>> +reg_numbered_buff_fetch|||
>>> +reg_numbered_buff_length|||
>>> +reg_numbered_buff_store|||
>>> +reg_qr_package|||
>>> +reg_recode|||
>>> +reg_scan_name|||
>>> +reg_skipcomment|||n
>>> +reg_temp_copy|||
>>> +reganode|||
>>> +regatom|||
>>> +regbranch|||
>>> +regclass_swash||5.009004|
>>> +regclass|||
>>> +regcppop|||
>>> +regcppush|||
>>> +regcurly|||n
>>> +regdump_extflags|||
>>> +regdump_intflags|||
>>> +regdump||5.005000|
>>> +regdupe_internal|||
>>> +regex_set_precedence|||n
>>> +regexec_flags||5.005000|
>>> +regfree_internal||5.009005|
>>> +reghop3|||n
>>> +reghop4|||n
>>> +reghopmaybe3|||n
>>> +reginclass|||
>>> +reginitcolors||5.006000|
>>> +reginsert|||
>>> +regmatch|||
>>> +regnext||5.005000|
>>> +regnode_guts|||
>>> +regpiece|||
>>> +regprop|||
>>> +regrepeat|||
>>> +regtail_study|||
>>> +regtail|||
>>> +regtry|||
>>> +reg|||
>>> +repeatcpy|||n
>>> +report_evil_fh|||
>>> +report_redefined_cv|||
>>> +report_uninit|||
>>> +report_wrongway_fh|||
>>> +require_pv||5.006000|
>>> +require_tie_mod|||
>>> +restore_magic|||
>>> +rninstr|||n
>>> +rpeep|||
>>> +rsignal_restore|||
>>> +rsignal_save|||
>>> +rsignal_state||5.004000|
>>> +rsignal||5.004000|
>>> +run_body|||
>>> +run_user_filter|||
>>> +runops_debug||5.005000|
>>> +runops_standard||5.005000|
>>> +rv2cv_op_cv||5.013006|
>>> +rvpv_dup|||
>>> +rxres_free|||
>>> +rxres_restore|||
>>> +rxres_save|||
>>> +safesyscalloc||5.006000|n
>>> +safesysfree||5.006000|n
>>> +safesysmalloc||5.006000|n
>>> +safesysrealloc||5.006000|n
>>> +same_dirent|||
>>> +save_I16||5.004000|
>>> +save_I32|||
>>> +save_I8||5.006000|
>>> +save_adelete||5.011000|
>>> +save_aelem_flags||5.011000|
>>> +save_aelem||5.004050|
>>> +save_alloc||5.006000|
>>> +save_aptr|||
>>> +save_ary|||
>>> +save_bool||5.008001|
>>> +save_clearsv|||
>>> +save_delete|||
>>> +save_destructor_x||5.006000|
>>> +save_destructor||5.006000|
>>> +save_freeop|||
>>> +save_freepv|||
>>> +save_freesv|||
>>> +save_generic_pvref||5.006001|
>>> +save_generic_svref||5.005030|
>>> +save_gp||5.004000|
>>> +save_hash|||
>>> +save_hdelete||5.011000|
>>> +save_hek_flags|||n
>>> +save_helem_flags||5.011000|
>>> +save_helem||5.004050|
>>> +save_hints||5.010001|
>>> +save_hptr|||
>>> +save_int|||
>>> +save_item|||
>>> +save_iv||5.005000|
>>> +save_lines|||
>>> +save_list|||
>>> +save_long|||
>>> +save_magic_flags|||
>>> +save_mortalizesv||5.007001|
>>> +save_nogv|||
>>> +save_op||5.005000|
>>> +save_padsv_and_mortalize||5.010001|
>>> +save_pptr|||
>>> +save_pushi32ptr||5.010001|
>>> +save_pushptri32ptr|||
>>> +save_pushptrptr||5.010001|
>>> +save_pushptr||5.010001|
>>> +save_re_context||5.006000|
>>> +save_scalar_at|||
>>> +save_scalar|||
>>> +save_set_svflags||5.009000|
>>> +save_shared_pvref||5.007003|
>>> +save_sptr|||
>>> +save_strlen|||
>>> +save_svref|||
>>> +save_vptr||5.006000|
>>> +savepvn|||
>>> +savepvs||5.009003|
>>> +savepv|||
>>> +savesharedpvn||5.009005|
>>> +savesharedpvs||5.013006|
>>> +savesharedpv||5.007003|
>>> +savesharedsvpv||5.013006|
>>> +savestack_grow_cnt||5.008001|
>>> +savestack_grow|||
>>> +savesvpv||5.009002|
>>> +savetmps||5.023008|
>>> +sawparens|||
>>> +scalar_mod_type|||n
>>> +scalarboolean|||
>>> +scalarkids|||
>>> +scalarseq|||
>>> +scalarvoid|||
>>> +scalar|||
>>> +scan_bin||5.006000|
>>> +scan_commit|||
>>> +scan_const|||
>>> +scan_formline|||
>>> +scan_heredoc|||
>>> +scan_hex|||
>>> +scan_ident|||
>>> +scan_inputsymbol|||
>>> +scan_num||5.007001|
>>> +scan_oct|||
>>> +scan_pat|||
>>> +scan_str|||
>>> +scan_subst|||
>>> +scan_trans|||
>>> +scan_version||5.009001|
>>> +scan_vstring||5.009005|
>>> +scan_word|||
>>> +search_const|||
>>> +seed||5.008001|
>>> +sequence_num|||
>>> +set_ANYOF_arg|||
>>> +set_caret_X|||
>>> +set_context||5.006000|n
>>> +set_numeric_local||5.006000|
>>> +set_numeric_radix||5.006000|
>>> +set_numeric_standard||5.006000|
>>> +set_padlist|||n
>>> +setdefout|||
>>> +share_hek_flags|||
>>> +share_hek||5.004000|
>>> +should_warn_nl|||n
>>> +si_dup|||
>>> +sighandler|||n
>>> +simplify_sort|||
>>> +skip_to_be_ignored_text|||
>>> +skipspace_flags|||
>>> +softref2xv|||
>>> +sortcv_stacked|||
>>> +sortcv_xsub|||
>>> +sortcv|||
>>> +sortsv_flags||5.009003|
>>> +sortsv||5.007003|
>>> +space_join_names_mortal|||
>>> +ss_dup|||
>>> +ssc_add_range|||
>>> +ssc_and|||
>>> +ssc_anything|||
>>> +ssc_clear_locale|||n
>>> +ssc_cp_and|||
>>> +ssc_finalize|||
>>> +ssc_init|||
>>> +ssc_intersection|||
>>> +ssc_is_anything|||n
>>> +ssc_is_cp_posixl_init|||n
>>> +ssc_or|||
>>> +ssc_union|||
>>> +stack_grow|||
>>> +start_glob|||
>>> +start_subparse||5.004000|
>>> +stdize_locale|||
>>> +strEQ|||
>>> +strGE|||
>>> +strGT|||
>>> +strLE|||
>>> +strLT|||
>>> +strNE|||
>>> +str_to_version||5.006000|
>>> +strip_return|||
>>> +strnEQ|||
>>> +strnNE|||
>>> +study_chunk|||
>>> +sub_crush_depth|||
>>> +sublex_done|||
>>> +sublex_push|||
>>> +sublex_start|||
>>> +sv_2bool_flags||5.013006|
>>> +sv_2bool|||
>>> +sv_2cv|||
>>> +sv_2io|||
>>> +sv_2iuv_common|||
>>> +sv_2iuv_non_preserve|||
>>> +sv_2iv_flags||5.009001|
>>> +sv_2iv|||
>>> +sv_2mortal|||
>>> +sv_2num|||
>>> +sv_2nv_flags||5.013001|
>>> +sv_2pv_flags|5.007002||p
>>> +sv_2pv_nolen|5.006000||p
>>> +sv_2pvbyte_nolen|5.006000||p
>>> +sv_2pvbyte|5.006000||p
>>> +sv_2pvutf8_nolen||5.006000|
>>> +sv_2pvutf8||5.006000|
>>> +sv_2pv|||
>>> +sv_2uv_flags||5.009001|
>>> +sv_2uv|5.004000||p
>>> +sv_add_arena|||
>>> +sv_add_backref|||
>>> +sv_backoff|||n
>>> +sv_bless|||
>>> +sv_buf_to_ro|||
>>> +sv_buf_to_rw|||
>>> +sv_cat_decode||5.008001|
>>> +sv_catpv_flags||5.013006|
>>> +sv_catpv_mg|5.004050||p
>>> +sv_catpv_nomg||5.013006|
>>> +sv_catpvf_mg_nocontext|||pvn
>>> +sv_catpvf_mg|5.006000|5.004000|pv
>>> +sv_catpvf_nocontext|||vn
>>> +sv_catpvf||5.004000|v
>>> +sv_catpvn_flags||5.007002|
>>> +sv_catpvn_mg|5.004050||p
>>> +sv_catpvn_nomg|5.007002||p
>>> +sv_catpvn|||
>>> +sv_catpvs_flags||5.013006|
>>> +sv_catpvs_mg||5.013006|
>>> +sv_catpvs_nomg||5.013006|
>>> +sv_catpvs|5.009003||p
>>> +sv_catpv|||
>>> +sv_catsv_flags||5.007002|
>>> +sv_catsv_mg|5.004050||p
>>> +sv_catsv_nomg|5.007002||p
>>> +sv_catsv|||
>>> +sv_chop|||
>>> +sv_clean_all|||
>>> +sv_clean_objs|||
>>> +sv_clear|||
>>> +sv_cmp_flags||5.013006|
>>> +sv_cmp_locale_flags||5.013006|
>>> +sv_cmp_locale||5.004000|
>>> +sv_cmp|||
>>> +sv_collxfrm_flags||5.013006|
>>> +sv_collxfrm|||
>>> +sv_copypv_flags||5.017002|
>>> +sv_copypv_nomg||5.017002|
>>> +sv_copypv|||
>>> +sv_dec_nomg||5.013002|
>>> +sv_dec|||
>>> +sv_del_backref|||
>>> +sv_derived_from_pvn||5.015004|
>>> +sv_derived_from_pv||5.015004|
>>> +sv_derived_from_sv||5.015004|
>>> +sv_derived_from||5.004000|
>>> +sv_destroyable||5.010000|
>>> +sv_display|||
>>> +sv_does_pvn||5.015004|
>>> +sv_does_pv||5.015004|
>>> +sv_does_sv||5.015004|
>>> +sv_does||5.009004|
>>> +sv_dump|||
>>> +sv_dup_common|||
>>> +sv_dup_inc_multiple|||
>>> +sv_dup_inc|||
>>> +sv_dup|||
>>> +sv_eq_flags||5.013006|
>>> +sv_eq|||
>>> +sv_exp_grow|||
>>> +sv_force_normal_flags||5.007001|
>>> +sv_force_normal||5.006000|
>>> +sv_free2|||
>>> +sv_free_arenas|||
>>> +sv_free|||
>>> +sv_get_backrefs||5.021008|n
>>> +sv_gets||5.003070|
>>> +sv_grow|||
>>> +sv_i_ncmp|||
>>> +sv_inc_nomg||5.013002|
>>> +sv_inc|||
>>> +sv_insert_flags||5.010001|
>>> +sv_insert|||
>>> +sv_isa|||
>>> +sv_isobject|||
>>> +sv_iv||5.005000|
>>> +sv_kill_backrefs|||
>>> +sv_len_utf8_nomg|||
>>> +sv_len_utf8||5.006000|
>>> +sv_len|||
>>> +sv_magic_portable|5.024000|5.004000|p
>>> +sv_magicext_mglob|||
>>> +sv_magicext||5.007003|
>>> +sv_magic|||
>>> +sv_mortalcopy_flags|||
>>> +sv_mortalcopy|||
>>> +sv_ncmp|||
>>> +sv_newmortal|||
>>> +sv_newref|||
>>> +sv_nolocking||5.007003|
>>> +sv_nosharing||5.007003|
>>> +sv_nounlocking|||
>>> +sv_nv||5.005000|
>>> +sv_only_taint_gmagic|||n
>>> +sv_or_pv_pos_u2b|||
>>> +sv_peek||5.005000|
>>> +sv_pos_b2u_flags||5.019003|
>>> +sv_pos_b2u_midway|||
>>> +sv_pos_b2u||5.006000|
>>> +sv_pos_u2b_cached|||
>>> +sv_pos_u2b_flags||5.011005|
>>> +sv_pos_u2b_forwards|||n
>>> +sv_pos_u2b_midway|||n
>>> +sv_pos_u2b||5.006000|
>>> +sv_pvbyten_force||5.006000|
>>> +sv_pvbyten||5.006000|
>>> +sv_pvbyte||5.006000|
>>> +sv_pvn_force_flags|5.007002||p
>>> +sv_pvn_force|||
>>> +sv_pvn_nomg|5.007003|5.005000|p
>>> +sv_pvn||5.005000|
>>> +sv_pvutf8n_force||5.006000|
>>> +sv_pvutf8n||5.006000|
>>> +sv_pvutf8||5.006000|
>>> +sv_pv||5.006000|
>>> +sv_recode_to_utf8||5.007003|
>>> +sv_reftype|||
>>> +sv_ref||5.015004|
>>> +sv_replace|||
>>> +sv_report_used|||
>>> +sv_resetpvn|||
>>> +sv_reset|||
>>> +sv_rvweaken||5.006000|
>>> +sv_sethek|||
>>> +sv_setiv_mg|5.004050||p
>>> +sv_setiv|||
>>> +sv_setnv_mg|5.006000||p
>>> +sv_setnv|||
>>> +sv_setpv_mg|5.004050||p
>>> +sv_setpvf_mg_nocontext|||pvn
>>> +sv_setpvf_mg|5.006000|5.004000|pv
>>> +sv_setpvf_nocontext|||vn
>>> +sv_setpvf||5.004000|v
>>> +sv_setpviv_mg||5.008001|
>>> +sv_setpviv||5.008001|
>>> +sv_setpvn_mg|5.004050||p
>>> +sv_setpvn|||
>>> +sv_setpvs_mg||5.013006|
>>> +sv_setpvs|5.009004||p
>>> +sv_setpv|||
>>> +sv_setref_iv|||
>>> +sv_setref_nv|||
>>> +sv_setref_pvn|||
>>> +sv_setref_pvs||5.024000|
>>> +sv_setref_pv|||
>>> +sv_setref_uv||5.007001|
>>> +sv_setsv_cow|||
>>> +sv_setsv_flags||5.007002|
>>> +sv_setsv_mg|5.004050||p
>>> +sv_setsv_nomg|5.007002||p
>>> +sv_setsv|||
>>> +sv_setuv_mg|5.004050||p
>>> +sv_setuv|5.004000||p
>>> +sv_tainted||5.004000|
>>> +sv_taint||5.004000|
>>> +sv_true||5.005000|
>>> +sv_unglob|||
>>> +sv_uni_display||5.007003|
>>> +sv_unmagicext|5.013008||p
>>> +sv_unmagic|||
>>> +sv_unref_flags||5.007001|
>>> +sv_unref|||
>>> +sv_untaint||5.004000|
>>> +sv_upgrade|||
>>> +sv_usepvn_flags||5.009004|
>>> +sv_usepvn_mg|5.004050||p
>>> +sv_usepvn|||
>>> +sv_utf8_decode||5.006000|
>>> +sv_utf8_downgrade||5.006000|
>>> +sv_utf8_encode||5.006000|
>>> +sv_utf8_upgrade_flags_grow||5.011000|
>>> +sv_utf8_upgrade_flags||5.007002|
>>> +sv_utf8_upgrade_nomg||5.007002|
>>> +sv_utf8_upgrade||5.007001|
>>> +sv_uv|5.005000||p
>>> +sv_vcatpvf_mg|5.006000|5.004000|p
>>> +sv_vcatpvfn_flags||5.017002|
>>> +sv_vcatpvfn||5.004000|
>>> +sv_vcatpvf|5.006000|5.004000|p
>>> +sv_vsetpvf_mg|5.006000|5.004000|p
>>> +sv_vsetpvfn||5.004000|
>>> +sv_vsetpvf|5.006000|5.004000|p
>>> +svtype|||
>>> +swallow_bom|||
>>> +swash_fetch||5.007002|
>>> +swash_init||5.006000|
>>> +swash_scan_list_line|||
>>> +swatch_get|||
>>> +sync_locale||5.021004|
>>> +sys_init3||5.010000|n
>>> +sys_init||5.010000|n
>>> +sys_intern_clear|||
>>> +sys_intern_dup|||
>>> +sys_intern_init|||
>>> +sys_term||5.010000|n
>>> +taint_env|||
>>> +taint_proper|||
>>> +tied_method|||v
>>> +tmps_grow_p|||
>>> +toFOLD_utf8||5.019001|
>>> +toFOLD_uvchr||5.023009|
>>> +toFOLD||5.019001|
>>> +toLOWER_L1||5.019001|
>>> +toLOWER_LC||5.004000|
>>> +toLOWER_utf8||5.015007|
>>> +toLOWER_uvchr||5.023009|
>>> +toLOWER|||
>>> +toTITLE_utf8||5.015007|
>>> +toTITLE_uvchr||5.023009|
>>> +toTITLE||5.019001|
>>> +toUPPER_utf8||5.015007|
>>> +toUPPER_uvchr||5.023009|
>>> +toUPPER|||
>>> +to_byte_substr|||
>>> +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_title||5.015007|
>>> +to_utf8_upper||5.015007|
>>> +tokenize_use|||
>>> +tokeq|||
>>> +tokereport|||
>>> +too_few_arguments_pv|||
>>> +too_many_arguments_pv|||
>>> +translate_substr_offsets|||n
>>> +try_amagic_bin|||
>>> +try_amagic_un|||
>>> +uiv_2buf|||n
>>> +unlnk|||
>>> +unpack_rec|||
>>> +unpack_str||5.007003|
>>> +unpackstring||5.008001|
>>> +unreferenced_to_tmp_stack|||
>>> +unshare_hek_or_pvn|||
>>> +unshare_hek|||
>>> +unsharepvn||5.003070|
>>> +unwind_handler_stack|||
>>> +update_debugger_info|||
>>> +upg_version||5.009005|
>>> +usage|||
>>> +utf16_textfilter|||
>>> +utf16_to_utf8_reversed||5.006001|
>>> +utf16_to_utf8||5.006001|
>>> +utf8_distance||5.006000|
>>> +utf8_hop||5.006000|n
>>> +utf8_length||5.007001|
>>> +utf8_mg_len_cache_update|||
>>> +utf8_mg_pos_cache_update|||
>>> +utf8_to_bytes||5.006001|
>>> +utf8_to_uvchr_buf||5.015009|
>>> +utf8_to_uvchr||5.007001|
>>> +utf8_to_uvuni_buf||5.015009|
>>> +utf8_to_uvuni||5.007001|
>>> +utf8n_to_uvchr||5.007001|
>>> +utf8n_to_uvuni||5.007001|
>>> +utilize|||
>>> +uvchr_to_utf8_flags||5.007003|
>>> +uvchr_to_utf8||5.007001|
>>> +uvoffuni_to_utf8_flags||5.019004|
>>> +uvuni_to_utf8_flags||5.007003|
>>> +uvuni_to_utf8||5.007001|
>>> +valid_utf8_to_uvchr||5.015009|
>>> +valid_utf8_to_uvuni||5.015009|
>>> +validate_proto|||
>>> +validate_suid|||
>>> +varname|||
>>> +vcmp||5.009000|
>>> +vcroak||5.006000|
>>> +vdeb||5.007003|
>>> +vform||5.006000|
>>> +visit|||
>>> +vivify_defelem|||
>>> +vivify_ref|||
>>> +vload_module|5.006000||p
>>> +vmess|5.006000||p
>>> +vnewSVpvf|5.006000|5.004000|p
>>> +vnormal||5.009002|
>>> +vnumify||5.009000|
>>> +vstringify||5.009000|
>>> +vverify||5.009003|
>>> +vwarner||5.006000|
>>> +vwarn||5.006000|
>>> +wait4pid|||
>>> +warn_nocontext|||pvn
>>> +warn_sv|5.013001||p
>>> +warner_nocontext|||vn
>>> +warner|5.006000|5.004000|pv
>>> +warn|||v
>>> +was_lvalue_sub|||
>>> +watch|||
>>> +whichsig_pvn||5.015004|
>>> +whichsig_pv||5.015004|
>>> +whichsig_sv||5.015004|
>>> +whichsig|||
>>> +win32_croak_not_implemented|||n
>>> +with_queued_errors|||
>>> +wrap_op_checker||5.015008|
>>> +write_to_stderr|||
>>> +xs_boot_epilog|||
>>> +xs_handshake|||vn
>>> +xs_version_bootcheck|||
>>> +yyerror_pvn|||
>>> +yyerror_pv|||
>>> +yyerror|||
>>> +yylex|||
>>> +yyparse|||
>>> +yyunlex|||
>>> +yywarn|||
>>> +);
>>> +
>>> +if (exists $opt{'list-unsupported'}) {
>>> + my $f;
>>> + for $f (sort { lc $a cmp lc $b } keys %API) {
>>> + next unless $API{$f}{todo};
>>> + print "$f ", '.'x(40-length($f)), " ",
>>> format_version($API{$f}{todo}), "\n";
>>> + }
>>> + exit 0;
>>> +}
>>> +
>>> +# Scan for possible replacement candidates
>>> +
>>> +my(%replace, %need, %hints, %warnings, %depends);
>>> +my $replace = 0;
>>> +my($hint, $define, $function);
>>> +
>>> +sub find_api
>>> +{
>>> + my $code = shift;
>>> + $code =~ s{
>>> + / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
>>> + | "[^"\\]*(?:\\.[^"\\]*)*"
>>> + | '[^'\\]*(?:\\.[^'\\]*)*' }{}egsx;
>>> + grep { exists $API{$_} } $code =~ /(\w+)/mg;
>>> +}
>>> +
>>> +while (<DATA>) {
>>> + if ($hint) {
>>> + my $h = $hint->[0] eq 'Hint' ? \%hints : \%warnings;
>>> + if (m{^\s*\*\s(.*?)\s*$}) {
>>> + for (@{$hint->[1]}) {
>>> + $h->{$_} ||= ''; # suppress warning with older perls
>>> + $h->{$_} .= "$1\n";
>>> + }
>>> + }
>>> + else { undef $hint }
>>> + }
>>> +
>>> + $hint = [$1, [split /,?\s+/, $2]]
>>> + if m{^\s*$rccs\s+(Hint|Warning):\s+(\w+(?:,?\s+\w+)*)\s*$};
>>> +
>>> + if ($define) {
>>> + if ($define->[1] =~ /\\$/) {
>>> + $define->[1] .= $_;
>>> + }
>>> + else {
>>> + if (exists $API{$define->[0]} && $define->[1] !~ /^DPPP_\(/)
>>> {
>>> + my @n = find_api($define->[1]);
>>> + push @{$depends{$define->[0]}}, @n if @n
>>> + }
>>> + undef $define;
>>> + }
>>> + }
>>> +
>>> + $define = [$1, $2] if
>>> m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(.*)};
>>> +
>>> + if ($function) {
>>> + if (/^}/) {
>>> + if (exists $API{$function->[0]}) {
>>> + my @n = find_api($function->[1]);
>>> + push @{$depends{$function->[0]}}, @n if @n
>>> + }
>>> + undef $function;
>>> + }
>>> + else {
>>> + $function->[1] .= $_;
>>> + }
>>> + }
>>> +
>>> + $function = [$1, ''] if m{^DPPP_\(my_(\w+)\)};
>>> +
>>> + $replace = $1 if
>>> m{^\s*$rccs\s+Replace:\s+(\d+)\s+$rcce\s*$};
>>> + $replace{$2} = $1 if $replace and
>>> m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+)};
>>> + $replace{$2} = $1 if
>>> m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+).*$rccs\s+Replace\s+$
>>> rcce};
>>> + $replace{$1} = $2 if m{^\s*$rccs\s+Replace (\w+) with
>>> (\w+)\s+$rcce\s*$};
>>> +
>>> + if
>>> (m{^\s*$rccs\s+(\w+(\s*,\s*\w+)*)\s+depends\s+on\s+(\w+(\s*,\s*\w+)
>>> *)\s+$rcce\s*$}) {
>>> + my @deps = map { s/\s+//g; $_ } split /,/, $3;
>>> + my $d;
>>> + for $d (map { s/\s+//g; $_ } split /,/, $1) {
>>> + push @{$depends{$d}}, @deps;
>>> + }
>>> + }
>>> +
>>> + $need{$1} = 1 if m{^#if\s+defined\(NEED_(\w+)(?:_GLOBAL)?\)};
>>> +}
>>> +
>>> +for (values %depends) {
>>> + my %s;
>>> + $_ = [sort grep !$s{$_}++, @$_];
>>> +}
>>> +
>>> +if (exists $opt{'api-info'}) {
>>> + my $f;
>>> + my $count = 0;
>>> + my $match = $opt{'api-info'} =~ m!^/(.*)/$! ? $1 :
>>> "^\Q$opt{'api-info'}\E\$";
>>> + for $f (sort { lc $a cmp lc $b } keys %API) {
>>> + next unless $f =~ /$match/;
>>> + print "\n=== $f ===\n\n";
>>> + my $info = 0;
>>> + if ($API{$f}{base} || $API{$f}{todo}) {
>>> + my $base = format_version($API{$f}{base} || $API{$f}{todo});
>>> + print "Supported at least starting from perl-$base.\n";
>>> + $info++;
>>> + }
>>> + if ($API{$f}{provided}) {
>>> + my $todo = $API{$f}{todo} ? format_version($API{$f}{todo}) :
>>> "5.003";
>>> + print "Support by $ppport provided back to perl-$todo.\n";
>>> + print "Support needs to be explicitly requested by
>>> NEED_$f.\n" if exists $need{$f};
>>> + print "Depends on: ", join(', ', @{$depends{$f}}), ".\n" if
>>> exists $depends{$f};
>>> + print "\n$hints{$f}" if exists $hints{$f};
>>> + print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
>>> + $info++;
>>> + }
>>> + print "No portability information available.\n" unless $info;
>>> + $count++;
>>> + }
>>> + $count or print "Found no API matching '$opt{'api-info'}'.";
>>> + print "\n";
>>> + exit 0;
>>> +}
>>> +
>>> +if (exists $opt{'list-provided'}) {
>>> + my $f;
>>> + for $f (sort { lc $a cmp lc $b } keys %API) {
>>> + next unless $API{$f}{provided};
>>> + my @flags;
>>> + push @flags, 'explicit' if exists $need{$f};
>>> + push @flags, 'depend' if exists $depends{$f};
>>> + push @flags, 'hint' if exists $hints{$f};
>>> + push @flags, 'warning' if exists $warnings{$f};
>>> + my $flags = @flags ? ' ['.join(', ', @flags).']' : '';
>>> + print "$f$flags\n";
>>> + }
>>> + exit 0;
>>> +}
>>> +
>>> +my @files;
>>> +my @srcext = qw( .xs .c .h .cc .cpp -c.inc -xs.inc );
>>> +my $srcext = join '|', map { quotemeta $_ } @srcext;
>>> +
>>> +if (@ARGV) {
>>> + my %seen;
>>> + for (@ARGV) {
>>> + if (-e) {
>>> + if (-f) {
>>> + push @files, $_ unless $seen{$_}++;
>>> + }
>>> + else { warn "'$_' is not a file.\n" }
>>> + }
>>> + else {
>>> + my @new = grep { -f } glob $_
>>> + or warn "'$_' does not exist.\n";
>>> + push @files, grep { !$seen{$_}++ } @new;
>>> + }
>>> + }
>>> +}
>>> +else {
>>> + eval {
>>> + require File::Find;
>>> + File::Find::find(sub {
>>> + $File::Find::name =~ /($srcext)$/i
>>> + and push @files, $File::Find::name;
>>> + }, '.');
>>> + };
>>> + if ($@) {
>>> + @files = map { glob "*$_" } @srcext;
>>> + }
>>> +}
>>> +
>>> +if (!@ARGV || $opt{filter}) {
>>> + my(@in, @out);
>>> + my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () }
>>> @files;
>>> + for (@files) {
>>> + my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i ||
>>> !/($srcext)$/i;
>>> + push @{ $out ? \@out : \@in }, $_;
>>> + }
>>> + if (@ARGV && @out) {
>>> + warning("Skipping the following files (use --nofilter to avoid
>>> this):\n| ", join "\n| ", @out);
>>> + }
>>> + @files = @in;
>>> +}
>>> +
>>> +die "No input files given!\n" unless @files;
>>> +
>>> +my(%files, %global, %revreplace);
>>> +%revreplace = reverse %replace;
>>> +my $filename;
>>> +my $patch_opened = 0;
>>> +
>>> +for $filename (@files) {
>>> + unless (open IN, "<$filename") {
>>> + warn "Unable to read from $filename: $!\n";
>>> + next;
>>> + }
>>> +
>>> + info("Scanning $filename ...");
>>> +
>>> + my $c = do { local $/; <IN> };
>>> + close IN;
>>> +
>>> + my %file = (orig => $c, changes => 0);
>>> +
>>> + # Temporarily remove C/XS comments and strings from the code
>>> + my @ccom;
>>> +
>>> + $c =~ s{
>>> + (
>>> ^$HS*\#$HS*include\b[^\r\n]+\b(?:\Q$ppport\E|XSUB\.h)\b[^\r\n]*
>>> + | ^$HS*\#$HS*(?:define|elif|if(?:def)?)\b[^\r\n]* )
>>> + | ( ^$HS*\#[^\r\n]*
>>> + | "[^"\\]*(?:\\.[^"\\]*)*"
>>> + | '[^'\\]*(?:\\.[^'\\]*)*'
>>> + | / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]* ) )
>>> + }{ defined $2 and push @ccom, $2;
>>> + defined $1 ? $1 : "$ccs$#ccom$cce" }mgsex;
>>> +
>>> + $file{ccom} = \@ccom;
>>> + $file{code} = $c;
>>> + $file{has_inc_ppport} = $c =~
>>> /^$HS*#$HS*include[^\r\n]+\b\Q$ppport\E\b/m;
>>> +
>>> + my $func;
>>> +
>>> + for $func (keys %API) {
>>> + my $match = $func;
>>> + $match .= "|$revreplace{$func}" if exists $revreplace{$func};
>>> + if ($c =~ /\b(?:Perl_)?($match)\b/) {
>>> + $file{uses_replace}{$1}++ if exists $revreplace{$func} && $1
>>> eq $revreplace{$func};
>>> + $file{uses_Perl}{$func}++ if $c =~ /\bPerl_$func\b/;
>>> + if (exists $API{$func}{provided}) {
>>> + $file{uses_provided}{$func}++;
>>> + if (!exists $API{$func}{base} || $API{$func}{base} >
>>> $opt{'compat-version'}) {
>>> + $file{uses}{$func}++;
>>> + my @deps = rec_depend($func);
>>> + if (@deps) {
>>> + $file{uses_deps}{$func} = \@deps;
>>> + for (@deps) {
>>> + $file{uses}{$_} = 0 unless exists $file{uses}{$_};
>>> + }
>>> + }
>>> + for ($func, @deps) {
>>> + $file{needs}{$_} = 'static' if exists $need{$_};
>>> + }
>>> + }
>>> + }
>>> + if (exists $API{$func}{todo} && $API{$func}{todo} >
>>> $opt{'compat-version'}) {
>>> + if ($c =~ /\b$func\b/) {
>>> + $file{uses_todo}{$func}++;
>>> + }
>>> + }
>>> + }
>>> + }
>>> +
>>> + while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg)
>>> {
>>> + if (exists $need{$2}) {
>>> + $file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++;
>>> + }
>>> + else { warning("Possibly wrong #define $1 in $filename") }
>>> + }
>>> +
>>> + for (qw(uses needs uses_todo needed_global needed_static)) {
>>> + for $func (keys %{$file{$_}}) {
>>> + push @{$global{$_}{$func}}, $filename;
>>> + }
>>> + }
>>> +
>>> + $files{$filename} = \%file;
>>> +}
>>> +
>>> +# Globally resolve NEED_'s
>>> +my $need;
>>> +for $need (keys %{$global{needs}}) {
>>> + if (@{$global{needs}{$need}} > 1) {
>>> + my @targets = @{$global{needs}{$need}};
>>> + my @t = grep $files{$_}{needed_global}{$need}, @targets;
>>> + @targets = @t if @t;
>>> + @t = grep /\.xs$/i, @targets;
>>> + @targets = @t if @t;
>>> + my $target = shift @targets;
>>> + $files{$target}{needs}{$need} = 'global';
>>> + for (@{$global{needs}{$need}}) {
>>> + $files{$_}{needs}{$need} = 'extern' if $_ ne $target;
>>> + }
>>> + }
>>> +}
>>> +
>>> +for $filename (@files) {
>>> + exists $files{$filename} or next;
>>> +
>>> + info("=== Analyzing $filename ===");
>>> +
>>> + my %file = %{$files{$filename}};
>>> + my $func;
>>> + my $c = $file{code};
>>> + my $warnings = 0;
>>> +
>>> + for $func (sort keys %{$file{uses_Perl}}) {
>>> + if ($API{$func}{varargs}) {
>>> + unless ($API{$func}{nothxarg}) {
>>> + my $changes = ($c =~
>>> s{\b(Perl_$func\s*\(\s*)(?!aTHX_?)(\)|[^\s)]*\))}
>>> + { $1 . ($2 eq ')' ? 'aTHX' : 'aTHX_
>>> ') . $2 }ge);
>>> + if ($changes) {
>>> + warning("Doesn't pass interpreter argument aTHX to
>>> Perl_$func");
>>> + $file{changes} += $changes;
>>> + }
>>> + }
>>> + }
>>> + else {
>>> + warning("Uses Perl_$func instead of $func");
>>> + $file{changes} += ($c =~
>>> s{\bPerl_$func(\s*)\((\s*aTHX_?)?\s*}
>>> + {$func$1(}g);
>>> + }
>>> + }
>>> +
>>> + for $func (sort keys %{$file{uses_replace}}) {
>>> + warning("Uses $func instead of $replace{$func}");
>>> + $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g);
>>> + }
>>> +
>>> + for $func (sort keys %{$file{uses_provided}}) {
>>> + if ($file{uses}{$func}) {
>>> + if (exists $file{uses_deps}{$func}) {
>>> + diag("Uses $func, which depends on ", join(', ',
>>> @{$file{uses_deps}{$func}}));
>>> + }
>>> + else {
>>> + diag("Uses $func");
>>> + }
>>> + }
>>> + $warnings += hint($func);
>>> + }
>>> +
>>> + unless ($opt{quiet}) {
>>> + for $func (sort keys %{$file{uses_todo}}) {
>>> + print "*** WARNING: Uses $func, which may not be portable
>>> below perl ",
>>> + format_version($API{$func}{todo}), ", even with
>>> '$ppport'\n";
>>> + $warnings++;
>>> + }
>>> + }
>>> +
>>> + for $func (sort keys %{$file{needed_static}}) {
>>> + my $message = '';
>>> + if (not exists $file{uses}{$func}) {
>>> + $message = "No need to define NEED_$func if $func is never
>>> used";
>>> + }
>>> + elsif (exists $file{needs}{$func} && $file{needs}{$func} ne
>>> 'static') {
>>> + $message = "No need to define NEED_$func when already needed
>>> globally";
>>> + }
>>> + if ($message) {
>>> + diag($message);
>>> + $file{changes} += ($c =~
>>> s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg);
>>> + }
>>> + }
>>> +
>>> + for $func (sort keys %{$file{needed_global}}) {
>>> + my $message = '';
>>> + if (not exists $global{uses}{$func}) {
>>> + $message = "No need to define NEED_${func}_GLOBAL if $func
>>> is never used";
>>> + }
>>> + elsif (exists $file{needs}{$func}) {
>>> + if ($file{needs}{$func} eq 'extern') {
>>> + $message = "No need to define NEED_${func}_GLOBAL when
>>> already needed globally";
>>> + }
>>> + elsif ($file{needs}{$func} eq 'static') {
>>> + $message = "No need to define NEED_${func}_GLOBAL when
>>> only used in this file";
>>> + }
>>> + }
>>> + if ($message) {
>>> + diag($message);
>>> + $file{changes} += ($c =~
>>> s/^$HS*#$HS*define$HS+NEED_${func}_GLOBAL\b.*$LF//mg);
>>> + }
>>> + }
>>> +
>>> + $file{needs_inc_ppport} = keys %{$file{uses}};
>>> +
>>> + if ($file{needs_inc_ppport}) {
>>> + my $pp = '';
>>> +
>>> + for $func (sort keys %{$file{needs}}) {
>>> + my $type = $file{needs}{$func};
>>> + next if $type eq 'extern';
>>> + my $suffix = $type eq 'global' ? '_GLOBAL' : '';
>>> + unless (exists $file{"needed_$type"}{$func}) {
>>> + if ($type eq 'global') {
>>> + diag("Files [@{$global{needs}{$func}}] need $func,
>>> adding global request");
>>> + }
>>> + else {
>>> + diag("File needs $func, adding static request");
>>> + }
>>> + $pp .= "#define NEED_$func$suffix\n";
>>> + }
>>> + }
>>> +
>>> + if ($pp && ($c =~ s/^(?=$HS*#$HS*define$HS+NEED_\w+)/$pp/m)) {
>>> + $pp = '';
>>> + $file{changes}++;
>>> + }
>>> +
>>> + unless ($file{has_inc_ppport}) {
>>> + diag("Needs to include '$ppport'");
>>> + $pp .= qq(#include "$ppport"\n)
>>> + }
>>> +
>>> + if ($pp) {
>>> + $file{changes} += ($c =~
>>> s/^($HS*#$HS*define$HS+NEED_\w+.*?)^/$1$pp/ms)
>>> + || ($c =~
>>> s/^(?=$HS*#$HS*include.*\Q$ppport\E)/$pp/m)
>>> + || ($c =~
>>> s/^($HS*#$HS*include.*XSUB.*\s*?)^/$1$pp/m)
>>> + || ($c =~ s/^/$pp/);
>>> + }
>>> + }
>>> + else {
>>> + if ($file{has_inc_ppport}) {
>>> + diag("No need to include '$ppport'");
>>> + $file{changes} += ($c =~
>>> s/^$HS*?#$HS*include.*\Q$ppport\E.*?$LF//m);
>>> + }
>>> + }
>>> +
>>> + # put back in our C comments
>>> + my $ix;
>>> + my $cppc = 0;
>>> + my @ccom = @{$file{ccom}};
>>> + for $ix (0 .. $#ccom) {
>>> + if (!$opt{cplusplus} && $ccom[$ix] =~ s!^//!!) {
>>> + $cppc++;
>>> + $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix]
>>> $cce/;
>>> + }
>>> + else {
>>> + $c =~ s/$rccs$ix$rcce/$ccom[$ix]/;
>>> + }
>>> + }
>>> +
>>> + if ($cppc) {
>>> + my $s = $cppc != 1 ? 's' : '';
>>> + warning("Uses $cppc C++ style comment$s, which is not
>>> portable");
>>> + }
>>> +
>>> + my $s = $warnings != 1 ? 's' : '';
>>> + my $warn = $warnings ? " ($warnings warning$s)" : '';
>>> + info("Analysis completed$warn");
>>> +
>>> + if ($file{changes}) {
>>> + if (exists $opt{copy}) {
>>> + my $newfile = "$filename$opt{copy}";
>>> + if (-e $newfile) {
>>> + error("'$newfile' already exists, refusing to write copy
>>> of '$filename'");
>>> + }
>>> + else {
>>> + local *F;
>>> + if (open F, ">$newfile") {
>>> + info("Writing copy of '$filename' with changes to
>>> '$newfile'");
>>> + print F $c;
>>> + close F;
>>> + }
>>> + else {
>>> + error("Cannot open '$newfile' for writing: $!");
>>> + }
>>> + }
>>> + }
>>> + elsif (exists $opt{patch} || $opt{changes}) {
>>> + if (exists $opt{patch}) {
>>> + unless ($patch_opened) {
>>> + if (open PATCH, ">$opt{patch}") {
>>> + $patch_opened = 1;
>>> + }
>>> + else {
>>> + error("Cannot open '$opt{patch}' for writing: $!");
>>> + delete $opt{patch};
>>> + $opt{changes} = 1;
>>> + goto fallback;
>>> + }
>>> + }
>>> + mydiff(\*PATCH, $filename, $c);
>>> + }
>>> + else {
>>> +fallback:
>>> + info("Suggested changes:");
>>> + mydiff(\*STDOUT, $filename, $c);
>>> + }
>>> + }
>>> + else {
>>> + my $s = $file{changes} == 1 ? '' : 's';
>>> + info("$file{changes} potentially required change$s
>>> detected");
>>> + }
>>> + }
>>> + else {
>>> + info("Looks good");
>>> + }
>>> +}
>>> +
>>> +close PATCH if $patch_opened;
>>> +
>>> +exit 0;
>>> +
>>> +
>>> +sub try_use { eval "use @_;"; return $@ eq '' }
>>> +
>>> +sub mydiff
>>> +{
>>> + local *F = shift;
>>> + my($file, $str) = @_;
>>> + my $diff;
>>> +
>>> + if (exists $opt{diff}) {
>>> + $diff = run_diff($opt{diff}, $file, $str);
>>> + }
>>> +
>>> + if (!defined $diff and try_use('Text::Diff')) {
>>> + $diff = Text::Diff::diff($file, \$str, { STYLE => 'Unified'
>>> });
>>> + $diff = <<HEADER . $diff;
>>> +--- $file
>>> ++++ $file.patched
>>> +HEADER
>>> + }
>>> +
>>> + if (!defined $diff) {
>>> + $diff = run_diff('diff -u', $file, $str);
>>> + }
>>> +
>>> + if (!defined $diff) {
>>> + $diff = run_diff('diff', $file, $str);
>>> + }
>>> +
>>> + if (!defined $diff) {
>>> + error("Cannot generate a diff. Please install Text::Diff or
>>> use --copy.");
>>> + return;
>>> + }
>>> +
>>> + print F $diff;
>>> +}
>>> +
>>> +sub run_diff
>>> +{
>>> + my($prog, $file, $str) = @_;
>>> + my $tmp = 'dppptemp';
>>> + my $suf = 'aaa';
>>> + my $diff = '';
>>> + local *F;
>>> +
>>> + while (-e "$tmp.$suf") { $suf++ }
>>> + $tmp = "$tmp.$suf";
>>> +
>>> + if (open F, ">$tmp") {
>>> + print F $str;
>>> + close F;
>>> +
>>> + if (open F, "$prog $file $tmp |") {
>>> + while (<F>) {
>>> + s/\Q$tmp\E/$file.patched/;
>>> + $diff .= $_;
>>> + }
>>> + close F;
>>> + unlink $tmp;
>>> + return $diff;
>>> + }
>>> +
>>> + unlink $tmp;
>>> + }
>>> + else {
>>> + error("Cannot open '$tmp' for writing: $!");
>>> + }
>>> +
>>> + return undef;
>>> +}
>>> +
>>> +sub rec_depend
>>> +{
>>> + my($func, $seen) = @_;
>>> + return () unless exists $depends{$func};
>>> + $seen = {%{$seen||{}}};
>>> + return () if $seen->{$func}++;
>>> + my %s;
>>> + grep !$s{$_}++, map { ($_, rec_depend($_, $seen)) }
>>> @{$depends{$func}};
>>> +}
>>> +
>>> +sub parse_version
>>> +{
>>> + my $ver = shift;
>>> +
>>> + if ($ver =~ /^(\d+)\.(\d+)\.(\d+)$/) {
>>> + return ($1, $2, $3);
>>> + }
>>> + elsif ($ver !~ /^\d+\.[\d_]+$/) {
>>> + die "cannot parse version '$ver'\n";
>>> + }
>>> +
>>> + $ver =~ s/_//g;
>>> + $ver =~ s/$/000000/;
>>> +
>>> + my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/;
>>> +
>>> + $v = int $v;
>>> + $s = int $s;
>>> +
>>> + if ($r < 5 || ($r == 5 && $v < 6)) {
>>> + if ($s % 10) {
>>> + die "cannot parse version '$ver'\n";
>>> + }
>>> + }
>>> +
>>> + return ($r, $v, $s);
>>> +}
>>> +
>>> +sub format_version
>>> +{
>>> + my $ver = shift;
>>> +
>>> + $ver =~ s/$/000000/;
>>> + my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/;
>>> +
>>> + $v = int $v;
>>> + $s = int $s;
>>> +
>>> + if ($r < 5 || ($r == 5 && $v < 6)) {
>>> + if ($s % 10) {
>>> + die "invalid version '$ver'\n";
>>> + }
>>> + $s /= 10;
>>> +
>>> + $ver = sprintf "%d.%03d", $r, $v;
>>> + $s > 0 and $ver .= sprintf "_%02d", $s;
>>> +
>>> + return $ver;
>>> + }
>>> +
>>> + return sprintf "%d.%d.%d", $r, $v, $s;
>>> +}
>>> +
>>> +sub info
>>> +{
>>> + $opt{quiet} and return;
>>> + print @_, "\n";
>>> +}
>>> +
>>> +sub diag
>>> +{
>>> + $opt{quiet} and return;
>>> + $opt{diag} and print @_, "\n";
>>> +}
>>> +
>>> +sub warning
>>> +{
>>> + $opt{quiet} and return;
>>> + print "*** ", @_, "\n";
>>> +}
>>> +
>>> +sub error
>>> +{
>>> + print "*** ERROR: ", @_, "\n";
>>> +}
>>> +
>>> +my %given_hints;
>>> +my %given_warnings;
>>> +sub hint
>>> +{
>>> + $opt{quiet} and return;
>>> + my $func = shift;
>>> + my $rv = 0;
>>> + if (exists $warnings{$func} && !$given_warnings{$func}++) {
>>> + my $warn = $warnings{$func};
>>> + $warn =~ s!^!*** !mg;
>>> + print "*** WARNING: $func\n", $warn;
>>> + $rv++;
>>> + }
>>> + if ($opt{hints} && exists $hints{$func} &&
>>> !$given_hints{$func}++) {
>>> + my $hint = $hints{$func};
>>> + $hint =~ s/^/ /mg;
>>> + print " --- hint for $func ---\n", $hint;
>>> + }
>>> + $rv;
>>> +}
>>> +
>>> +sub usage
>>> +{
>>> + my($usage) = do { local(@ARGV,$/)=($0); <> } =~
>>> /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
>>> + my %M = ( 'I' => '*' );
>>> + $usage =~ s/^\s*perl\s+\S+/$^X $0/;
>>> + $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
>>> +
>>> + print <<ENDUSAGE;
>>> +
>>> +Usage: $usage
>>> +
>>> +See perldoc $0 for details.
>>> +
>>> +ENDUSAGE
>>> +
>>> + exit 2;
>>> +}
>>> +
>>> +sub strip
>>> +{
>>> + my $self = do { local(@ARGV,$/)=($0); <> };
>>> + my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
>>> + $copy =~ s/^(?=\S+)/ /gms;
>>> + $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
>>> + $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
>>> +if (\@ARGV && \$ARGV[0] eq '--unstrip') {
>>> + eval { require Devel::PPPort };
>>> + \$@ and die "Cannot require Devel::PPPort, please install.\\n";
>>> + if (eval \$Devel::PPPort::VERSION < $VERSION) {
>>> + die "$0 was originally generated with Devel::PPPort
>>> $VERSION.\\n"
>>> + . "Your Devel::PPPort is only version
>>> \$Devel::PPPort::VERSION.\\n"
>>> + . "Please install a newer version, or --unstrip will not
>>> work.\\n";
>>> + }
>>> + Devel::PPPort::WriteFile(\$0);
>>> + exit 0;
>>> +}
>>> +print <<END;
>>> +
>>> +Sorry, but this is a stripped version of \$0.
>>> +
>>> +To be able to use its original script and doc functionality,
>>> +please try to regenerate this file using:
>>> +
>>> + \$^X \$0 --unstrip
>>> +
>>> +END
>>> +/ms;
>>> + my($pl, $c) = $self =~ /(.*^__DATA__)(.*)/ms;
>>> + $c =~ s{
>>> + / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
>>> + | ( "[^"\\]*(?:\\.[^"\\]*)*"
>>> + | '[^'\\]*(?:\\.[^'\\]*)*' )
>>> + | ($HS+) }{ defined $2 ? ' ' : ($1 || '') }gsex;
>>> + $c =~ s!\s+$!!mg;
>>> + $c =~ s!^$LF!!mg;
>>> + $c =~ s!^\s*#\s*!#!mg;
>>> + $c =~ s!^\s+!!mg;
>>> +
>>> + open OUT, ">$0" or die "cannot strip $0: $!\n";
>>> + print OUT "$pl$c\n";
>>> +
>>> + exit 0;
>>> +}
>>> +
>>> +__DATA__
>>> +*/
>>> +
>>> +#ifndef _P_P_PORTABILITY_H_
>>> +#define _P_P_PORTABILITY_H_
>>> +
>>> +#ifndef DPPP_NAMESPACE
>>> +# define DPPP_NAMESPACE DPPP_
>>> +#endif
>>> +
>>> +#define DPPP_CAT2(x,y) CAT2(x,y)
>>> +#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)
>>> +
>>> +#ifndef PERL_REVISION
>>> +# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL)
>>> && defined(SUBVERSION))
>>> +# define PERL_PATCHLEVEL_H_IMPLICIT
>>> +# include <patchlevel.h>
>>> +# endif
>>> +# if !(defined(PERL_VERSION) || (defined(SUBVERSION) &&
>>> defined(PATCHLEVEL)))
>>> +# include <could_not_find_Perl_patchlevel.h>
>>> +# endif
>>> +# ifndef PERL_REVISION
>>> +# define PERL_REVISION (5)
>>> + /* Replace: 1 */
>>> +# define PERL_VERSION PATCHLEVEL
>>> +# define PERL_SUBVERSION SUBVERSION
>>> + /* Replace PERL_PATCHLEVEL with PERL_VERSION */
>>> + /* Replace: 0 */
>>> +# endif
>>> +#endif
>>> +
>>> +#define D_PPP_DEC2BCD(dec)
>>> ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
>>> +#define PERL_BCDVERSION
>>> ((D_PPP_DEC2BCD(PERL_REVISION)<<24)|(D_PPP_DEC2BCD(PERL_VERSION)<<1
>>> 2)|D_PPP_DEC2BCD(PERL_SUBVERSION))
>>> +
>>> +/* It is very unlikely that anyone will try to use this with Perl
>>> 6
>>> + (or greater), but who knows.
>>> + */
>>> +#if PERL_REVISION != 5
>>> +# error ppport.h only works with Perl version 5
>>> +#endif /* PERL_REVISION != 5 */
>>> +#ifndef dTHR
>>> +# define dTHR dNOOP
>>> +#endif
>>> +#ifndef dTHX
>>> +# define dTHX dNOOP
>>> +#endif
>>> +
>>> +#ifndef dTHXa
>>> +# define dTHXa(x) dNOOP
>>> +#endif
>>> +#ifndef pTHX
>>> +# define pTHX void
>>> +#endif
>>> +
>>> +#ifndef pTHX_
>>> +# define pTHX_
>>> +#endif
>>> +
>>> +#ifndef aTHX
>>> +# define aTHX
>>> +#endif
>>> +
>>> +#ifndef aTHX_
>>> +# define aTHX_
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5006000)
>>> +# ifdef USE_THREADS
>>> +# define aTHXR thr
>>> +# define aTHXR_ thr,
>>> +# else
>>> +# define aTHXR
>>> +# define aTHXR_
>>> +# endif
>>> +# define dTHXR dTHR
>>> +#else
>>> +# define aTHXR aTHX
>>> +# define aTHXR_ aTHX_
>>> +# define dTHXR dTHX
>>> +#endif
>>> +#ifndef dTHXoa
>>> +# define dTHXoa(x) dTHXa(x)
>>> +#endif
>>> +
>>> +#ifdef I_LIMITS
>>> +# include <limits.h>
>>> +#endif
>>> +
>>> +#ifndef PERL_UCHAR_MIN
>>> +# define PERL_UCHAR_MIN ((unsigned char)0)
>>> +#endif
>>> +
>>> +#ifndef PERL_UCHAR_MAX
>>> +# ifdef UCHAR_MAX
>>> +# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
>>> +# else
>>> +# ifdef MAXUCHAR
>>> +# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
>>> +# else
>>> +# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_USHORT_MIN
>>> +# define PERL_USHORT_MIN ((unsigned short)0)
>>> +#endif
>>> +
>>> +#ifndef PERL_USHORT_MAX
>>> +# ifdef USHORT_MAX
>>> +# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
>>> +# else
>>> +# ifdef MAXUSHORT
>>> +# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
>>> +# else
>>> +# ifdef USHRT_MAX
>>> +# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
>>> +# else
>>> +# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
>>> +# endif
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_SHORT_MAX
>>> +# ifdef SHORT_MAX
>>> +# define PERL_SHORT_MAX ((short)SHORT_MAX)
>>> +# else
>>> +# ifdef MAXSHORT /* Often used in <values.h> */
>>> +# define PERL_SHORT_MAX ((short)MAXSHORT)
>>> +# else
>>> +# ifdef SHRT_MAX
>>> +# define PERL_SHORT_MAX ((short)SHRT_MAX)
>>> +# else
>>> +# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
>>> +# endif
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_SHORT_MIN
>>> +# ifdef SHORT_MIN
>>> +# define PERL_SHORT_MIN ((short)SHORT_MIN)
>>> +# else
>>> +# ifdef MINSHORT
>>> +# define PERL_SHORT_MIN ((short)MINSHORT)
>>> +# else
>>> +# ifdef SHRT_MIN
>>> +# define PERL_SHORT_MIN ((short)SHRT_MIN)
>>> +# else
>>> +# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
>>> +# endif
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_UINT_MAX
>>> +# ifdef UINT_MAX
>>> +# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
>>> +# else
>>> +# ifdef MAXUINT
>>> +# define PERL_UINT_MAX ((unsigned int)MAXUINT)
>>> +# else
>>> +# define PERL_UINT_MAX (~(unsigned int)0)
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_UINT_MIN
>>> +# define PERL_UINT_MIN ((unsigned int)0)
>>> +#endif
>>> +
>>> +#ifndef PERL_INT_MAX
>>> +# ifdef INT_MAX
>>> +# define PERL_INT_MAX ((int)INT_MAX)
>>> +# else
>>> +# ifdef MAXINT /* Often used in <values.h> */
>>> +# define PERL_INT_MAX ((int)MAXINT)
>>> +# else
>>> +# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_INT_MIN
>>> +# ifdef INT_MIN
>>> +# define PERL_INT_MIN ((int)INT_MIN)
>>> +# else
>>> +# ifdef MININT
>>> +# define PERL_INT_MIN ((int)MININT)
>>> +# else
>>> +# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_ULONG_MAX
>>> +# ifdef ULONG_MAX
>>> +# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
>>> +# else
>>> +# ifdef MAXULONG
>>> +# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
>>> +# else
>>> +# define PERL_ULONG_MAX (~(unsigned long)0)
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_ULONG_MIN
>>> +# define PERL_ULONG_MIN ((unsigned long)0L)
>>> +#endif
>>> +
>>> +#ifndef PERL_LONG_MAX
>>> +# ifdef LONG_MAX
>>> +# define PERL_LONG_MAX ((long)LONG_MAX)
>>> +# else
>>> +# ifdef MAXLONG
>>> +# define PERL_LONG_MAX ((long)MAXLONG)
>>> +# else
>>> +# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_LONG_MIN
>>> +# ifdef LONG_MIN
>>> +# define PERL_LONG_MIN ((long)LONG_MIN)
>>> +# else
>>> +# ifdef MINLONG
>>> +# define PERL_LONG_MIN ((long)MINLONG)
>>> +# else
>>> +# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +#if defined(HAS_QUAD) && (defined(convex) || defined(uts))
>>> +# ifndef PERL_UQUAD_MAX
>>> +# ifdef ULONGLONG_MAX
>>> +# define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX)
>>> +# else
>>> +# ifdef MAXULONGLONG
>>> +# define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG)
>>> +# else
>>> +# define PERL_UQUAD_MAX (~(unsigned long long)0)
>>> +# endif
>>> +# endif
>>> +# endif
>>> +
>>> +# ifndef PERL_UQUAD_MIN
>>> +# define PERL_UQUAD_MIN ((unsigned long long)0L)
>>> +# endif
>>> +
>>> +# ifndef PERL_QUAD_MAX
>>> +# ifdef LONGLONG_MAX
>>> +# define PERL_QUAD_MAX ((long long)LONGLONG_MAX)
>>> +# else
>>> +# ifdef MAXLONGLONG
>>> +# define PERL_QUAD_MAX ((long long)MAXLONGLONG)
>>> +# else
>>> +# define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1))
>>> +# endif
>>> +# endif
>>> +# endif
>>> +
>>> +# ifndef PERL_QUAD_MIN
>>> +# ifdef LONGLONG_MIN
>>> +# define PERL_QUAD_MIN ((long long)LONGLONG_MIN)
>>> +# else
>>> +# ifdef MINLONGLONG
>>> +# define PERL_QUAD_MIN ((long long)MINLONGLONG)
>>> +# else
>>> +# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
>>> +# endif
>>> +# endif
>>> +# endif
>>> +#endif
>>> +
>>> +/* This is based on code from 5.003 perl.h */
>>> +#ifdef HAS_QUAD
>>> +# ifdef cray
>>> +#ifndef IVTYPE
>>> +# define IVTYPE int
>>> +#endif
>>> +
>>> +#ifndef IV_MIN
>>> +# define IV_MIN PERL_INT_MIN
>>> +#endif
>>> +
>>> +#ifndef IV_MAX
>>> +# define IV_MAX PERL_INT_MAX
>>> +#endif
>>> +
>>> +#ifndef UV_MIN
>>> +# define UV_MIN PERL_UINT_MIN
>>> +#endif
>>> +
>>> +#ifndef UV_MAX
>>> +# define UV_MAX PERL_UINT_MAX
>>> +#endif
>>> +
>>> +# ifdef INTSIZE
>>> +#ifndef IVSIZE
>>> +# define IVSIZE INTSIZE
>>> +#endif
>>> +
>>> +# endif
>>> +# else
>>> +# if defined(convex) || defined(uts)
>>> +#ifndef IVTYPE
>>> +# define IVTYPE long long
>>> +#endif
>>> +
>>> +#ifndef IV_MIN
>>> +# define IV_MIN PERL_QUAD_MIN
>>> +#endif
>>> +
>>> +#ifndef IV_MAX
>>> +# define IV_MAX PERL_QUAD_MAX
>>> +#endif
>>> +
>>> +#ifndef UV_MIN
>>> +# define UV_MIN PERL_UQUAD_MIN
>>> +#endif
>>> +
>>> +#ifndef UV_MAX
>>> +# define UV_MAX PERL_UQUAD_MAX
>>> +#endif
>>> +
>>> +# ifdef LONGLONGSIZE
>>> +#ifndef IVSIZE
>>> +# define IVSIZE LONGLONGSIZE
>>> +#endif
>>> +
>>> +# endif
>>> +# else
>>> +#ifndef IVTYPE
>>> +# define IVTYPE long
>>> +#endif
>>> +
>>> +#ifndef IV_MIN
>>> +# define IV_MIN PERL_LONG_MIN
>>> +#endif
>>> +
>>> +#ifndef IV_MAX
>>> +# define IV_MAX PERL_LONG_MAX
>>> +#endif
>>> +
>>> +#ifndef UV_MIN
>>> +# define UV_MIN PERL_ULONG_MIN
>>> +#endif
>>> +
>>> +#ifndef UV_MAX
>>> +# define UV_MAX PERL_ULONG_MAX
>>> +#endif
>>> +
>>> +# ifdef LONGSIZE
>>> +#ifndef IVSIZE
>>> +# define IVSIZE LONGSIZE
>>> +#endif
>>> +
>>> +# endif
>>> +# endif
>>> +# endif
>>> +#ifndef IVSIZE
>>> +# define IVSIZE 8
>>> +#endif
>>> +
>>> +#ifndef LONGSIZE
>>> +# define LONGSIZE 8
>>> +#endif
>>> +
>>> +#ifndef PERL_QUAD_MIN
>>> +# define PERL_QUAD_MIN IV_MIN
>>> +#endif
>>> +
>>> +#ifndef PERL_QUAD_MAX
>>> +# define PERL_QUAD_MAX IV_MAX
>>> +#endif
>>> +
>>> +#ifndef PERL_UQUAD_MIN
>>> +# define PERL_UQUAD_MIN UV_MIN
>>> +#endif
>>> +
>>> +#ifndef PERL_UQUAD_MAX
>>> +# define PERL_UQUAD_MAX UV_MAX
>>> +#endif
>>> +
>>> +#else
>>> +#ifndef IVTYPE
>>> +# define IVTYPE long
>>> +#endif
>>> +
>>> +#ifndef LONGSIZE
>>> +# define LONGSIZE 4
>>> +#endif
>>> +
>>> +#ifndef IV_MIN
>>> +# define IV_MIN PERL_LONG_MIN
>>> +#endif
>>> +
>>> +#ifndef IV_MAX
>>> +# define IV_MAX PERL_LONG_MAX
>>> +#endif
>>> +
>>> +#ifndef UV_MIN
>>> +# define UV_MIN PERL_ULONG_MIN
>>> +#endif
>>> +
>>> +#ifndef UV_MAX
>>> +# define UV_MAX PERL_ULONG_MAX
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +#ifndef IVSIZE
>>> +# ifdef LONGSIZE
>>> +# define IVSIZE LONGSIZE
>>> +# else
>>> +# define IVSIZE 4 /* A bold guess, but the best we can make. */
>>> +# endif
>>> +#endif
>>> +#ifndef UVTYPE
>>> +# define UVTYPE unsigned IVTYPE
>>> +#endif
>>> +
>>> +#ifndef UVSIZE
>>> +# define UVSIZE IVSIZE
>>> +#endif
>>> +#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) : newSVnv((NV)uv))
>>> +#endif
>>> +#ifndef sv_2uv
>>> +# define sv_2uv(sv) ((PL_Sv = (sv)), (UV)
>>> (SvNOK(PL_Sv) ? SvNV(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)); PUSHTARG; } STMT_END
>>> +#endif
>>> +
>>> +#ifndef XPUSHu
>>> +# define XPUSHu(u) STMT_START {
>>> sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END
>>> +#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) *
>>> sizeof(t))
>>> +#endif
>>> +
>>> +#ifndef CopyD
>>> +# define
>>> CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) *
>>> sizeof(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 SvGETMAGIC
>>> +# define SvGETMAGIC(x) STMT_START { if
>>> (SvGMAGICAL(x)) mg_get(x); } STMT_END
>>> +#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
>>> +
>>> +#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
>>> +
>>> +/* 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... */
>>> +#ifndef sv_catpvn_nomg
>>> +# define sv_catpvn_nomg sv_catpvn
>>> +#endif
>>> +
>>> +#ifndef sv_catsv_nomg
>>> +# define sv_catsv_nomg sv_catsv
>>> +#endif
>>> +
>>> +#ifndef sv_setsv_nomg
>>> +# define sv_setsv_nomg sv_setsv
>>> +#endif
>>> +
>>> +#ifndef sv_pvn_nomg
>>> +# define sv_pvn_nomg sv_pvn
>>> +#endif
>>> +
>>> +#ifndef SvIV_nomg
>>> +# define SvIV_nomg SvIV
>>> +#endif
>>> +
>>> +#ifndef SvUV_nomg
>>> +# define SvUV_nomg SvUV
>>> +#endif
>>> +
>>> +#ifndef sv_catpv_mg
>>> +# define sv_catpv_mg(sv, ptr) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_catpv(TeMpSv,ptr); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_catpvn_mg
>>> +# define sv_catpvn_mg(sv, ptr, len) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_catpvn(TeMpSv,ptr,len); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_catsv_mg
>>> +# define sv_catsv_mg(dsv, ssv) \
>>> + STMT_START { \
>>> + SV *TeMpSv = dsv; \
>>> + sv_catsv(TeMpSv,ssv); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setiv_mg
>>> +# define sv_setiv_mg(sv, i) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_setiv(TeMpSv,i); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setnv_mg
>>> +# define sv_setnv_mg(sv, num) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_setnv(TeMpSv,num); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setpv_mg
>>> +# define sv_setpv_mg(sv, ptr) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_setpv(TeMpSv,ptr); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setpvn_mg
>>> +# define sv_setpvn_mg(sv, ptr, len) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_setpvn(TeMpSv,ptr,len); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setsv_mg
>>> +# define sv_setsv_mg(dsv, ssv) \
>>> + STMT_START { \
>>> + SV *TeMpSv = dsv; \
>>> + sv_setsv(TeMpSv,ssv); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_setuv_mg
>>> +# define sv_setuv_mg(sv, i) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_setuv(TeMpSv,i); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef sv_usepvn_mg
>>> +# define sv_usepvn_mg(sv, ptr, len) \
>>> + STMT_START { \
>>> + SV *TeMpSv = sv; \
>>> + sv_usepvn(TeMpSv,ptr,len); \
>>> + SvSETMAGIC(TeMpSv); \
>>> + } STMT_END
>>> +#endif
>>> +#ifndef SvVSTRING_mg
>>> +# define SvVSTRING_mg(sv) (SvMAGICAL(sv) ?
>>> mg_find(sv, PERL_MAGIC_vstring) : NULL)
>>> +#endif
>>> +
>>> +/* Hint: sv_magic_portable
>>> + * This is a compatibility function that is only available with
>>> + * Devel::PPPort. It is NOT in the perl core.
>>> + * Its purpose is to mimic the 5.8.0 behaviour of sv_magic() when
>>> + * it is being passed a name pointer with namlen == 0. In that
>>> + * case, perl 5.8.0 and later store the pointer, not a copy of it.
>>> + * The compatibility can be provided back to perl 5.004. With
>>> + * earlier versions, the code will not compile.
>>> + */
>>> +
>>> +#if (PERL_BCDVERSION < 0x5004000)
>>> +
>>> + /* code that uses sv_magic_portable will not compile */
>>> +
>>> +#elif (PERL_BCDVERSION < 0x5008000)
>>> +
>>> +# define sv_magic_portable(sv, obj, how, name, namlen) \
>>> + STMT_START { \
>>> + SV *SvMp_sv = (sv); \
>>> + char *SvMp_name = (char *) (name); \
>>> + I32 SvMp_namlen = (namlen); \
>>> + if (SvMp_name && SvMp_namlen == 0) \
>>> + { \
>>> + MAGIC *mg; \
>>> + sv_magic(SvMp_sv, obj, how, 0, 0); \
>>> + mg = SvMAGIC(SvMp_sv); \
>>> + mg->mg_len = -42; /* XXX: this is the tricky part */ \
>>> + mg->mg_ptr = SvMp_name; \
>>> + } \
>>> + else \
>>> + { \
>>> + sv_magic(SvMp_sv, obj, how, SvMp_name, SvMp_namlen); \
>>> + } \
>>> + } STMT_END
>>> +
>>> +#else
>>> +
>>> +# define sv_magic_portable(a, b, c, d, e) sv_magic(a, b, c, d,
>>> e)
>>> +
>>> +#endif
>>> +
>>> +#if !defined(mg_findext)
>>> +#if defined(NEED_mg_findext)
>>> +static MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const
>>> MGVTBL *vtbl);
>>> +static
>>> +#else
>>> +extern MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const
>>> MGVTBL *vtbl);
>>> +#endif
>>> +
>>> +#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
>>> +
>>> +#define mg_findext DPPP_(my_mg_findext)
>>> +#define Perl_mg_findext DPPP_(my_mg_findext)
>>> +
>>> +
>>> +MAGIC *
>>> +DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl) {
>>> + if (sv) {
>>> + MAGIC *mg;
>>> +
>>> +#ifdef AvPAD_NAMELIST
>>> + assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
>>> +#endif
>>> +
>>> + for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
>>> + if (mg->mg_type == type && mg->mg_virtual == vtbl)
>>> + return mg;
>>> + }
>>> + }
>>> +
>>> + return NULL;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#if !defined(sv_unmagicext)
>>> +#if defined(NEED_sv_unmagicext)
>>> +static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int
>>> type, MGVTBL * vtbl);
>>> +static
>>> +#else
>>> +extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int
>>> type, MGVTBL * vtbl);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_unmagicext) ||
>>> defined(NEED_sv_unmagicext_GLOBAL)
>>> +
>>> +#ifdef sv_unmagicext
>>> +# undef sv_unmagicext
>>> +#endif
>>> +#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c)
>>> +#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)
>>> +
>>> +
>>> +int
>>> +DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL
>>> *vtbl)
>>> +{
>>> + MAGIC* mg;
>>> + MAGIC** mgp;
>>> +
>>> + if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
>>> + return 0;
>>> + mgp = &(SvMAGIC(sv));
>>> + for (mg = *mgp; mg; mg = *mgp) {
>>> + const MGVTBL* const virt = mg->mg_virtual;
>>> + if (mg->mg_type == type && virt == vtbl) {
>>> + *mgp = mg->mg_moremagic;
>>> + if (virt && virt->svt_free)
>>> + virt->svt_free(aTHX_ sv, mg);
>>> + if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
>>> + if (mg->mg_len > 0)
>>> + Safefree(mg->mg_ptr);
>>> + else if (mg->mg_len == HEf_SVKEY) /* Questionable on
>>> older perls... */
>>> + SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
>>> + else if (mg->mg_type == PERL_MAGIC_utf8)
>>> + Safefree(mg->mg_ptr);
>>> + }
>>> + if (mg->mg_flags & MGf_REFCOUNTED)
>>> + SvREFCNT_dec(mg->mg_obj);
>>> + Safefree(mg);
>>> + }
>>> + else
>>> + mgp = &mg->mg_moremagic;
>>> + }
>>> + if (SvMAGIC(sv)) {
>>> + if (SvMAGICAL(sv)) /* if we're under save_magic, wait for
>>> restore_magic; */
>>> + mg_magical(sv); /* else fix the flags now */
>>> + }
>>> + else {
>>> + SvMAGICAL_off(sv);
>>> + SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >>
>>> PRIVSHIFT;
>>> + }
>>> + return 0;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#ifndef cBOOL
>>> +# define cBOOL(cbool) ((cbool) ? (bool)1 :
>>> (bool)0)
>>> +#endif
>>> +
>>> +#ifndef OpHAS_SIBLING
>>> +# define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling))
>>> +#endif
>>> +
>>> +#ifndef OpSIBLING
>>> +# define OpSIBLING(o) (0 + (o)->op_sibling)
>>> +#endif
>>> +
>>> +#ifndef OpMORESIB_set
>>> +# define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib))
>>> +#endif
>>> +
>>> +#ifndef OpLASTSIB_set
>>> +# define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL)
>>> +#endif
>>> +
>>> +#ifndef OpMAYBESIB_set
>>> +# define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib))
>>> +#endif
>>> +
>>> +#ifndef SvRX
>>> +#if defined(NEED_SvRX)
>>> +static void * DPPP_(my_SvRX)(pTHX_ SV *rv);
>>> +static
>>> +#else
>>> +extern void * DPPP_(my_SvRX)(pTHX_ SV *rv);
>>> +#endif
>>> +
>>> +#if defined(NEED_SvRX) || defined(NEED_SvRX_GLOBAL)
>>> +
>>> +#ifdef SvRX
>>> +# undef SvRX
>>> +#endif
>>> +#define SvRX(a) DPPP_(my_SvRX)(aTHX_ a)
>>> +
>>> +
>>> +void *
>>> +DPPP_(my_SvRX)(pTHX_ SV *rv)
>>> +{
>>> + if (SvROK(rv)) {
>>> + SV *sv = SvRV(rv);
>>> + if (SvMAGICAL(sv)) {
>>> + MAGIC *mg = mg_find(sv, PERL_MAGIC_qr);
>>> + if (mg && mg->mg_obj) {
>>> + return mg->mg_obj;
>>> + }
>>> + }
>>> + }
>>> + return 0;
>>> +}
>>> +#endif
>>> +#endif
>>> +#ifndef SvRXOK
>>> +# define SvRXOK(sv) (!!SvRX(sv))
>>> +#endif
>>> +
>>> +#ifndef PERL_UNUSED_DECL
>>> +# ifdef HASATTRIBUTE
>>> +# if (defined(__GNUC__) && defined(__cplusplus)) ||
>>> defined(__INTEL_COMPILER)
>>> +# define PERL_UNUSED_DECL
>>> +# else
>>> +# define PERL_UNUSED_DECL __attribute__((unused))
>>> +# endif
>>> +# else
>>> +# define PERL_UNUSED_DECL
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_UNUSED_ARG
>>> +# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
>>> +# include <note.h>
>>> +# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
>>> +# else
>>> +# define PERL_UNUSED_ARG(x) ((void)x)
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PERL_UNUSED_VAR
>>> +# define PERL_UNUSED_VAR(x) ((void)x)
>>> +#endif
>>> +
>>> +#ifndef PERL_UNUSED_CONTEXT
>>> +# ifdef USE_ITHREADS
>>> +# define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
>>> +# else
>>> +# define PERL_UNUSED_CONTEXT
>>> +# 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)sizeof(z); } STMT_END
>>> +# else
>>> +# define PERL_UNUSED_RESULT(v) ((void)(v))
>>> +# endif
>>> +#endif
>>> +#ifndef NOOP
>>> +# define NOOP /*EMPTY*/(void)0
>>> +#endif
>>> +
>>> +#ifndef dNOOP
>>> +# define dNOOP extern int /*@unused@*/
>>> Perl___notused PERL_UNUSED_DECL
>>> +#endif
>>> +
>>> +#ifndef NVTYPE
>>> +# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
>>> +# define NVTYPE long double
>>> +# else
>>> +# define NVTYPE double
>>> +# endif
>>> +typedef NVTYPE NV;
>>> +#endif
>>> +
>>> +#ifndef INT2PTR
>>> +# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
>>> +# define PTRV UV
>>> +# define INT2PTR(any,d) (any)(d)
>>> +# else
>>> +# if PTRSIZE == LONGSIZE
>>> +# define PTRV unsigned long
>>> +# else
>>> +# define PTRV unsigned
>>> +# endif
>>> +# define INT2PTR(any,d) (any)(PTRV)(d)
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef PTR2ul
>>> +# if PTRSIZE == LONGSIZE
>>> +# define PTR2ul(p) (unsigned long)(p)
>>> +# else
>>> +# define PTR2ul(p) INT2PTR(unsigned long,p)
>>> +# endif
>>> +#endif
>>> +#ifndef PTR2nat
>>> +# define PTR2nat(p) (PTRV)(p)
>>> +#endif
>>> +
>>> +#ifndef NUM2PTR
>>> +# define NUM2PTR(any,d) (any)PTR2nat(d)
>>> +#endif
>>> +
>>> +#ifndef PTR2IV
>>> +# define PTR2IV(p) INT2PTR(IV,p)
>>> +#endif
>>> +
>>> +#ifndef PTR2UV
>>> +# define PTR2UV(p) INT2PTR(UV,p)
>>> +#endif
>>> +
>>> +#ifndef PTR2NV
>>> +# define PTR2NV(p) NUM2PTR(NV,p)
>>> +#endif
>>> +
>>> +#undef START_EXTERN_C
>>> +#undef END_EXTERN_C
>>> +#undef EXTERN_C
>>> +#ifdef __cplusplus
>>> +# define START_EXTERN_C extern "C" {
>>> +# define END_EXTERN_C }
>>> +# define EXTERN_C extern "C"
>>> +#else
>>> +# define START_EXTERN_C
>>> +# define END_EXTERN_C
>>> +# define EXTERN_C extern
>>> +#endif
>>> +
>>> +#if defined(PERL_GCC_PEDANTIC)
>>> +# ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
>>> +# define PERL_GCC_BRACE_GROUPS_FORBIDDEN
>>> +# endif
>>> +#endif
>>> +
>>> +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
>>> && !defined(__cplusplus)
>>> +# ifndef PERL_USE_GCC_BRACE_GROUPS
>>> +# define PERL_USE_GCC_BRACE_GROUPS
>>> +# endif
>>> +#endif
>>> +
>>> +#undef STMT_START
>>> +#undef STMT_END
>>> +#ifdef PERL_USE_GCC_BRACE_GROUPS
>>> +# define STMT_START (void)( /* gcc supports ``({ STATEMENTS;
>>> })'' */
>>> +# define STMT_END )
>>> +#else
>>> +# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) ||
>>> defined(__sun__)) && !defined(__GNUC__)
>>> +# define STMT_START if (1)
>>> +# define STMT_END else (void)0
>>> +# else
>>> +# define STMT_START do
>>> +# define STMT_END while (0)
>>> +# endif
>>> +#endif
>>> +#ifndef boolSV
>>> +# define boolSV(b) ((b) ? &PL_sv_yes :
>>> &PL_sv_no)
>>> +#endif
>>> +
>>> +/* DEFSV appears first in 5.004_56 */
>>> +#ifndef DEFSV
>>> +# define DEFSV GvSV(PL_defgv)
>>> +#endif
>>> +
>>> +#ifndef SAVE_DEFSV
>>> +# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
>>> +#endif
>>> +
>>> +#ifndef DEFSV_set
>>> +# define DEFSV_set(sv) (DEFSV = (sv))
>>> +#endif
>>> +
>>> +/* Older perls (<=5.003) lack AvFILLp */
>>> +#ifndef AvFILLp
>>> +# define AvFILLp AvFILL
>>> +#endif
>>> +#ifndef ERRSV
>>> +# define ERRSV get_sv("@",FALSE)
>>> +#endif
>>> +
>>> +/* Hint: gv_stashpvn
>>> + * This function's backport doesn't support the length parameter,
>>> but
>>> + * rather ignores it. Portability can only be ensured if the
>>> length
>>> + * parameter is used for speed reasons, but the length can always
>>> be
>>> + * correctly computed from the string argument.
>>> + */
>>> +#ifndef gv_stashpvn
>>> +# define gv_stashpvn(str,len,create) gv_stashpv(str,create)
>>> +#endif
>>> +
>>> +/* Replace: 1 */
>>> +#ifndef get_cv
>>> +# define get_cv perl_get_cv
>>> +#endif
>>> +
>>> +#ifndef get_sv
>>> +# define get_sv perl_get_sv
>>> +#endif
>>> +
>>> +#ifndef get_av
>>> +# define get_av perl_get_av
>>> +#endif
>>> +
>>> +#ifndef get_hv
>>> +# define get_hv perl_get_hv
>>> +#endif
>>> +
>>> +/* Replace: 0 */
>>> +#ifndef dUNDERBAR
>>> +# define dUNDERBAR dNOOP
>>> +#endif
>>> +
>>> +#ifndef UNDERBAR
>>> +# define UNDERBAR DEFSV
>>> +#endif
>>> +#ifndef dAX
>>> +# define dAX I32 ax = MARK -
>>> PL_stack_base + 1
>>> +#endif
>>> +
>>> +#ifndef dITEMS
>>> +# define dITEMS I32 items = SP - MARK
>>> +#endif
>>> +#ifndef dXSTARG
>>> +# define dXSTARG SV * targ =
>>> sv_newmortal()
>>> +#endif
>>> +#ifndef dAXMARK
>>> +# define dAXMARK I32 ax = POPMARK; \
>>> + register SV ** const mark =
>>> PL_stack_base + ax++
>>> +#endif
>>> +#ifndef XSprePUSH
>>> +# define XSprePUSH (sp = PL_stack_base + ax
>>> - 1)
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5005000)
>>> +# undef XSRETURN
>>> +# define XSRETURN(off) \
>>> + STMT_START { \
>>> + PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
>>> + return; \
>>> + } STMT_END
>>> +#endif
>>> +#ifndef XSPROTO
>>> +# define XSPROTO(name) void name(pTHX_ CV* cv)
>>> +#endif
>>> +
>>> +#ifndef SVfARG
>>> +# define SVfARG(p) ((void*)(p))
>>> +#endif
>>> +#ifndef PERL_ABS
>>> +# define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
>>> +#endif
>>> +#ifndef dVAR
>>> +# define dVAR dNOOP
>>> +#endif
>>> +#ifndef SVf
>>> +# define SVf "_"
>>> +#endif
>>> +#ifndef UTF8_MAXBYTES
>>> +# define UTF8_MAXBYTES UTF8_MAXLEN
>>> +#endif
>>> +#ifndef CPERLscope
>>> +# define CPERLscope(x) x
>>> +#endif
>>> +#ifndef PERL_HASH
>>> +# define PERL_HASH(hash,str,len) \
>>> + STMT_START { \
>>> + const char *s_PeRlHaSh = str; \
>>> + I32 i_PeRlHaSh = len; \
>>> + U32 hash_PeRlHaSh = 0; \
>>> + while (i_PeRlHaSh--) \
>>> + hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
>>> + (hash) = hash_PeRlHaSh; \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#ifndef PERLIO_FUNCS_DECL
>>> +# ifdef PERLIO_FUNCS_CONST
>>> +# define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
>>> +# define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)
>>> +# else
>>> +# define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs
>>> +# define PERLIO_FUNCS_CAST(funcs) (funcs)
>>> +# endif
>>> +#endif
>>> +
>>> +/* provide these typedefs for older perls */
>>> +#if (PERL_BCDVERSION < 0x5009003)
>>> +
>>> +# ifdef ARGSproto
>>> +typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto);
>>> +# else
>>> +typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
>>> +# endif
>>> +
>>> +typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
>>> +
>>> +#endif
>>> +#ifndef isPSXSPC
>>> +# define isPSXSPC(c) (isSPACE(c) || (c) ==
>>> '\v')
>>> +#endif
>>> +
>>> +#ifndef isBLANK
>>> +# define isBLANK(c) ((c) == ' ' || (c) ==
>>> '\t')
>>> +#endif
>>> +
>>> +#ifdef EBCDIC
>>> +#ifndef isALNUMC
>>> +# define isALNUMC(c) isalnum(c)
>>> +#endif
>>> +
>>> +#ifndef isASCII
>>> +# define isASCII(c) isascii(c)
>>> +#endif
>>> +
>>> +#ifndef isCNTRL
>>> +# define isCNTRL(c) iscntrl(c)
>>> +#endif
>>> +
>>> +#ifndef isGRAPH
>>> +# define isGRAPH(c) isgraph(c)
>>> +#endif
>>> +
>>> +#ifndef isPRINT
>>> +# define isPRINT(c) isprint(c)
>>> +#endif
>>> +
>>> +#ifndef isPUNCT
>>> +# define isPUNCT(c) ispunct(c)
>>> +#endif
>>> +
>>> +#ifndef isXDIGIT
>>> +# define isXDIGIT(c) isxdigit(c)
>>> +#endif
>>> +
>>> +#else
>>> +# if (PERL_BCDVERSION < 0x5010000)
>>> +/* Hint: isPRINT
>>> + * The implementation in older perl versions includes all of the
>>> + * isSPACE() characters, which is wrong. The version provided by
>>> + * Devel::PPPort always overrides a present buggy version.
>>> + */
>>> +# undef isPRINT
>>> +# endif
>>> +
>>> +#ifndef WIDEST_UTYPE
>>> +# ifdef QUADKIND
>>> +# ifdef U64TYPE
>>> +# define WIDEST_UTYPE U64TYPE
>>> +# else
>>> +# define WIDEST_UTYPE Quad_t
>>> +# endif
>>> +# else
>>> +# define WIDEST_UTYPE U32
>>> +# endif
>>> +#endif
>>> +#ifndef isALNUMC
>>> +# define isALNUMC(c) (isALPHA(c) ||
>>> isDIGIT(c))
>>> +#endif
>>> +
>>> +#ifndef isASCII
>>> +# define isASCII(c) ((WIDEST_UTYPE) (c) <=
>>> 127)
>>> +#endif
>>> +
>>> +#ifndef isCNTRL
>>> +# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' '
>>> || (c) == 127)
>>> +#endif
>>> +
>>> +#ifndef isGRAPH
>>> +# define isGRAPH(c) (isALNUM(c) ||
>>> isPUNCT(c))
>>> +#endif
>>> +
>>> +#ifndef isPRINT
>>> +# define isPRINT(c) (((c) >= 32 && (c) <
>>> 127))
>>> +#endif
>>> +
>>> +#ifndef isPUNCT
>>> +# define isPUNCT(c) (((c) >= 33 && (c) <= 47)
>>> || ((c) >= 58 && (c) <= 64) || ((c) >= 91 && (c) <= 96) || ((c) >=
>>> 123 && (c) <= 126))
>>> +#endif
>>> +
>>> +#ifndef isXDIGIT
>>> +# define isXDIGIT(c) (isDIGIT(c) || ((c) >=
>>> 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F'))
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +/* Until we figure out how to support this in older perls... */
>>> +#if (PERL_BCDVERSION >= 0x5008000)
>>> +#ifndef HeUTF8
>>> +# define HeUTF8(he) ((HeKLEN(he) ==
>>> HEf_SVKEY) ? \
>>> + SvUTF8(HeKEY_sv(he))
>>> : \
>>> + (U32)HeKUTF8(he))
>>> +#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 IVdf
>>> +# if IVSIZE == LONGSIZE
>>> +# define IVdf "ld"
>>> +# define UVuf "lu"
>>> +# define UVof "lo"
>>> +# define UVxf "lx"
>>> +# define UVXf "lX"
>>> +# elif IVSIZE == INTSIZE
>>> +# define IVdf "d"
>>> +# define UVuf "u"
>>> +# define UVof "o"
>>> +# define UVxf "x"
>>> +# define UVXf "X"
>>> +# else
>>> +# error "cannot define IV/UV formats"
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef NVef
>>> +# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
>>> + defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
>>> + /* Not very likely, but let's try anyway. */
>>> +# define NVef PERL_PRIeldbl
>>> +# define NVff PERL_PRIfldbl
>>> +# define NVgf PERL_PRIgldbl
>>> +# else
>>> +# define NVef "e"
>>> +# define NVff "f"
>>> +# define NVgf "g"
>>> +# endif
>>> +#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 params);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_croak_xs_usage)(const CV * const cv, const
>>> char * const params);
>>> +#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
>>> +
>>> +#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
>>> +
>>> +#if (PERL_BCDVERSION < 0x5008000)
>>> +# define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG
>>> +#else
>>> +# define D_PPP_PERL_SIGNALS_INIT 0
>>> +#endif
>>> +
>>> +#if defined(NEED_PL_signals)
>>> +static U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
>>> +#elif defined(NEED_PL_signals_GLOBAL)
>>> +U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
>>> +#else
>>> +extern U32 DPPP_(my_PL_signals);
>>> +#endif
>>> +#define PL_signals DPPP_(my_PL_signals)
>>> +
>>> +#endif
>>> +
>>> +/* Hint: PL_ppaddr
>>> + * Calling an op via PL_ppaddr requires passing a context argument
>>> + * for threaded builds. Since the context argument is different
>>> for
>>> + * 5.005 perls, you can use aTHXR (supplied by ppport.h), which
>>> will
>>> + * automatically be defined as the correct argument.
>>> + */
>>> +
>>> +#if (PERL_BCDVERSION <= 0x5005005)
>>> +/* Replace: 1 */
>>> +# define PL_ppaddr ppaddr
>>> +# define PL_no_modify no_modify
>>> +/* Replace: 0 */
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION <= 0x5004005)
>>> +/* Replace: 1 */
>>> +# define PL_DBsignal DBsignal
>>> +# define PL_DBsingle DBsingle
>>> +# define PL_DBsub DBsub
>>> +# define PL_DBtrace DBtrace
>>> +# define PL_Sv Sv
>>> +# define PL_bufend bufend
>>> +# define PL_bufptr bufptr
>>> +# define PL_compiling compiling
>>> +# define PL_copline copline
>>> +# define PL_curcop curcop
>>> +# define PL_curstash curstash
>>> +# define PL_debstash debstash
>>> +# define PL_defgv defgv
>>> +# define PL_diehook diehook
>>> +# define PL_dirty dirty
>>> +# define PL_dowarn dowarn
>>> +# define PL_errgv errgv
>>> +# define PL_error_count error_count
>>> +# define PL_expect expect
>>> +# define PL_hexdigit hexdigit
>>> +# define PL_hints hints
>>> +# define PL_in_my in_my
>>> +# define PL_laststatval laststatval
>>> +# define PL_lex_state lex_state
>>> +# define PL_lex_stuff lex_stuff
>>> +# define PL_linestr linestr
>>> +# define PL_na na
>>> +# define PL_perl_destruct_level perl_destruct_level
>>> +# define PL_perldb perldb
>>> +# define PL_rsfp_filters rsfp_filters
>>> +# define PL_rsfp rsfp
>>> +# define PL_stack_base stack_base
>>> +# define PL_stack_sp stack_sp
>>> +# define PL_statcache statcache
>>> +# define PL_stdingv stdingv
>>> +# define PL_sv_arenaroot sv_arenaroot
>>> +# define PL_sv_no sv_no
>>> +# define PL_sv_undef sv_undef
>>> +# define PL_sv_yes sv_yes
>>> +# define PL_tainted tainted
>>> +# define PL_tainting tainting
>>> +# define PL_tokenbuf tokenbuf
>>> +/* Replace: 0 */
>>> +#endif
>>> +
>>> +/* Warning: PL_parser
>>> + * For perl versions earlier than 5.9.5, this is an always
>>> + * non-NULL dummy. Also, it cannot be dereferenced. Don't
>>> + * use it if you can avoid is and unless you absolutely know
>>> + * what you're doing.
>>> + * If you always check that PL_parser is non-NULL, you can
>>> + * define DPPP_PL_parser_NO_DUMMY to avoid the creation of
>>> + * a dummy parser structure.
>>> + */
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5009005)
>>> +# ifdef DPPP_PL_parser_NO_DUMMY
>>> +# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
>>> + (croak("panic: PL_parser == NULL in %s:%d", \
>>> + __FILE__, __LINE__), (yy_parser *) NULL))-
>>>> var)
>>> +# else
>>> +# ifdef DPPP_PL_parser_NO_DUMMY_WARNING
>>> +# define D_PPP_parser_dummy_warning(var)
>>> +# else
>>> +# define D_PPP_parser_dummy_warning(var) \
>>> + warn("warning: dummy PL_" #var " used in %s:%d",
>>> __FILE__, __LINE__),
>>> +# endif
>>> +# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
>>> + (D_PPP_parser_dummy_warning(var)
>>> &DPPP_(dummy_PL_parser)))->var)
>>> +#if defined(NEED_PL_parser)
>>> +static yy_parser DPPP_(dummy_PL_parser);
>>> +#elif defined(NEED_PL_parser_GLOBAL)
>>> +yy_parser DPPP_(dummy_PL_parser);
>>> +#else
>>> +extern yy_parser DPPP_(dummy_PL_parser);
>>> +#endif
>>> +
>>> +# endif
>>> +
>>> +/* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr,
>>> PL_bufptr, PL_bufend, 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_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff,
>>> PL_tokenbuf
>>> + * Do not use this variable unless you know exactly what you're
>>> + * 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
>>> + * for (PL_parser != NULL) for this variable to have any effect.
>>> + * An always non-NULL PL_parser dummy is provided for earlier
>>> + * perl versions.
>>> + * If PL_parser is NULL when you try to access this variable, a
>>> + * dummy is being accessed instead and a warning is issued unless
>>> + * you define DPPP_PL_parser_NO_DUMMY_WARNING.
>>> + * If DPPP_PL_parser_NO_DUMMY is defined, the code trying to
>>> access
>>> + * this variable will croak with a panic message.
>>> + */
>>> +
>>> +# define PL_expect D_PPP_my_PL_parser_var(expect)
>>> +# define PL_copline D_PPP_my_PL_parser_var(copline)
>>> +# define PL_rsfp D_PPP_my_PL_parser_var(rsfp)
>>> +# define PL_rsfp_filters D_PPP_my_PL_parser_var(rsfp_filters)
>>> +# define PL_linestr D_PPP_my_PL_parser_var(linestr)
>>> +# define PL_bufptr D_PPP_my_PL_parser_var(bufptr)
>>> +# define PL_bufend D_PPP_my_PL_parser_var(bufend)
>>> +# define PL_lex_state D_PPP_my_PL_parser_var(lex_state)
>>> +# define PL_lex_stuff D_PPP_my_PL_parser_var(lex_stuff)
>>> +# define PL_tokenbuf D_PPP_my_PL_parser_var(tokenbuf)
>>> +# define PL_in_my D_PPP_my_PL_parser_var(in_my)
>>> +# define PL_in_my_stash D_PPP_my_PL_parser_var(in_my_stash)
>>> +# define PL_error_count D_PPP_my_PL_parser_var(error_count)
>>> +
>>> +
>>> +#else
>>> +
>>> +/* ensure that PL_parser != NULL and cannot be dereferenced */
>>> +# define PL_parser ((void *) 1)
>>> +
>>> +#endif
>>> +#ifndef mPUSHs
>>> +# define mPUSHs(s) PUSHs(sv_2mortal(s))
>>> +#endif
>>> +
>>> +#ifndef PUSHmortal
>>> +# define PUSHmortal PUSHs(sv_newmortal())
>>> +#endif
>>> +
>>> +#ifndef mPUSHp
>>> +# define mPUSHp(p,l) sv_setpvn(PUSHmortal,
>>> (p), (l))
>>> +#endif
>>> +
>>> +#ifndef mPUSHn
>>> +# define mPUSHn(n) sv_setnv(PUSHmortal,
>>> (NV)(n))
>>> +#endif
>>> +
>>> +#ifndef mPUSHi
>>> +# define mPUSHi(i) sv_setiv(PUSHmortal,
>>> (IV)(i))
>>> +#endif
>>> +
>>> +#ifndef mPUSHu
>>> +# define mPUSHu(u) sv_setuv(PUSHmortal,
>>> (UV)(u))
>>> +#endif
>>> +#ifndef mXPUSHs
>>> +# define mXPUSHs(s) XPUSHs(sv_2mortal(s))
>>> +#endif
>>> +
>>> +#ifndef XPUSHmortal
>>> +# define XPUSHmortal XPUSHs(sv_newmortal())
>>> +#endif
>>> +
>>> +#ifndef mXPUSHp
>>> +# define mXPUSHp(p,l) STMT_START {
>>> EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
>>> +#endif
>>> +
>>> +#ifndef mXPUSHn
>>> +# define mXPUSHn(n) STMT_START {
>>> EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
>>> +#endif
>>> +
>>> +#ifndef mXPUSHi
>>> +# define mXPUSHi(i) STMT_START {
>>> EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
>>> +#endif
>>> +
>>> +#ifndef mXPUSHu
>>> +# define mXPUSHu(u) STMT_START {
>>> EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
>>> +#endif
>>> +
>>> +/* Replace: 1 */
>>> +#ifndef call_sv
>>> +# define call_sv perl_call_sv
>>> +#endif
>>> +
>>> +#ifndef call_pv
>>> +# define call_pv perl_call_pv
>>> +#endif
>>> +
>>> +#ifndef call_argv
>>> +# define call_argv perl_call_argv
>>> +#endif
>>> +
>>> +#ifndef call_method
>>> +# define call_method perl_call_method
>>> +#endif
>>> +#ifndef eval_sv
>>> +# define eval_sv perl_eval_sv
>>> +#endif
>>> +
>>> +/* Replace: 0 */
>>> +#ifndef PERL_LOADMOD_DENY
>>> +# define PERL_LOADMOD_DENY 0x1
>>> +#endif
>>> +
>>> +#ifndef PERL_LOADMOD_NOIMPORT
>>> +# define PERL_LOADMOD_NOIMPORT 0x2
>>> +#endif
>>> +
>>> +#ifndef PERL_LOADMOD_IMPORT_OPS
>>> +# define PERL_LOADMOD_IMPORT_OPS 0x4
>>> +#endif
>>> +
>>> +#ifndef G_METHOD
>>> +# define G_METHOD 64
>>> +# ifdef call_sv
>>> +# undef call_sv
>>> +# endif
>>> +# if (PERL_BCDVERSION < 0x5006000)
>>> +# define call_sv(sv, flags) ((flags) & G_METHOD ?
>>> perl_call_method((char *) SvPV_nolen_const(sv), \
>>> + (flags) & ~G_METHOD) :
>>> perl_call_sv(sv, flags))
>>> +# else
>>> +# define call_sv(sv, flags) ((flags) & G_METHOD ?
>>> Perl_call_method(aTHX_ (char *) SvPV_nolen_const(sv), \
>>> + (flags) & ~G_METHOD) :
>>> Perl_call_sv(aTHX_ sv, flags))
>>> +# endif
>>> +#endif
>>> +
>>> +/* Replace perl_eval_pv with eval_pv */
>>> +
>>> +#ifndef eval_pv
>>> +#if defined(NEED_eval_pv)
>>> +static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
>>> +static
>>> +#else
>>> +extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
>>> +#endif
>>> +
>>> +#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
>>> +
>>> +#ifdef eval_pv
>>> +# undef eval_pv
>>> +#endif
>>> +#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)
>>> +#define Perl_eval_pv DPPP_(my_eval_pv)
>>> +
>>> +
>>> +SV*
>>> +DPPP_(my_eval_pv)(char *p, I32 croak_on_error)
>>> +{
>>> + dSP;
>>> + SV* sv = newSVpv(p, 0);
>>> +
>>> + PUSHMARK(sp);
>>> + eval_sv(sv, G_SCALAR);
>>> + SvREFCNT_dec(sv);
>>> +
>>> + SPAGAIN;
>>> + sv = POPs;
>>> + PUTBACK;
>>> +
>>> + if (croak_on_error && SvTRUEx(ERRSV))
>>> + croak_sv(ERRSV);
>>> +
>>> + return sv;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef vload_module
>>> +#if defined(NEED_vload_module)
>>> +static void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver,
>>> va_list *args);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver,
>>> va_list *args);
>>> +#endif
>>> +
>>> +#if defined(NEED_vload_module) ||
>>> defined(NEED_vload_module_GLOBAL)
>>> +
>>> +#ifdef vload_module
>>> +# undef vload_module
>>> +#endif
>>> +#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_
>>> a,b,c,d)
>>> +#define Perl_vload_module DPPP_(my_vload_module)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list
>>> *args)
>>> +{
>>> + dTHR;
>>> + dVAR;
>>> + OP *veop, *imop;
>>> +
>>> + OP * const modname = newSVOP(OP_CONST, 0, name);
>>> + /* 5.005 has a somewhat hacky force_normal that doesn't croak
>>> on
>>> + SvREADONLY() if PL_compling is true. Current perls take
>>> care in
>>> + ck_require() to correctly turn off SvREADONLY before
>>> calling
>>> + force_normal_flags(). This seems a better fix than fudging
>>> PL_compling
>>> + */
>>> + SvREADONLY_off(((SVOP*)modname)->op_sv);
>>> + modname->op_private |= OPpCONST_BARE;
>>> + if (ver) {
>>> + veop = newSVOP(OP_CONST, 0, ver);
>>> + }
>>> + else
>>> + veop = NULL;
>>> + if (flags & PERL_LOADMOD_NOIMPORT) {
>>> + imop = sawparens(newNULLLIST());
>>> + }
>>> + else if (flags & PERL_LOADMOD_IMPORT_OPS) {
>>> + imop = va_arg(*args, OP*);
>>> + }
>>> + else {
>>> + SV *sv;
>>> + imop = NULL;
>>> + sv = va_arg(*args, SV*);
>>> + while (sv) {
>>> + imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0,
>>> sv));
>>> + sv = va_arg(*args, SV*);
>>> + }
>>> + }
>>> + {
>>> + const line_t ocopline = PL_copline;
>>> + COP * const ocurcop = PL_curcop;
>>> + const int oexpect = PL_expect;
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000)
>>> + utilize(!(flags & PERL_LOADMOD_DENY),
>>> start_subparse(FALSE, 0),
>>> + veop, modname, imop);
>>> +#elif (PERL_BCDVERSION > 0x5003000)
>>> + utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
>>> + veop, modname, imop);
>>> +#else
>>> + utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
>>> + modname, imop);
>>> +#endif
>>> + PL_expect = oexpect;
>>> + PL_copline = ocopline;
>>> + PL_curcop = ocurcop;
>>> + }
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef load_module
>>> +#if defined(NEED_load_module)
>>> +static void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver,
>>> ...);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver,
>>> ...);
>>> +#endif
>>> +
>>> +#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
>>> +
>>> +#ifdef load_module
>>> +# undef load_module
>>> +#endif
>>> +#define load_module DPPP_(my_load_module)
>>> +#define Perl_load_module DPPP_(my_load_module)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...)
>>> +{
>>> + va_list args;
>>> + va_start(args, ver);
>>> + vload_module(flags, name, ver, &args);
>>> + va_end(args);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#ifndef newRV_inc
>>> +# define newRV_inc(sv) newRV(sv) /* Replace */
>>> +#endif
>>> +
>>> +#ifndef newRV_noinc
>>> +#if defined(NEED_newRV_noinc)
>>> +static SV * DPPP_(my_newRV_noinc)(SV *sv);
>>> +static
>>> +#else
>>> +extern SV * DPPP_(my_newRV_noinc)(SV *sv);
>>> +#endif
>>> +
>>> +#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)
>>> +
>>> +#ifdef newRV_noinc
>>> +# undef newRV_noinc
>>> +#endif
>>> +#define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a)
>>> +#define Perl_newRV_noinc DPPP_(my_newRV_noinc)
>>> +
>>> +SV *
>>> +DPPP_(my_newRV_noinc)(SV *sv)
>>> +{
>>> + SV *rv = (SV *)newRV(sv);
>>> + SvREFCNT_dec(sv);
>>> + return rv;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +/* Hint: newCONSTSUB
>>> + * Returns a CV* as of perl-5.7.1. This return value is not
>>> supported
>>> + * by Devel::PPPort.
>>> + */
>>> +
>>> +/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
>>> +#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION !=
>>> 0x5004005)
>>> +#if defined(NEED_newCONSTSUB)
>>> +static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV
>>> *sv);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV
>>> *sv);
>>> +#endif
>>> +
>>> +#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
>>> +
>>> +#ifdef newCONSTSUB
>>> +# undef newCONSTSUB
>>> +#endif
>>> +#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
>>> +#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
>>> +
>>> +
>>> +/* 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) */
>>> +#define D_PPP_PL_copline PL_copline
>>> +
>>> +void
>>> +DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
>>> +{
>>> + U32 oldhints = PL_hints;
>>> + HV *old_cop_stash = PL_curcop->cop_stash;
>>> + HV *old_curstash = PL_curstash;
>>> + line_t oldline = PL_curcop->cop_line;
>>> + PL_curcop->cop_line = D_PPP_PL_copline;
>>> +
>>> + PL_hints &= ~HINT_BLOCK_SCOPE;
>>> + if (stash)
>>> + PL_curstash = PL_curcop->cop_stash = stash;
>>> +
>>> + newSUB(
>>> +
>>> +#if (PERL_BCDVERSION < 0x5003022)
>>> + start_subparse(),
>>> +#elif (PERL_BCDVERSION == 0x5003022)
>>> + start_subparse(0),
>>> +#else /* 5.003_23 onwards */
>>> + start_subparse(FALSE, 0),
>>> +#endif
>>> +
>>> + newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
>>> + newSVOP(OP_CONST, 0, &PL_sv_no), /*
>>> SvPV(&PL_sv_no) == "" -- GMB */
>>> + newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
>>> + );
>>> +
>>> + PL_hints = oldhints;
>>> + PL_curcop->cop_stash = old_cop_stash;
>>> + PL_curstash = old_curstash;
>>> + PL_curcop->cop_line = oldline;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +/*
>>> + * Boilerplate macros for initializing and accessing interpreter-
>>> local
>>> + * data from C. All statics in extensions should be reworked to
>>> use
>>> + * this, if you want to make the extension thread-safe. See
>>> ext/re/re.xs
>>> + * for an example of the use of these macros.
>>> + *
>>> + * Code that uses these macros is responsible for the following:
>>> + * 1. #define MY_CXT_KEY to a unique string, e.g.
>>> "DynaLoader_guts"
>>> + * 2. Declare a typedef named my_cxt_t that is a structure that
>>> contains
>>> + * all the data that needs to be interpreter-local.
>>> + * 3. Use the START_MY_CXT macro after the declaration of
>>> my_cxt_t.
>>> + * 4. Use the MY_CXT_INIT macro such that it is called exactly
>>> once
>>> + * (typically put in the BOOT: section).
>>> + * 5. Use the members of the my_cxt_t structure everywhere as
>>> + * MY_CXT.member.
>>> + * 6. Use the dMY_CXT macro (a declaration) in all the functions
>>> that
>>> + * access MY_CXT.
>>> + */
>>> +
>>> +#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
>>> + defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
>>> +
>>> +#ifndef START_MY_CXT
>>> +
>>> +/* This must appear in all extensions that define a my_cxt_t
>>> structure,
>>> + * right after the definition (i.e. at file scope). The non-
>>> threads
>>> + * case below uses it to declare the data as static. */
>>> +#define START_MY_CXT
>>> +
>>> +#if (PERL_BCDVERSION < 0x5004068)
>>> +/* Fetches the SV that keeps the per-interpreter data. */
>>> +#define dMY_CXT_SV \
>>> + SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
>>> +#else /* >= perl5.004_68 */
>>> +#define dMY_CXT_SV \
>>> + SV *my_cxt_sv = *hv_fetch(PL_modglobal,
>>> MY_CXT_KEY, \
>>> + sizeof(MY_CXT_KEY)-1, TRUE)
>>> +#endif /* < perl5.004_68 */
>>> +
>>> +/* This declaration should be used within all functions that use
>>> the
>>> + * interpreter-local data. */
>>> +#define dMY_CXT \
>>> + dMY_CXT_SV;
>>> \
>>> + my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
>>> +
>>> +/* Creates and zeroes the per-interpreter data.
>>> + * (We allocate my_cxtp in a Perl SV so that it will be released
>>> when
>>> + * the interpreter goes away.) */
>>> +#define MY_CXT_INIT \
>>> + dMY_CXT_SV;
>>> \
>>> + /* newSV() allocates one more than needed
>>> */ \
>>> + my_cxt_t *my_cxtp =
>>> (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
>>> + Zero(my_cxtp, 1,
>>> my_cxt_t); \
>>> + sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
>>> +
>>> +/* This macro must be used to access members of the my_cxt_t
>>> structure.
>>> + * e.g. MYCXT.some_data */
>>> +#define MY_CXT (*my_cxtp)
>>> +
>>> +/* Judicious use of these macros can reduce the number of times
>>> dMY_CXT
>>> + * is used. Use is similar to pTHX, aTHX etc. */
>>> +#define pMY_CXT my_cxt_t *my_cxtp
>>> +#define pMY_CXT_ pMY_CXT,
>>> +#define _pMY_CXT ,pMY_CXT
>>> +#define aMY_CXT my_cxtp
>>> +#define aMY_CXT_ aMY_CXT,
>>> +#define _aMY_CXT ,aMY_CXT
>>> +
>>> +#endif /* START_MY_CXT */
>>> +
>>> +#ifndef MY_CXT_CLONE
>>> +/* Clones the per-interpreter data. */
>>> +#define MY_CXT_CLONE \
>>> + dMY_CXT_SV;
>>> \
>>> + my_cxt_t *my_cxtp =
>>> (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
>>> + Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1,
>>> my_cxt_t);\
>>> + sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
>>> +#endif
>>> +
>>> +#else /* single interpreter */
>>> +
>>> +#ifndef START_MY_CXT
>>> +
>>> +#define START_MY_CXT static my_cxt_t my_cxt;
>>> +#define dMY_CXT_SV dNOOP
>>> +#define dMY_CXT dNOOP
>>> +#define MY_CXT_INIT NOOP
>>> +#define MY_CXT my_cxt
>>> +
>>> +#define pMY_CXT void
>>> +#define pMY_CXT_
>>> +#define _pMY_CXT
>>> +#define aMY_CXT
>>> +#define aMY_CXT_
>>> +#define _aMY_CXT
>>> +
>>> +#endif /* START_MY_CXT */
>>> +
>>> +#ifndef MY_CXT_CLONE
>>> +#define MY_CXT_CLONE NOOP
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc
>>> +# ifdef PERL_USE_GCC_BRACE_GROUPS
>>> +# define SvREFCNT_inc(sv) \
>>> + ({ \
>>> + SV * const _sv = (SV*)(sv); \
>>> + if (_sv) \
>>> + (SvREFCNT(_sv))++; \
>>> + _sv; \
>>> + })
>>> +# else
>>> +# define SvREFCNT_inc(sv) \
>>> + ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_simple
>>> +# ifdef PERL_USE_GCC_BRACE_GROUPS
>>> +# define SvREFCNT_inc_simple(sv) \
>>> + ({ \
>>> + if (sv) \
>>> + (SvREFCNT(sv))++; \
>>> + (SV *)(sv); \
>>> + })
>>> +# else
>>> +# define SvREFCNT_inc_simple(sv) \
>>> + ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_NN
>>> +# ifdef PERL_USE_GCC_BRACE_GROUPS
>>> +# define SvREFCNT_inc_NN(sv) \
>>> + ({ \
>>> + SV * const _sv = (SV*)(sv); \
>>> + SvREFCNT(_sv)++; \
>>> + _sv; \
>>> + })
>>> +# else
>>> +# define SvREFCNT_inc_NN(sv) \
>>> + (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
>>> +# endif
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_void
>>> +# ifdef PERL_USE_GCC_BRACE_GROUPS
>>> +# define SvREFCNT_inc_void(sv) \
>>> + ({ \
>>> + SV * const _sv = (SV*)(sv); \
>>> + if (_sv) \
>>> + (void)(SvREFCNT(_sv)++); \
>>> + })
>>> +# else
>>> +# define SvREFCNT_inc_void(sv) \
>>> + (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
>>> +# endif
>>> +#endif
>>> +#ifndef SvREFCNT_inc_simple_void
>>> +# define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv)
>>> SvREFCNT(sv)++; } STMT_END
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_simple_NN
>>> +# define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv),
>>> (SV*)(sv))
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_void_NN
>>> +# define
>>> SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
>>> +#endif
>>> +
>>> +#ifndef SvREFCNT_inc_simple_void_NN
>>> +# define SvREFCNT_inc_simple_void_NN(sv)
>>> (void)(++SvREFCNT((SV*)(sv)))
>>> +#endif
>>> +
>>> +#ifndef newSV_type
>>> +
>>> +#if defined(NEED_newSV_type)
>>> +static SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
>>> +static
>>> +#else
>>> +extern SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
>>> +#endif
>>> +
>>> +#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
>>> +
>>> +#ifdef newSV_type
>>> +# undef newSV_type
>>> +#endif
>>> +#define newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a)
>>> +#define Perl_newSV_type DPPP_(my_newSV_type)
>>> +
>>> +
>>> +SV*
>>> +DPPP_(my_newSV_type)(pTHX_ svtype const t)
>>> +{
>>> + SV* const sv = newSV(0);
>>> + sv_upgrade(sv, t);
>>> + return sv;
>>> +}
>>> +
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5006000)
>>> +# define D_PPP_CONSTPV_ARG(x) ((char *) (x))
>>> +#else
>>> +# define D_PPP_CONSTPV_ARG(x) (x)
>>> +#endif
>>> +#ifndef newSVpvn
>>> +# define
>>> newSVpvn(data,len) ((data)
>>> \
>>> + ? ((len) ? newSVpv((data),
>>> (len)) : newSVpv("", 0)) \
>>> + : newSV(0))
>>> +#endif
>>> +#ifndef newSVpvn_utf8
>>> +# define newSVpvn_utf8(s, len, u) newSVpvn_flags((s),
>>> (len), (u) ? SVf_UTF8 : 0)
>>> +#endif
>>> +#ifndef SVf_UTF8
>>> +# define SVf_UTF8 0
>>> +#endif
>>> +
>>> +#ifndef newSVpvn_flags
>>> +
>>> +#if defined(NEED_newSVpvn_flags)
>>> +static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN
>>> len, U32 flags);
>>> +static
>>> +#else
>>> +extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN
>>> len, U32 flags);
>>> +#endif
>>> +
>>> +#if defined(NEED_newSVpvn_flags) ||
>>> defined(NEED_newSVpvn_flags_GLOBAL)
>>> +
>>> +#ifdef newSVpvn_flags
>>> +# undef newSVpvn_flags
>>> +#endif
>>> +#define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_
>>> a,b,c)
>>> +#define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags)
>>> +
>>> +
>>> +SV *
>>> +DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32
>>> flags)
>>> +{
>>> + SV *sv = newSVpvn(D_PPP_CONSTPV_ARG(s), len);
>>> + SvFLAGS(sv) |= (flags & SVf_UTF8);
>>> + return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;
>>> +}
>>> +
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +/* Backwards compatibility stuff... :-( */
>>> +#if !defined(NEED_sv_2pv_flags) && defined(NEED_sv_2pv_nolen)
>>> +# define NEED_sv_2pv_flags
>>> +#endif
>>> +#if !defined(NEED_sv_2pv_flags_GLOBAL) &&
>>> defined(NEED_sv_2pv_nolen_GLOBAL)
>>> +# define NEED_sv_2pv_flags_GLOBAL
>>> +#endif
>>> +
>>> +/* Hint: sv_2pv_nolen
>>> + * Use the SvPV_nolen() or SvPV_nolen_const() macros instead of
>>> sv_2pv_nolen().
>>> + */
>>> +#ifndef sv_2pv_nolen
>>> +# define sv_2pv_nolen(sv) SvPV_nolen(sv)
>>> +#endif
>>> +
>>> +#ifdef SvPVbyte
>>> +
>>> +/* Hint: SvPVbyte
>>> + * Does not work in perl-5.6.1, ppport.h implements a version
>>> + * borrowed from perl-5.7.3.
>>> + */
>>> +
>>> +#if (PERL_BCDVERSION < 0x5007000)
>>> +
>>> +#if defined(NEED_sv_2pvbyte)
>>> +static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
>>> +static
>>> +#else
>>> +extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
>>> +
>>> +#ifdef sv_2pvbyte
>>> +# undef sv_2pvbyte
>>> +#endif
>>> +#define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b)
>>> +#define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte)
>>> +
>>> +
>>> +char *
>>> +DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
>>> +{
>>> + sv_utf8_downgrade(sv,0);
>>> + return SvPV(sv,*lp);
>>> +}
>>> +
>>> +#endif
>>> +
>>> +/* Hint: sv_2pvbyte
>>> + * Use the SvPVbyte() macro instead of sv_2pvbyte().
>>> + */
>>> +
>>> +#undef SvPVbyte
>>> +
>>> +#define SvPVbyte(sv,
>>> lp) \
>>> + ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) ==
>>> (SVf_POK) \
>>> + ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
>>> +
>>> +#endif
>>> +
>>> +#else
>>> +
>>> +# define SvPVbyte SvPV
>>> +# define sv_2pvbyte sv_2pv
>>> +
>>> +#endif
>>> +#ifndef sv_2pvbyte_nolen
>>> +# define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
>>> +#endif
>>> +
>>> +/* Hint: sv_pvn
>>> + * Always use the SvPV() macro instead of sv_pvn().
>>> + */
>>> +
>>> +/* Hint: sv_pvn_force
>>> + * Always use the SvPV_force() macro instead of sv_pvn_force().
>>> + */
>>> +
>>> +/* If these are undefined, they're not handled by the core anyway
>>> */
>>> +#ifndef SV_IMMEDIATE_UNREF
>>> +# define SV_IMMEDIATE_UNREF 0
>>> +#endif
>>> +
>>> +#ifndef SV_GMAGIC
>>> +# define SV_GMAGIC 0
>>> +#endif
>>> +
>>> +#ifndef SV_COW_DROP_PV
>>> +# define SV_COW_DROP_PV 0
>>> +#endif
>>> +
>>> +#ifndef SV_UTF8_NO_ENCODING
>>> +# define SV_UTF8_NO_ENCODING 0
>>> +#endif
>>> +
>>> +#ifndef SV_NOSTEAL
>>> +# define SV_NOSTEAL 0
>>> +#endif
>>> +
>>> +#ifndef SV_CONST_RETURN
>>> +# define SV_CONST_RETURN 0
>>> +#endif
>>> +
>>> +#ifndef SV_MUTABLE_RETURN
>>> +# define SV_MUTABLE_RETURN 0
>>> +#endif
>>> +
>>> +#ifndef SV_SMAGIC
>>> +# define SV_SMAGIC 0
>>> +#endif
>>> +
>>> +#ifndef SV_HAS_TRAILING_NUL
>>> +# define SV_HAS_TRAILING_NUL 0
>>> +#endif
>>> +
>>> +#ifndef SV_COW_SHARED_HASH_KEYS
>>> +# define SV_COW_SHARED_HASH_KEYS 0
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5007002)
>>> +
>>> +#if defined(NEED_sv_2pv_flags)
>>> +static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32
>>> flags);
>>> +static
>>> +#else
>>> +extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32
>>> flags);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_2pv_flags) ||
>>> defined(NEED_sv_2pv_flags_GLOBAL)
>>> +
>>> +#ifdef sv_2pv_flags
>>> +# undef sv_2pv_flags
>>> +#endif
>>> +#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)
>>> +
>>> +
>>> +char *
>>> +DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
>>> +{
>>> + STRLEN n_a = (STRLEN) flags;
>>> + return sv_2pv(sv, lp ? lp : &n_a);
>>> +}
>>> +
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_pvn_force_flags)
>>> +static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN
>>> *lp, I32 flags);
>>> +static
>>> +#else
>>> +extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN
>>> *lp, I32 flags);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_pvn_force_flags) ||
>>> defined(NEED_sv_pvn_force_flags_GLOBAL)
>>> +
>>> +#ifdef sv_pvn_force_flags
>>> +# undef sv_pvn_force_flags
>>> +#endif
>>> +#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)
>>> +
>>> +
>>> +char *
>>> +DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
>>> +{
>>> + STRLEN n_a = (STRLEN) flags;
>>> + return sv_pvn_force(sv, lp ? lp : &n_a);
>>> +}
>>> +
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >=
>>> 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
>>> +# define D_PPP_SVPV_NOLEN_LP_ARG &PL_na
>>> +#else
>>> +# define D_PPP_SVPV_NOLEN_LP_ARG 0
>>> +#endif
>>> +#ifndef SvPV_const
>>> +# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp,
>>> SV_GMAGIC)
>>> +#endif
>>> +
>>> +#ifndef SvPV_mutable
>>> +# define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv,
>>> lp, SV_GMAGIC)
>>> +#endif
>>> +#ifndef SvPV_flags
>>> +# define SvPV_flags(sv, lp, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? ((lp = SvCUR(sv)), SvPVX(sv)) :
>>> sv_2pv_flags(sv, &lp, flags))
>>> +#endif
>>> +#ifndef SvPV_flags_const
>>> +# define SvPV_flags_const(sv, lp, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
>>> + (const char*) sv_2pv_flags(sv, &lp,
>>> flags|SV_CONST_RETURN))
>>> +#endif
>>> +#ifndef SvPV_flags_const_nolen
>>> +# define SvPV_flags_const_nolen(sv, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? SvPVX_const(sv) : \
>>> + (const char*) sv_2pv_flags(sv,
>>> D_PPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
>>> +#endif
>>> +#ifndef SvPV_flags_mutable
>>> +# define SvPV_flags_mutable(sv, lp, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
>>> + sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
>>> +#endif
>>> +#ifndef SvPV_force
>>> +# define SvPV_force(sv, lp) SvPV_force_flags(sv, lp,
>>> SV_GMAGIC)
>>> +#endif
>>> +
>>> +#ifndef SvPV_force_nolen
>>> +# define
>>> SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv,
>>> SV_GMAGIC)
>>> +#endif
>>> +
>>> +#ifndef SvPV_force_mutable
>>> +# define SvPV_force_mutable(sv,
>>> lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
>>> +#endif
>>> +
>>> +#ifndef SvPV_force_nomg
>>> +# define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp,
>>> 0)
>>> +#endif
>>> +
>>> +#ifndef SvPV_force_nomg_nolen
>>> +# define
>>> SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
>>> +#endif
>>> +#ifndef SvPV_force_flags
>>> +# define SvPV_force_flags(sv, lp, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) ==
>>> SVf_POK \
>>> + ? ((lp = SvCUR(sv)), SvPVX(sv)) :
>>> sv_pvn_force_flags(sv, &lp, flags))
>>> +#endif
>>> +#ifndef SvPV_force_flags_nolen
>>> +# define SvPV_force_flags_nolen(sv, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) ==
>>> SVf_POK \
>>> + ? SvPVX(sv) : sv_pvn_force_flags(sv,
>>> D_PPP_SVPV_NOLEN_LP_ARG, flags))
>>> +#endif
>>> +#ifndef SvPV_force_flags_mutable
>>> +# define SvPV_force_flags_mutable(sv, lp, flags) \
>>> + ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) ==
>>> SVf_POK \
>>> + ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
>>> + : sv_pvn_force_flags(sv, &lp,
>>> flags|SV_MUTABLE_RETURN))
>>> +#endif
>>> +#ifndef SvPV_nolen
>>> +# define SvPV_nolen(sv) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? SvPVX(sv) : sv_2pv_flags(sv,
>>> D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
>>> +#endif
>>> +#ifndef SvPV_nolen_const
>>> +# define SvPV_nolen_const(sv) \
>>> + ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
>>> + ? SvPVX_const(sv) : sv_2pv_flags(sv,
>>> D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
>>> +#endif
>>> +#ifndef SvPV_nomg
>>> +# define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
>>> +#endif
>>> +
>>> +#ifndef SvPV_nomg_const
>>> +# define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp,
>>> 0)
>>> +#endif
>>> +
>>> +#ifndef SvPV_nomg_const_nolen
>>> +# define
>>> SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
>>> +#endif
>>> +
>>> +#ifndef SvPV_nomg_nolen
>>> +# define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) &
>>> (SVf_POK)) == SVf_POK \
>>> + ? SvPVX(sv) : sv_2pv_flags(sv,
>>> D_PPP_SVPV_NOLEN_LP_ARG, 0))
>>> +#endif
>>> +#ifndef SvPV_renew
>>> +# define SvPV_renew(sv,n) STMT_START {
>>> SvLEN_set(sv, n); \
>>> + SvPV_set((sv), (char *) saferealloc( \
>>> + (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
>>> + } STMT_END
>>> +#endif
>>> +#ifndef SvMAGIC_set
>>> +# define SvMAGIC_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
>>> + (((XPVMG*) SvANY(sv))->xmg_magic = (val)); }
>>> STMT_END
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5009003)
>>> +#ifndef SvPVX_const
>>> +# define SvPVX_const(sv) ((const char*) (0 +
>>> SvPVX(sv)))
>>> +#endif
>>> +
>>> +#ifndef SvPVX_mutable
>>> +# define SvPVX_mutable(sv) (0 + SvPVX(sv))
>>> +#endif
>>> +#ifndef SvRV_set
>>> +# define SvRV_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
>>> + (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
>>> +#endif
>>> +
>>> +#else
>>> +#ifndef SvPVX_const
>>> +# define SvPVX_const(sv) ((const char*)((sv)-
>>>> sv_u.svu_pv))
>>> +#endif
>>> +
>>> +#ifndef SvPVX_mutable
>>> +# define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv)
>>> +#endif
>>> +#ifndef SvRV_set
>>> +# define SvRV_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
>>> + ((sv)->sv_u.svu_rv = (val)); } STMT_END
>>> +#endif
>>> +
>>> +#endif
>>> +#ifndef SvSTASH_set
>>> +# define SvSTASH_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
>>> + (((XPVMG*) SvANY(sv))->xmg_stash = (val)); }
>>> STMT_END
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION < 0x5004000)
>>> +#ifndef SvUV_set
>>> +# define SvUV_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) == SVt_IV ||
>>> SvTYPE(sv) >= SVt_PVIV); \
>>> + (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); }
>>> STMT_END
>>> +#endif
>>> +
>>> +#else
>>> +#ifndef SvUV_set
>>> +# define SvUV_set(sv, val) \
>>> + STMT_START { assert(SvTYPE(sv) == SVt_IV ||
>>> SvTYPE(sv) >= SVt_PVIV); \
>>> + (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
>>> +#endif
>>> +
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
>>> +#if defined(NEED_vnewSVpvf)
>>> +static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list
>>> *args);
>>> +static
>>> +#else
>>> +extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list
>>> *args);
>>> +#endif
>>> +
>>> +#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)
>>> +
>>> +#ifdef vnewSVpvf
>>> +# undef vnewSVpvf
>>> +#endif
>>> +#define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b)
>>> +#define Perl_vnewSVpvf DPPP_(my_vnewSVpvf)
>>> +
>>> +
>>> +SV *
>>> +DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args)
>>> +{
>>> + register SV *sv = newSV(0);
>>> + sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0,
>>> Null(bool*));
>>> + return sv;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf)
>>> +# define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat,
>>> strlen(pat), args, Null(SV**), 0, Null(bool*))
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf)
>>> +# define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat,
>>> strlen(pat), args, Null(SV**), 0, Null(bool*))
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg)
>>> +#if defined(NEED_sv_catpvf_mg)
>>> +static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat,
>>> ...);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat,
>>> ...);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_catpvf_mg) ||
>>> defined(NEED_sv_catpvf_mg_GLOBAL)
>>> +
>>> +#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
>>> +{
>>> + va_list args;
>>> + va_start(args, pat);
>>> + sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0,
>>> Null(bool*));
>>> + SvSETMAGIC(sv);
>>> + va_end(args);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifdef PERL_IMPLICIT_CONTEXT
>>> +#if (PERL_BCDVERSION >= 0x5004000) &&
>>> !defined(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
>>> +#else
>>> +extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char
>>> *pat, ...);
>>> +#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 Perl_sv_catpvf_mg_nocontext
>>> DPPP_(my_sv_catpvf_mg_nocontext)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
>>> +{
>>> + dTHX;
>>> + va_list args;
>>> + va_start(args, pat);
>>> + sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0,
>>> Null(bool*));
>>> + SvSETMAGIC(sv);
>>> + va_end(args);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#endif
>>> +
>>> +/* sv_catpvf_mg depends on sv_catpvf_mg_nocontext */
>>> +#ifndef sv_catpvf_mg
>>> +# ifdef PERL_IMPLICIT_CONTEXT
>>> +# define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
>>> +# else
>>> +# define sv_catpvf_mg Perl_sv_catpvf_mg
>>> +# endif
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf_mg)
>>> +# define sv_vcatpvf_mg(sv, pat,
>>> args) \
>>> + STMT_START
>>> { \
>>> + sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0,
>>> Null(bool*)); \
>>> + SvSETMAGIC(sv);
>>> \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg)
>>> +#if defined(NEED_sv_setpvf_mg)
>>> +static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat,
>>> ...);
>>> +static
>>> +#else
>>> +extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat,
>>> ...);
>>> +#endif
>>> +
>>> +#if defined(NEED_sv_setpvf_mg) ||
>>> defined(NEED_sv_setpvf_mg_GLOBAL)
>>> +
>>> +#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
>>> +{
>>> + va_list args;
>>> + va_start(args, pat);
>>> + sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0,
>>> Null(bool*));
>>> + SvSETMAGIC(sv);
>>> + va_end(args);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifdef PERL_IMPLICIT_CONTEXT
>>> +#if (PERL_BCDVERSION >= 0x5004000) &&
>>> !defined(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
>>> +#else
>>> +extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char
>>> *pat, ...);
>>> +#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 Perl_sv_setpvf_mg_nocontext
>>> DPPP_(my_sv_setpvf_mg_nocontext)
>>> +
>>> +
>>> +void
>>> +DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
>>> +{
>>> + dTHX;
>>> + va_list args;
>>> + va_start(args, pat);
>>> + sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0,
>>> Null(bool*));
>>> + SvSETMAGIC(sv);
>>> + va_end(args);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#endif
>>> +
>>> +/* sv_setpvf_mg depends on sv_setpvf_mg_nocontext */
>>> +#ifndef sv_setpvf_mg
>>> +# ifdef PERL_IMPLICIT_CONTEXT
>>> +# define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
>>> +# else
>>> +# define sv_setpvf_mg Perl_sv_setpvf_mg
>>> +# endif
>>> +#endif
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf_mg)
>>> +# define sv_vsetpvf_mg(sv, pat,
>>> args) \
>>> + STMT_START
>>> { \
>>> + sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0,
>>> Null(bool*)); \
>>> + SvSETMAGIC(sv);
>>> \
>>> + } STMT_END
>>> +#endif
>>> +
>>> +/* Hint: newSVpvn_share
>>> + * The SVs created by this function only mimic the behaviour of
>>> + * shared PVs without really being shared. Only use if you know
>>> + * what you're doing.
>>> + */
>>> +
>>> +#ifndef newSVpvn_share
>>> +
>>> +#if defined(NEED_newSVpvn_share)
>>> +static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32
>>> len, U32 hash);
>>> +static
>>> +#else
>>> +extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32
>>> len, U32 hash);
>>> +#endif
>>> +
>>> +#if defined(NEED_newSVpvn_share) ||
>>> defined(NEED_newSVpvn_share_GLOBAL)
>>> +
>>> +#ifdef newSVpvn_share
>>> +# undef newSVpvn_share
>>> +#endif
>>> +#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_
>>> a,b,c)
>>> +#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)
>>> +
>>> +
>>> +SV *
>>> +DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash)
>>> +{
>>> + SV *sv;
>>> + if (len < 0)
>>> + len = -len;
>>> + if (!hash)
>>> + PERL_HASH(hash, (char*) src, len);
>>> + sv = newSVpvn((char *) src, len);
>>> + sv_upgrade(sv, SVt_PVIV);
>>> + SvIVX(sv) = hash;
>>> + SvREADONLY_on(sv);
>>> + SvPOK_on(sv);
>>> + return sv;
>>> +}
>>> +
>>> +#endif
>>> +
>>> +#endif
>>> +#ifndef SvSHARED_HASH
>>> +# define SvSHARED_HASH(sv) (0 + SvUVX(sv))
>>> +#endif
>>> +#ifndef HvNAME_get
>>> +# define HvNAME_get(hv) HvNAME(hv)
>>> +#endif
>>> +#ifndef HvNAMELEN_get
>>> +# define HvNAMELEN_get(hv) (HvNAME_get(hv) ?
>>> (I32)strlen(HvNAME_get(hv)) : 0)
>>> +#endif
>>> +
>>> +#ifndef gv_fetchpvn_flags
>>> +#if defined(NEED_gv_fetchpvn_flags)
>>> +static GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name,
>>> STRLEN len, int flags, int types);
>>> +static
>>> +#else
>>> +extern GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name,
>>> STRLEN len, int flags, int types);
>>> +#endif
>>> +
>>> +#if defined(NEED_gv_fetchpvn_flags) ||
>>> defined(NEED_gv_fetchpvn_flags_GLOBAL)
>>> +
>>> +#ifdef gv_fetchpvn_flags
>>> +# undef gv_fetchpvn_flags
>>> +#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)
>>> +
>>> +
>>> +GV*
>>> +DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len,
>>> int flags, int types) {
>>> + char *namepv = savepvn(name, len);
>>> + GV* stash = gv_fetchpv(namepv, TRUE, SVt_PVHV);
>>> + Safefree(namepv);
>>> + return stash;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#ifndef GvSVn
>>> +# define GvSVn(gv) GvSV(gv)
>>> +#endif
>>> +
>>> +#ifndef isGV_with_GP
>>> +# define isGV_with_GP(gv) isGV(gv)
>>> +#endif
>>> +
>>> +#ifndef gv_fetchsv
>>> +# define gv_fetchsv(name, flags,
>>> svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt)
>>> +#endif
>>> +#ifndef get_cvn_flags
>>> +# define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
>>> +#endif
>>> +
>>> +#ifndef gv_init_pvn
>>> +# define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv,
>>> stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE)
>>> +#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
>>> +
>>> +/* concatenating with "" ensures that only literal strings are
>>> accepted as argument
>>> + * note that STR_WITH_LEN() can't be used as argument to macros or
>>> functions that
>>> + * under some configurations might be macros
>>> + */
>>> +#ifndef STR_WITH_LEN
>>> +# define STR_WITH_LEN(s) (s ""), (sizeof(s)-1)
>>> +#endif
>>> +#ifndef newSVpvs
>>> +# define newSVpvs(str) newSVpvn(str "",
>>> sizeof(str) - 1)
>>> +#endif
>>> +
>>> +#ifndef newSVpvs_flags
>>> +# define newSVpvs_flags(str, flags) newSVpvn_flags(str "",
>>> sizeof(str) - 1, flags)
>>> +#endif
>>> +
>>> +#ifndef newSVpvs_share
>>> +# define newSVpvs_share(str) newSVpvn_share(str "",
>>> sizeof(str) - 1, 0)
>>> +#endif
>>> +
>>> +#ifndef sv_catpvs
>>> +# define sv_catpvs(sv, str) sv_catpvn(sv, str "",
>>> sizeof(str) - 1)
>>> +#endif
>>> +
>>> +#ifndef sv_setpvs
>>> +# define sv_setpvs(sv, str) sv_setpvn(sv, str "",
>>> sizeof(str) - 1)
>>> +#endif
>>> +
>>> +#ifndef hv_fetchs
>>> +# define hv_fetchs(hv, key, lval) hv_fetch(hv, key "",
>>> sizeof(key) - 1, lval)
>>> +#endif
>>> +
>>> +#ifndef hv_stores
>>> +# define hv_stores(hv, key, val) hv_store(hv, key "",
>>> sizeof(key) - 1, val, 0)
>>> +#endif
>>> +#ifndef gv_fetchpvs
>>> +# define gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name
>>> "", sizeof(name) - 1, flags, svt)
>>> +#endif
>>> +
>>> +#ifndef gv_stashpvs
>>> +# define gv_stashpvs(name, flags) gv_stashpvn(name "",
>>> sizeof(name) - 1, flags)
>>> +#endif
>>> +#ifndef get_cvs
>>> +# define get_cvs(name, flags) get_cvn_flags(name "",
>>> sizeof(name)-1, flags)
>>> +#endif
>>> +
>>> +#ifdef USE_ITHREADS
>>> +#ifndef CopFILE
>>> +# define CopFILE(c) ((c)->cop_file)
>>> +#endif
>>> +
>>> +#ifndef CopFILEGV
>>> +# define CopFILEGV(c) (CopFILE(c) ?
>>> gv_fetchfile(CopFILE(c)) : Nullgv)
>>> +#endif
>>> +
>>> +#ifndef CopFILE_set
>>> +# define CopFILE_set(c,pv) ((c)->cop_file =
>>> savepv(pv))
>>> +#endif
>>> +
>>> +#ifndef CopFILESV
>>> +# define CopFILESV(c) (CopFILE(c) ?
>>> GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
>>> +#endif
>>> +
>>> +#ifndef CopFILEAV
>>> +# define CopFILEAV(c) (CopFILE(c) ?
>>> GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
>>> +#endif
>>> +
>>> +#ifndef CopSTASHPV
>>> +# define CopSTASHPV(c) ((c)->cop_stashpv)
>>> +#endif
>>> +
>>> +#ifndef CopSTASHPV_set
>>> +# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv)
>>> ? savepv(pv) : Nullch))
>>> +#endif
>>> +
>>> +#ifndef CopSTASH
>>> +# define CopSTASH(c) (CopSTASHPV(c) ?
>>> gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
>>> +#endif
>>> +
>>> +#ifndef CopSTASH_set
>>> +# define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ?
>>> HvNAME(hv) : Nullch)
>>> +#endif
>>> +
>>> +#ifndef CopSTASH_eq
>>> +# define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c)
>>> == HvNAME(hv) \
>>> + || (CopSTASHPV(c) &&
>>> HvNAME(hv) \
>>> + && strEQ(CopSTASHPV(c),
>>> HvNAME(hv)))))
>>> +#endif
>>> +
>>> +#else
>>> +#ifndef CopFILEGV
>>> +# define CopFILEGV(c) ((c)->cop_filegv)
>>> +#endif
>>> +
>>> +#ifndef CopFILEGV_set
>>> +# define CopFILEGV_set(c,gv) ((c)->cop_filegv =
>>> (GV*)SvREFCNT_inc(gv))
>>> +#endif
>>> +
>>> +#ifndef CopFILE_set
>>> +# define CopFILE_set(c,pv) CopFILEGV_set((c),
>>> gv_fetchfile(pv))
>>> +#endif
>>> +
>>> +#ifndef CopFILESV
>>> +# define CopFILESV(c) (CopFILEGV(c) ?
>>> GvSV(CopFILEGV(c)) : Nullsv)
>>> +#endif
>>> +
>>> +#ifndef CopFILEAV
>>> +# define CopFILEAV(c) (CopFILEGV(c) ?
>>> GvAV(CopFILEGV(c)) : Nullav)
>>> +#endif
>>> +
>>> +#ifndef CopFILE
>>> +# define CopFILE(c) (CopFILESV(c) ?
>>> SvPVX(CopFILESV(c)) : Nullch)
>>> +#endif
>>> +
>>> +#ifndef CopSTASH
>>> +# define CopSTASH(c) ((c)->cop_stash)
>>> +#endif
>>> +
>>> +#ifndef CopSTASH_set
>>> +# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
>>> +#endif
>>> +
>>> +#ifndef CopSTASHPV
>>> +# define CopSTASHPV(c) (CopSTASH(c) ?
>>> HvNAME(CopSTASH(c)) : Nullch)
>>> +#endif
>>> +
>>> +#ifndef CopSTASHPV_set
>>> +# define CopSTASHPV_set(c,pv) CopSTASH_set((c),
>>> gv_stashpv(pv,GV_ADD))
>>> +#endif
>>> +
>>> +#ifndef CopSTASH_eq
>>> +# define CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))
>>> +#endif
>>> +
>>> +#endif /* USE_ITHREADS */
>>> +
>>> +#if (PERL_BCDVERSION >= 0x5006000)
>>> +#ifndef caller_cx
>>> +
>>> +# if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
>>> +static I32
>>> +DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock)
>>> +{
>>> + I32 i;
>>> +
>>> + for (i = startingblock; i >= 0; i--) {
>>> + register const PERL_CONTEXT * const cx = &cxstk[i];
>>> + switch (CxTYPE(cx)) {
>>> + default:
>>> + continue;
>>> + case CXt_EVAL:
>>> + case CXt_SUB:
>>> + case CXt_FORMAT:
>>> + return i;
>>> + }
>>> + }
>>> + return i;
>>> +}
>>> +# endif
>>> +
>>> +# if defined(NEED_caller_cx)
>>> +static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count,
>>> const PERL_CONTEXT **dbcxp);
>>> +static
>>> +#else
>>> +extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count,
>>> const PERL_CONTEXT **dbcxp);
>>> +#endif
>>> +
>>> +#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
>>> +
>>> +#ifdef caller_cx
>>> +# undef caller_cx
>>> +#endif
>>> +#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b)
>>> +#define Perl_caller_cx DPPP_(my_caller_cx)
>>> +
>>> +
>>> +const PERL_CONTEXT *
>>> +DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp)
>>> +{
>>> + register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
>>> + register const PERL_CONTEXT *cx;
>>> + register const PERL_CONTEXT *ccstack = cxstack;
>>> + const PERL_SI *top_si = PL_curstackinfo;
>>> +
>>> + for (;;) {
>>> + /* we may be in a higher stacklevel, so dig down deeper */
>>> + while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
>>> + top_si = top_si->si_prev;
>>> + ccstack = top_si->si_cxstack;
>>> + cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
>>> + }
>>> + if (cxix < 0)
>>> + return NULL;
>>> + /* caller() should not report the automatic calls to &DB::sub
>>> */
>>> + if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
>>> + ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
>>> + count++;
>>> + if (!count--)
>>> + break;
>>> + cxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
>>> + }
>>> +
>>> + cx = &ccstack[cxix];
>>> + if (dbcxp) *dbcxp = cx;
>>> +
>>> + if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
>>> + const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
>>> + /* We expect that ccstack[dbcxix] is CXt_SUB, anyway, the
>>> + field below is defined for any cx. */
>>> + /* caller() should not report the automatic calls to &DB::sub
>>> */
>>> + if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 &&
>>> ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
>>> + cx = &ccstack[dbcxix];
>>> + }
>>> +
>>> + return cx;
>>> +}
>>> +
>>> +# endif
>>> +#endif /* caller_cx */
>>> +#endif /* 5.6.0 */
>>> +#ifndef IN_PERL_COMPILETIME
>>> +# define IN_PERL_COMPILETIME (PL_curcop ==
>>> &PL_compiling)
>>> +#endif
>>> +
>>> +#ifndef IN_LOCALE_RUNTIME
>>> +# define IN_LOCALE_RUNTIME (PL_curcop->op_private &
>>> HINT_LOCALE)
>>> +#endif
>>> +
>>> +#ifndef IN_LOCALE_COMPILETIME
>>> +# define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE)
>>> +#endif
>>> +
>>> +#ifndef IN_LOCALE
>>> +# define IN_LOCALE (IN_PERL_COMPILETIME ?
>>> IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
>>> +#endif
>>> +#ifndef IS_NUMBER_IN_UV
>>> +# define IS_NUMBER_IN_UV 0x01
>>> +#endif
>>> +
>>> +#ifndef IS_NUMBER_GREATER_THAN_UV_MAX
>>> +# define IS_NUMBER_GREATER_THAN_UV_MAX 0x02
>>> +#endif
>>> +
>>> +#ifndef IS_NUMBER_NOT_INT
>>> +# define IS_NUMBER_NOT_INT 0x04
>>> +#endif
>>> +
>>> +#ifndef IS_NUMBER_NEG
>>> +# define IS_NUMBER_NEG 0x08
>>> +#endif
>>> +
>>> +#ifndef IS_NUMBER_INFINITY
>>> +# define IS_NUMBER_INFINITY 0x10
>>> +#endif
>>> +
>>> +#ifndef IS_NUMBER_NAN
>>> +# define IS_NUMBER_NAN 0x20
>>> +#endif
>>> +#ifndef GROK_NUMERIC_RADIX
>>> +# define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp,
>>> send)
>>> +#endif
>>> +#ifndef PERL_SCAN_GREATER_THAN_UV_MAX
>>> +# define PERL_SCAN_GREATER_THAN_UV_MAX 0x02
>>> +#endif
>>> +
>>> +#ifndef PERL_SCAN_SILENT_ILLDIGIT
>>> +# define PERL_SCAN_SILENT_ILLDIGIT 0x04
>>> +#endif
>>> +
>>> +#ifndef PERL_SCAN_ALLOW_UNDERSCORES
>>> +# define PERL_SCAN_ALLOW_UNDERSCORES 0x01
>>> +#endif
>>> +
>>> +#ifndef PERL_SCAN_DISALLOW_PREFIX
>>> +# define PERL_SCAN_DISALLOW_PREFIX 0x02
>>> +#endif
>>> +
>>> +#ifndef grok_numeric_radix
>>> +#if defined(NEED_grok_numeric_radix)
>>> +static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp,
>>> const char * send);
>>> +static
>>> +#else
>>> +extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp,
>>> const char * send);
>>> +#endif
>>> +
>>> +#if defined(NEED_grok_numeric_radix) ||
>>> defined(NEED_grok_numeric_radix_GLOBAL)
>>> +
>>> +#ifdef grok_numeric_radix
>>> +# undef grok_numeric_radix
>>> +#endif
>>> +#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_
>>> a,b)
>>> +#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)
>>> +
>>> +bool
>>> +DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char
>>> *send)
>>> +{
>>> +#ifdef USE_LOCALE_NUMERIC
>>> +#ifdef PL_numeric_radix_sv
>>> + if (PL_numeric_radix_sv && IN_LOCALE) {
>>> + STRLEN len;
>>> + char* radix = SvPV(PL_numeric_radix_sv, len);
>>> + if (*sp + len <= send && memEQ(*sp, radix, len)) {
>>> + *sp += len;
>>> + return TRUE;
>>> + }
>>> + }
>>> +#else
>>> + /* older perls don't have PL_numeric_radix_sv so the radix
>>> + * must manually be requested from locale.h
>>> + */
>>> +#include <locale.h>
>>> + dTHR; /* needed for older threaded perls */
>>> + struct lconv *lc = localeconv();
>>> + char *radix = lc->decimal_point;
>>> + if (radix && IN_LOCALE) {
>>> + STRLEN len = strlen(radix);
>>> + if (*sp + len <= send && memEQ(*sp, radix, len)) {
>>> + *sp += len;
>>> + return TRUE;
>>> + }
>>> + }
>>> +#endif
>>> +#endif /* USE_LOCALE_NUMERIC */
>>> + /* always try "." if numeric radix didn't match because
>>> + * we may have data from different locales mixed */
>>> + if (*sp < send && **sp == '.') {
>>> + ++*sp;
>>> + return TRUE;
>>> + }
>>> + return FALSE;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef grok_number
>>> +#if defined(NEED_grok_number)
>>> +static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN
>>> len, UV * valuep);
>>> +static
>>> +#else
>>> +extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN
>>> len, UV * valuep);
>>> +#endif
>>> +
>>> +#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
>>> +
>>> +#ifdef grok_number
>>> +# undef grok_number
>>> +#endif
>>> +#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c)
>>> +#define Perl_grok_number DPPP_(my_grok_number)
>>> +
>>> +int
>>> +DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV
>>> *valuep)
>>> +{
>>> + const char *s = pv;
>>> + const char *send = pv + len;
>>> + const UV max_div_10 = UV_MAX / 10;
>>> + const char max_mod_10 = UV_MAX % 10;
>>> + int numtype = 0;
>>> + int sawinf = 0;
>>> + int sawnan = 0;
>>> +
>>> + while (s < send && isSPACE(*s))
>>> + s++;
>>> + if (s == send) {
>>> + return 0;
>>> + } else if (*s == '-') {
>>> + s++;
>>> + numtype = IS_NUMBER_NEG;
>>> + }
>>> + else if (*s == '+')
>>> + s++;
>>> +
>>> + if (s == send)
>>> + return 0;
>>> +
>>> + /* next must be digit or the radix separator or beginning of
>>> infinity */
>>> + if (isDIGIT(*s)) {
>>> + /* UVs are at least 32 bits, so the first 9 decimal digits
>>> cannot
>>> + overflow. */
>>> + UV value = *s - '0';
>>> + /* This construction seems to be more optimiser friendly.
>>> + (without it gcc does the isDIGIT test and the *s - '0'
>>> separately)
>>> + With it gcc on arm is managing 6 instructions (6 cycles)
>>> per digit.
>>> + In theory the optimiser could deduce how far to unroll the
>>> loop
>>> + before checking for overflow. */
>>> + if (++s < send) {
>>> + int digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + digit = *s - '0';
>>> + if (digit >= 0 && digit <= 9) {
>>> + value = value * 10 + digit;
>>> + if (++s < send) {
>>> + /* Now got 9 digits, so need
>>> to check
>>> + each time for
>>> overflow. */
>>> + digit = *s - '0';
>>> + while (digit >= 0 && digit
>>> <= 9
>>> + && (value <
>>> max_div_10
>>> + || (value ==
>>> max_div_10
>>> + && digit <=
>>> max_mod_10))) {
>>> + value = value * 10 +
>>> digit;
>>> + if (++s < send)
>>> + digit = *s - '0';
>>> + else
>>> + break;
>>> + }
>>> + if (digit >= 0 && digit <= 9
>>> + && (s < send)) {
>>> + /* value overflowed.
>>> + skip the remaining
>>> digits, don't
>>> + worry about setting
>>> *valuep. */
>>> + do {
>>> + s++;
>>> + } while (s < send &&
>>> isDIGIT(*s));
>>> + numtype |=
>>> + IS_NUMBER_GREATER_THAN_U
>>> V_MAX;
>>> + goto skip_value;
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + }
>>> + numtype |= IS_NUMBER_IN_UV;
>>> + if (valuep)
>>> + *valuep = value;
>>> +
>>> + skip_value:
>>> + if (GROK_NUMERIC_RADIX(&s, send)) {
>>> + numtype |= IS_NUMBER_NOT_INT;
>>> + while (s < send && isDIGIT(*s)) /* optional digits after
>>> the radix */
>>> + s++;
>>> + }
>>> + }
>>> + else if (GROK_NUMERIC_RADIX(&s, send)) {
>>> + numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV; /* valuep
>>> assigned below */
>>> + /* no digits before the radix means we need digits after it */
>>> + if (s < send && isDIGIT(*s)) {
>>> + do {
>>> + s++;
>>> + } while (s < send && isDIGIT(*s));
>>> + if (valuep) {
>>> + /* integer approximation is valid - it's 0. */
>>> + *valuep = 0;
>>> + }
>>> + }
>>> + else
>>> + return 0;
>>> + } else if (*s == 'I' || *s == 'i') {
>>> + s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
>>> + s++; if (s == send || (*s != 'F' && *s != 'f')) return 0;
>>> + s++; if (s < send && (*s == 'I' || *s == 'i')) {
>>> + s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
>>> + s++; if (s == send || (*s != 'I' && *s != 'i')) return 0;
>>> + s++; if (s == send || (*s != 'T' && *s != 't')) return 0;
>>> + s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
>>> + s++;
>>> + }
>>> + sawinf = 1;
>>> + } else if (*s == 'N' || *s == 'n') {
>>> + /* XXX TODO: There are signaling NaNs and quiet NaNs. */
>>> + s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
>>> + s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
>>> + s++;
>>> + sawnan = 1;
>>> + } else
>>> + return 0;
>>> +
>>> + if (sawinf) {
>>> + numtype &= IS_NUMBER_NEG; /* Keep track of sign */
>>> + numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT;
>>> + } else if (sawnan) {
>>> + numtype &= IS_NUMBER_NEG; /* Keep track of sign */
>>> + numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
>>> + } else if (s < send) {
>>> + /* we can have an optional exponent part */
>>> + if (*s == 'e' || *s == 'E') {
>>> + /* The only flag we keep is sign. Blow away any "it's
>>> UV" */
>>> + numtype &= IS_NUMBER_NEG;
>>> + numtype |= IS_NUMBER_NOT_INT;
>>> + s++;
>>> + if (s < send && (*s == '-' || *s == '+'))
>>> + s++;
>>> + if (s < send && isDIGIT(*s)) {
>>> + do {
>>> + s++;
>>> + } while (s < send && isDIGIT(*s));
>>> + }
>>> + else
>>> + return 0;
>>> + }
>>> + }
>>> + while (s < send && isSPACE(*s))
>>> + s++;
>>> + if (s >= send)
>>> + return numtype;
>>> + if (len == 10 && memEQ(pv, "0 but true", 10)) {
>>> + if (valuep)
>>> + *valuep = 0;
>>> + return IS_NUMBER_IN_UV;
>>> + }
>>> + return 0;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +/*
>>> + * The grok_* routines have been modified to use warn() instead of
>>> + * Perl_warner(). Also, 'hexdigit' was the former name of
>>> PL_hexdigit,
>>> + * which is why the stack variable has been renamed to 'xdigit'.
>>> + */
>>> +
>>> +#ifndef grok_bin
>>> +#if defined(NEED_grok_bin)
>>> +static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +static
>>> +#else
>>> +extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +#endif
>>> +
>>> +#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
>>> +
>>> +#ifdef grok_bin
>>> +# undef grok_bin
>>> +#endif
>>> +#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d)
>>> +#define Perl_grok_bin DPPP_(my_grok_bin)
>>> +
>>> +UV
>>> +DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32
>>> *flags, NV *result)
>>> +{
>>> + const char *s = start;
>>> + STRLEN len = *len_p;
>>> + UV value = 0;
>>> + NV value_nv = 0;
>>> +
>>> + const UV max_div_2 = UV_MAX / 2;
>>> + bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
>>> + bool overflowed = FALSE;
>>> +
>>> + if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
>>> + /* strip off leading b or 0b.
>>> + for compatibility silently suffer "b" and "0b" as valid
>>> binary
>>> + numbers. */
>>> + if (len >= 1) {
>>> + if (s[0] == 'b') {
>>> + s++;
>>> + len--;
>>> + }
>>> + else if (len >= 2 && s[0] == '0' && s[1] == 'b') {
>>> + s+=2;
>>> + len-=2;
>>> + }
>>> + }
>>> + }
>>> +
>>> + for (; len-- && *s; s++) {
>>> + char bit = *s;
>>> + if (bit == '0' || bit == '1') {
>>> + /* Write it in this wonky order with a goto to attempt
>>> to get the
>>> + compiler to make the common case integer-only loop
>>> pretty tight.
>>> + With gcc seems to be much straighter code than old
>>> scan_bin. */
>>> + redo:
>>> + if (!overflowed) {
>>> + if (value <= max_div_2) {
>>> + value = (value << 1) | (bit - '0');
>>> + continue;
>>> + }
>>> + /* Bah. We're just overflowed. */
>>> + warn("Integer overflow in binary number");
>>> + overflowed = TRUE;
>>> + value_nv = (NV) value;
>>> + }
>>> + value_nv *= 2.0;
>>> + /* If an NV has not enough bits in its mantissa to
>>> + * represent a UV this summing of small low-order
>>> numbers
>>> + * is a waste of time (because the NV cannot preserve
>>> + * the low-order bits anyway): we could just remember
>>> when
>>> + * did we overflow and in the end just multiply
>>> value_nv by the
>>> + * right amount. */
>>> + value_nv += (NV)(bit - '0');
>>> + continue;
>>> + }
>>> + if (bit == '_' && len && allow_underscores && (bit = s[1])
>>> + && (bit == '0' || bit == '1'))
>>> + {
>>> + --len;
>>> + ++s;
>>> + goto redo;
>>> + }
>>> + if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
>>> + warn("Illegal binary digit '%c' ignored", *s);
>>> + break;
>>> + }
>>> +
>>> + if ( ( overflowed && value_nv > 4294967295.0)
>>> +#if UVSIZE > 4
>>> + || (!overflowed && value > 0xffffffff )
>>> +#endif
>>> + ) {
>>> + warn("Binary number > 0b11111111111111111111111111111111
>>> non-portable");
>>> + }
>>> + *len_p = s - start;
>>> + if (!overflowed) {
>>> + *flags = 0;
>>> + return value;
>>> + }
>>> + *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
>>> + if (result)
>>> + *result = value_nv;
>>> + return UV_MAX;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef grok_hex
>>> +#if defined(NEED_grok_hex)
>>> +static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +static
>>> +#else
>>> +extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +#endif
>>> +
>>> +#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
>>> +
>>> +#ifdef grok_hex
>>> +# undef grok_hex
>>> +#endif
>>> +#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d)
>>> +#define Perl_grok_hex DPPP_(my_grok_hex)
>>> +
>>> +UV
>>> +DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32
>>> *flags, NV *result)
>>> +{
>>> + const char *s = start;
>>> + STRLEN len = *len_p;
>>> + UV value = 0;
>>> + NV value_nv = 0;
>>> +
>>> + const UV max_div_16 = UV_MAX / 16;
>>> + bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
>>> + bool overflowed = FALSE;
>>> + const char *xdigit;
>>> +
>>> + if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
>>> + /* strip off leading x or 0x.
>>> + for compatibility silently suffer "x" and "0x" as valid
>>> hex numbers.
>>> + */
>>> + if (len >= 1) {
>>> + if (s[0] == 'x') {
>>> + s++;
>>> + len--;
>>> + }
>>> + else if (len >= 2 && s[0] == '0' && s[1] == 'x') {
>>> + s+=2;
>>> + len-=2;
>>> + }
>>> + }
>>> + }
>>> +
>>> + for (; len-- && *s; s++) {
>>> + xdigit = strchr((char *) PL_hexdigit, *s);
>>> + if (xdigit) {
>>> + /* Write it in this wonky order with a goto to attempt
>>> to get the
>>> + compiler to make the common case integer-only loop
>>> pretty tight.
>>> + With gcc seems to be much straighter code than old
>>> scan_hex. */
>>> + redo:
>>> + if (!overflowed) {
>>> + if (value <= max_div_16) {
>>> + value = (value << 4) | ((xdigit - PL_hexdigit)
>>> & 15);
>>> + continue;
>>> + }
>>> + warn("Integer overflow in hexadecimal number");
>>> + overflowed = TRUE;
>>> + value_nv = (NV) value;
>>> + }
>>> + value_nv *= 16.0;
>>> + /* If an NV has not enough bits in its mantissa to
>>> + * represent a UV this summing of small low-order
>>> numbers
>>> + * is a waste of time (because the NV cannot preserve
>>> + * the low-order bits anyway): we could just remember
>>> when
>>> + * did we overflow and in the end just multiply
>>> value_nv by the
>>> + * right amount of 16-tuples. */
>>> + value_nv += (NV)((xdigit - PL_hexdigit) & 15);
>>> + continue;
>>> + }
>>> + if (*s == '_' && len && allow_underscores && s[1]
>>> + && (xdigit = strchr((char *) PL_hexdigit, s[1])))
>>> + {
>>> + --len;
>>> + ++s;
>>> + goto redo;
>>> + }
>>> + if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
>>> + warn("Illegal hexadecimal digit '%c' ignored", *s);
>>> + break;
>>> + }
>>> +
>>> + if ( ( overflowed && value_nv > 4294967295.0)
>>> +#if UVSIZE > 4
>>> + || (!overflowed && value > 0xffffffff )
>>> +#endif
>>> + ) {
>>> + warn("Hexadecimal number > 0xffffffff non-portable");
>>> + }
>>> + *len_p = s - start;
>>> + if (!overflowed) {
>>> + *flags = 0;
>>> + return value;
>>> + }
>>> + *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
>>> + if (result)
>>> + *result = value_nv;
>>> + return UV_MAX;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef grok_oct
>>> +#if defined(NEED_grok_oct)
>>> +static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +static
>>> +#else
>>> +extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN *
>>> len_p, I32 * flags, NV * result);
>>> +#endif
>>> +
>>> +#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
>>> +
>>> +#ifdef grok_oct
>>> +# undef grok_oct
>>> +#endif
>>> +#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d)
>>> +#define Perl_grok_oct DPPP_(my_grok_oct)
>>> +
>>> +UV
>>> +DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32
>>> *flags, NV *result)
>>> +{
>>> + const char *s = start;
>>> + STRLEN len = *len_p;
>>> + UV value = 0;
>>> + NV value_nv = 0;
>>> +
>>> + const UV max_div_8 = UV_MAX / 8;
>>> + bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
>>> + bool overflowed = FALSE;
>>> +
>>> + for (; len-- && *s; s++) {
>>> + /* gcc 2.95 optimiser not smart enough to figure that
>>> this subtraction
>>> + out front allows slicker code. */
>>> + int digit = *s - '0';
>>> + if (digit >= 0 && digit <= 7) {
>>> + /* Write it in this wonky order with a goto to attempt
>>> to get the
>>> + compiler to make the common case integer-only loop
>>> pretty tight.
>>> + */
>>> + redo:
>>> + if (!overflowed) {
>>> + if (value <= max_div_8) {
>>> + value = (value << 3) | digit;
>>> + continue;
>>> + }
>>> + /* Bah. We're just overflowed. */
>>> + warn("Integer overflow in octal number");
>>> + overflowed = TRUE;
>>> + value_nv = (NV) value;
>>> + }
>>> + value_nv *= 8.0;
>>> + /* If an NV has not enough bits in its mantissa to
>>> + * represent a UV this summing of small low-order
>>> numbers
>>> + * is a waste of time (because the NV cannot preserve
>>> + * the low-order bits anyway): we could just remember
>>> when
>>> + * did we overflow and in the end just multiply
>>> value_nv by the
>>> + * right amount of 8-tuples. */
>>> + value_nv += (NV)digit;
>>> + continue;
>>> + }
>>> + if (digit == ('_' - '0') && len && allow_underscores
>>> + && (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
>>> + {
>>> + --len;
>>> + ++s;
>>> + goto redo;
>>> + }
>>> + /* Allow \octal to work the DWIM way (that is, stop
>>> scanning
>>> + * as soon as non-octal characters are seen, complain only
>>> iff
>>> + * someone seems to want to use the digits eight and
>>> nine). */
>>> + if (digit == 8 || digit == 9) {
>>> + if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
>>> + warn("Illegal octal digit '%c' ignored", *s);
>>> + }
>>> + break;
>>> + }
>>> +
>>> + if ( ( overflowed && value_nv > 4294967295.0)
>>> +#if UVSIZE > 4
>>> + || (!overflowed && value > 0xffffffff )
>>> +#endif
>>> + ) {
>>> + warn("Octal number > 037777777777 non-portable");
>>> + }
>>> + *len_p = s - start;
>>> + if (!overflowed) {
>>> + *flags = 0;
>>> + return value;
>>> + }
>>> + *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
>>> + if (result)
>>> + *result = value_nv;
>>> + return UV_MAX;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +#if !defined(my_snprintf)
>>> +#if defined(NEED_my_snprintf)
>>> +static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len,
>>> const char * format, ...);
>>> +static
>>> +#else
>>> +extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len,
>>> const char * format, ...);
>>> +#endif
>>> +
>>> +#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
>>> +
>>> +#define my_snprintf DPPP_(my_my_snprintf)
>>> +#define Perl_my_snprintf DPPP_(my_my_snprintf)
>>> +
>>> +
>>> +int
>>> +DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char
>>> *format, ...)
>>> +{
>>> + dTHX;
>>> + int retval;
>>> + va_list ap;
>>> + va_start(ap, format);
>>> +#ifdef HAS_VSNPRINTF
>>> + retval = vsnprintf(buffer, len, format, ap);
>>> +#else
>>> + retval = vsprintf(buffer, format, ap);
>>> +#endif
>>> + va_end(ap);
>>> + if (retval < 0 || (len > 0 && (Size_t)retval >= len))
>>> + Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
>>> + return retval;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#if !defined(my_sprintf)
>>> +#if defined(NEED_my_sprintf)
>>> +static int DPPP_(my_my_sprintf)(char * buffer, const char * pat,
>>> ...);
>>> +static
>>> +#else
>>> +extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat,
>>> ...);
>>> +#endif
>>> +
>>> +#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
>>> +
>>> +#define my_sprintf DPPP_(my_my_sprintf)
>>> +#define Perl_my_sprintf DPPP_(my_my_sprintf)
>>> +
>>> +
>>> +int
>>> +DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...)
>>> +{
>>> + va_list args;
>>> + va_start(args, pat);
>>> + vsprintf(buffer, pat, args);
>>> + va_end(args);
>>> + return strlen(buffer);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifdef NO_XSLOCKS
>>> +# ifdef dJMPENV
>>> +# define dXCPT dJMPENV; int rEtV = 0
>>> +# define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0)
>>> +# define XCPT_TRY_END JMPENV_POP;
>>> +# define XCPT_CATCH if (rEtV != 0)
>>> +# define XCPT_RETHROW JMPENV_JUMP(rEtV)
>>> +# else
>>> +# define dXCPT Sigjmp_buf oldTOP; int rEtV = 0
>>> +# define XCPT_TRY_START Copy(top_env, oldTOP, 1,
>>> Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0)
>>> +# define XCPT_TRY_END Copy(oldTOP, top_env, 1,
>>> Sigjmp_buf);
>>> +# define XCPT_CATCH if (rEtV != 0)
>>> +# define XCPT_RETHROW Siglongjmp(top_env, rEtV)
>>> +# endif
>>> +#endif
>>> +
>>> +#if !defined(my_strlcat)
>>> +#if defined(NEED_my_strlcat)
>>> +static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src,
>>> Size_t size);
>>> +static
>>> +#else
>>> +extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src,
>>> Size_t size);
>>> +#endif
>>> +
>>> +#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
>>> +
>>> +#define my_strlcat DPPP_(my_my_strlcat)
>>> +#define Perl_my_strlcat DPPP_(my_my_strlcat)
>>> +
>>> +
>>> +Size_t
>>> +DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size)
>>> +{
>>> + Size_t used, length, copy;
>>> +
>>> + used = strlen(dst);
>>> + length = strlen(src);
>>> + if (size > 0 && used < size - 1) {
>>> + copy = (length >= size - used) ? size - used - 1 : length;
>>> + memcpy(dst + used, src, copy);
>>> + dst[used + copy] = '\0';
>>> + }
>>> + return used + length;
>>> +}
>>> +#endif
>>> +#endif
>>> +
>>> +#if !defined(my_strlcpy)
>>> +#if defined(NEED_my_strlcpy)
>>> +static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src,
>>> Size_t size);
>>> +static
>>> +#else
>>> +extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src,
>>> Size_t size);
>>> +#endif
>>> +
>>> +#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
>>> +
>>> +#define my_strlcpy DPPP_(my_my_strlcpy)
>>> +#define Perl_my_strlcpy DPPP_(my_my_strlcpy)
>>> +
>>> +
>>> +Size_t
>>> +DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
>>> +{
>>> + Size_t length, copy;
>>> +
>>> + length = strlen(src);
>>> + if (size > 0) {
>>> + copy = (length >= size) ? size - 1 : length;
>>> + memcpy(dst, src, copy);
>>> + dst[copy] = '\0';
>>> + }
>>> + return length;
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +#ifndef PERL_PV_ESCAPE_QUOTE
>>> +# define PERL_PV_ESCAPE_QUOTE 0x0001
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_PRETTY_QUOTE
>>> +# define PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_PRETTY_ELLIPSES
>>> +# define PERL_PV_PRETTY_ELLIPSES 0x0002
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_PRETTY_LTGT
>>> +# define PERL_PV_PRETTY_LTGT 0x0004
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_FIRSTCHAR
>>> +# define PERL_PV_ESCAPE_FIRSTCHAR 0x0008
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_UNI
>>> +# define PERL_PV_ESCAPE_UNI 0x0100
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_UNI_DETECT
>>> +# define PERL_PV_ESCAPE_UNI_DETECT 0x0200
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_ALL
>>> +# define PERL_PV_ESCAPE_ALL 0x1000
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_NOBACKSLASH
>>> +# define PERL_PV_ESCAPE_NOBACKSLASH 0x2000
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_NOCLEAR
>>> +# define PERL_PV_ESCAPE_NOCLEAR 0x4000
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_ESCAPE_RE
>>> +# define PERL_PV_ESCAPE_RE 0x8000
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_PRETTY_NOCLEAR
>>> +# define PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR
>>> +#endif
>>> +#ifndef PERL_PV_PRETTY_DUMP
>>> +# define
>>> PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRET
>>> TY_QUOTE
>>> +#endif
>>> +
>>> +#ifndef PERL_PV_PRETTY_REGPROP
>>> +# define
>>> PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRET
>>> TY_LTGT|PERL_PV_ESCAPE_RE
>>> +#endif
>>> +
>>> +/* Hint: pv_escape
>>> + * Note that unicode functionality is only backported to
>>> + * those perl versions that support it. For older perl
>>> + * versions, the implementation will fall back to bytes.
>>> + */
>>> +
>>> +#ifndef 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
>>> +#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);
>>> +#endif
>>> +
>>> +#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
>>> +
>>> +#ifdef pv_escape
>>> +# undef pv_escape
>>> +#endif
>>> +#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)
>>> +
>>> +
>>> +char *
>>> +DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
>>> + const STRLEN count, const STRLEN max,
>>> + STRLEN * const escaped, const U32 flags)
>>> +{
>>> + const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
>>> + const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
>>> + char octbuf[32] = "%123456789ABCDF";
>>> + STRLEN wrote = 0;
>>> + STRLEN chsize = 0;
>>> + STRLEN readsize = 1;
>>> +#if defined(is_utf8_string) && defined(utf8_to_uvchr)
>>> + bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;
>>> +#endif
>>> + const char *pv = str;
>>> + const char * const end = pv + count;
>>> + octbuf[0] = esc;
>>> +
>>> + if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
>>> + sv_setpvs(dsv, "");
>>> +
>>> +#if defined(is_utf8_string) && defined(utf8_to_uvchr)
>>> + if ((flags & PERL_PV_ESCAPE_UNI_DETECT) &&
>>> is_utf8_string((U8*)pv, count))
>>> + isuni = 1;
>>> +#endif
>>> +
>>> + for (; pv < end && (!max || wrote < max) ; pv += readsize) {
>>> + const UV u =
>>> +#if defined(is_utf8_string) && defined(utf8_to_uvchr)
>>> + isuni ? utf8_to_uvchr((U8*)pv, &readsize) :
>>> +#endif
>>> + (U8)*pv;
>>> + const U8 c = (U8)u & 0xFF;
>>> +
>>> + if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
>>> + if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
>>> + chsize = my_snprintf(octbuf, sizeof octbuf,
>>> + "%" UVxf, u);
>>> + else
>>> + chsize = my_snprintf(octbuf, sizeof octbuf,
>>> + "%cx{%" UVxf "}", esc, u);
>>> + } else if (flags & PERL_PV_ESCAPE_NOBACKSLASH) {
>>> + chsize = 1;
>>> + } else {
>>> + if (c == dq || c == esc || !isPRINT(c)) {
>>> + chsize = 2;
>>> + switch (c) {
>>> + case '\\' : /* fallthrough */
>>> + case '%' : if (c == esc)
>>> + octbuf[1] = esc;
>>> + else
>>> + chsize = 1;
>>> + break;
>>> + case '\v' : octbuf[1] = 'v'; break;
>>> + case '\t' : octbuf[1] = 't'; break;
>>> + case '\r' : octbuf[1] = 'r'; break;
>>> + case '\n' : octbuf[1] = 'n'; break;
>>> + case '\f' : octbuf[1] = 'f'; break;
>>> + case '"' : if (dq == '"')
>>> + octbuf[1] = '"';
>>> + else
>>> + chsize = 1;
>>> + break;
>>> + default: chsize = my_snprintf(octbuf, sizeof
>>> octbuf,
>>> + pv < end &&
>>> isDIGIT((U8)*(pv+readsize))
>>> + ? "%c%03o" : "%c%o", esc, c);
>>> + }
>>> + } else {
>>> + chsize = 1;
>>> + }
>>> + }
>>> + if (max && wrote + chsize > max) {
>>> + break;
>>> + } else if (chsize > 1) {
>>> + sv_catpvn(dsv, octbuf, chsize);
>>> + wrote += chsize;
>>> + } else {
>>> + char tmp[2];
>>> + my_snprintf(tmp, sizeof tmp, "%c", c);
>>> + sv_catpvn(dsv, tmp, 1);
>>> + wrote++;
>>> + }
>>> + if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
>>> + break;
>>> + }
>>> + if (escaped != NULL)
>>> + *escaped= pv - str;
>>> + return SvPVX(dsv);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef 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 * const end_color, const U32 flags);
>>> +static
>>> +#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 * const end_color, const U32 flags);
>>> +#endif
>>> +
>>> +#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
>>> +
>>> +#ifdef pv_pretty
>>> +# undef pv_pretty
>>> +#endif
>>> +#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)
>>> +
>>> +
>>> +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 *
>>> const end_color,
>>> + const U32 flags)
>>> +{
>>> + const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
>>> + STRLEN escaped;
>>> +
>>> + if (!(flags & PERL_PV_PRETTY_NOCLEAR))
>>> + sv_setpvs(dsv, "");
>>> +
>>> + if (dq == '"')
>>> + sv_catpvs(dsv, "\"");
>>> + else if (flags & PERL_PV_PRETTY_LTGT)
>>> + sv_catpvs(dsv, "<");
>>> +
>>> + if (start_color != NULL)
>>> + sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
>>> +
>>> + pv_escape(dsv, str, count, max, &escaped, flags |
>>> PERL_PV_ESCAPE_NOCLEAR);
>>> +
>>> + if (end_color != NULL)
>>> + sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
>>> +
>>> + if (dq == '"')
>>> + sv_catpvs(dsv, "\"");
>>> + else if (flags & PERL_PV_PRETTY_LTGT)
>>> + sv_catpvs(dsv, ">");
>>> +
>>> + if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
>>> + sv_catpvs(dsv, "...");
>>> +
>>> + return SvPVX(dsv);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#ifndef 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
>>> +#else
>>> +extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char *
>>> pv, STRLEN cur, STRLEN len, STRLEN pvlim);
>>> +#endif
>>> +
>>> +#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
>>> +
>>> +#ifdef pv_display
>>> +# undef pv_display
>>> +#endif
>>> +#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)
>>> +
>>> +
>>> +char *
>>> +DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur,
>>> STRLEN len, STRLEN pvlim)
>>> +{
>>> + pv_pretty(dsv, pv, cur, pvlim, NULL, NULL,
>>> PERL_PV_PRETTY_DUMP);
>>> + if (len > cur && pv[cur] == '\0')
>>> + sv_catpvs(dsv, "\\0");
>>> + return SvPVX(dsv);
>>> +}
>>> +
>>> +#endif
>>> +#endif
>>> +
>>> +#endif /* _P_P_PORTABILITY_H_ */
>>> +
>>> +/* End of File ppport.h */
>>> diff --git a/src/perl/Location/t/Location.t
>>> b/src/perl/Location/t/Location.t
>>> new file mode 100644
>>> index 0000000..a68c094
>>> --- /dev/null
>>> +++ b/src/perl/Location/t/Location.t
>>> @@ -0,0 +1,17 @@
>>> +# Before 'make install' is performed this script should be
>>> runnable with
>>> +# 'make test'. After 'make install' it should work as 'perl
>>> Location.t'
>>> +
>>> +#########################
>>> +
>>> +# change 'tests => 1' to 'tests => last_test_to_print';
>>> +
>>> +use strict;
>>> +use warnings;
>>> +
>>> +use Test::More tests => 1;
>>> +BEGIN { use_ok('Location') };
>>> +
>>> +#########################
>>> +
>>> +# Insert your test code below, the Test::More module is use()ed
>>> here so read
>>> +# its man page ( perldoc Test::More ) for help writing this test
>>> script.
>>> diff --git a/src/perl/Location/typemap b/src/perl/Location/typemap
>>> new file mode 100644
>>> index 0000000..c53fb53
>>> --- /dev/null
>>> +++ b/src/perl/Location/typemap
>>> @@ -0,0 +1,2 @@
>>> +TYPEMAP
>>> +struct loc_database * T_PTRREF
>>> --
>>> 2.20.1
>>>
>
next prev parent reply other threads:[~2019-09-26 15:49 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-09-25 13:59 Stefan Schantl
2019-09-25 15:42 ` Michael Tremer
2019-09-25 15:54 ` Michael Tremer
2019-09-25 17:54 ` Stefan Schantl
2019-09-26 15:49 ` Michael Tremer [this message]
2019-09-25 17:59 ` [PATCH] perl: Remove unneeded/unwanted files Stefan Schantl
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=C5EBB319-F4A8-4C96-94E9-D62A93466977@ipfire.org \
--to=michael.tremer@ipfire.org \
--cc=development@lists.ipfire.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox