From 0f57482a9969a0f9edc9e0e765e3a311824eb792 Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>

Date: Fri, 19 May 2017 10:54:13 +0200

Subject: [PATCH] Port to OpSIBLING-like macros required since Perl 5.25.1

MIME-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit

This fixes a build failure on Perl >= 5.25.1 by means of

<https://rt.perl.org/Public/Bug/Display.html?id=128179#txn-1405910%3E>.

It bundles ppport.h from Devel::PPPort 3.36.

CPAN RT#117350

Signed-off-by: Petr Písař <ppisar@redhat.com>

---

 ConstOptree/ConstOptree.xs |   22 +-

 ConstOptree/ppport.h       | 7908 ++++++++++++++++++++++++++++++++++++++++++++

 MANIFEST                   |    1 +

 3 files changed, 7926 insertions(+), 5 deletions(-)

 create mode 100644 ConstOptree/ppport.h

diff --git a/ConstOptree/ConstOptree.xs b/ConstOptree/ConstOptree.xs

index f3e10d3..5876dac 100644

--- a/ConstOptree/ConstOptree.xs

+++ b/ConstOptree/ConstOptree.xs

@@ -3,6 +3,7 @@

 #include "EXTERN.h"

 #include "perl.h"

 #include "XSUB.h"

+#include "ppport.h"

 static OP *convert_arg(pTHX_ OP *op)

 {

@@ -25,7 +26,7 @@ static OP *convert_arg(pTHX_ OP *op)

     if (*name == ']')    /* $]  */

 	newop = (SVOP *) newSVOP(OP_CONST, 0, vnumify(PL_patchlevel));

     if (newop) {

-	newop->op_sibling = op1->op_sibling;

+	OpMAYBESIB_set(newop, OpSIBLING(op1), op_parent(op1));

 	newop->op_next = (OP *) newop;

 	op_free(op);

 	return (OP *) newop;

@@ -35,11 +36,22 @@ static OP *convert_arg(pTHX_ OP *op)

 static OP *my_ck_op(pTHX_ OP *op)

 {

-    OP **argp = &cUNOPx(op)->op_first;

-    while (*argp) {

-	*argp = convert_arg(aTHX_ *argp);

-	argp = &(*argp)->op_sibling;

+    OP *argp = cUNOPx(op)->op_first;

+    OP *prev;

+

+    if (!argp)

+	return op;

+

+    cUNOPx(op)->op_first = argp = convert_arg(aTHX_ argp);

+

+    while (OpHAS_SIBLING(argp)) {

+	prev = argp;

+	argp = OpSIBLING(argp);

+

+	argp = convert_arg(aTHX_ argp);

+	OpMORESIB_set(prev, argp);

     }

+

     return op;

 }

diff --git a/ConstOptree/ppport.h b/ConstOptree/ppport.h

new file mode 100644

index 0000000..4691be5

--- /dev/null

+++ b/ConstOptree/ppport.h

@@ -0,0 +1,7908 @@

+#if 0

+<<'SKIP';

+#endif

+/*

+----------------------------------------------------------------------

+

+    ppport.h -- Perl/Pollution/Portability Version 3.36

+

+    Automatically created by Devel::PPPort running under perl 5.024001.

+

+    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.36

+

+=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_SvRX_GLOBAL

+    caller_cx()               NEED_caller_cx               NEED_caller_cx_GLOBAL

+    eval_pv()                 NEED_eval_pv                 NEED_eval_pv_GLOBAL

+    grok_bin()                NEED_grok_bin                NEED_grok_bin_GLOBAL

+    grok_hex()                NEED_grok_hex                NEED_grok_hex_GLOBAL

+    grok_number()             NEED_grok_number             NEED_grok_number_GLOBAL

+    grok_numeric_radix()      NEED_grok_numeric_radix      NEED_grok_numeric_radix_GLOBAL

+    grok_oct()                NEED_grok_oct                NEED_grok_oct_GLOBAL

+    gv_fetchpvn_flags()       NEED_gv_fetchpvn_flags       NEED_gv_fetchpvn_flags_GLOBAL

+    load_module()             NEED_load_module             NEED_load_module_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_newCONSTSUB_GLOBAL

+    newRV_noinc()             NEED_newRV_noinc             NEED_newRV_noinc_GLOBAL

+    newSV_type()              NEED_newSV_type              NEED_newSV_type_GLOBAL

+    newSVpvn_flags()          NEED_newSVpvn_flags          NEED_newSVpvn_flags_GLOBAL

+    newSVpvn_share()          NEED_newSVpvn_share          NEED_newSVpvn_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_vload_module_GLOBAL

+    vnewSVpvf()               NEED_vnewSVpvf               NEED_vnewSVpvf_GLOBAL

+    warner()                  NEED_warner                  NEED_warner_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

+file a bug report here: L<https://github.com/mhx/Devel-PPPort/issues/>

+

+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.36;

+

+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_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