@@ -7,6 +7,7 @@
available.
*/
+#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
@@ -42,7 +43,8 @@ typedef struct xs_state Cache_Memcached_Fast;
static
void
-add_server(Cache_Memcached_Fast *memd, SV *addr_sv, double weight, int noreply)
+add_server(pTHX_ Cache_Memcached_Fast *memd, SV *addr_sv,
+ double weight, int noreply)
{
struct client *c = memd->c;
static const int delim = ':';
@@ -80,11 +82,11 @@ add_server(Cache_Memcached_Fast *memd, SV *addr_sv, double weight, int noreply)
static
void
-parse_server(Cache_Memcached_Fast *memd, SV *sv)
+parse_server(pTHX_ Cache_Memcached_Fast *memd, SV *sv)
{
if (! SvROK(sv))
{
- add_server(memd, sv, 1.0, 0);
+ add_server(aTHX_ memd, sv, 1.0, 0);
}
else
{
@@ -112,7 +114,7 @@ parse_server(Cache_Memcached_Fast *memd, SV *sv)
SvGETMAGIC(*ps);
if (ps && SvOK(*ps))
noreply = SvTRUE(*ps);
- add_server(memd, *addr_sv, weight, noreply);
+ add_server(aTHX_ memd, *addr_sv, weight, noreply);
}
break;
@@ -130,7 +132,7 @@ parse_server(Cache_Memcached_Fast *memd, SV *sv)
weight_sv = av_fetch(av, 1, 0);
if (weight_sv)
weight = SvNV(*weight_sv);
- add_server(memd, *addr_sv, weight, 0);
+ add_server(aTHX_ memd, *addr_sv, weight, 0);
}
break;
@@ -144,7 +146,7 @@ parse_server(Cache_Memcached_Fast *memd, SV *sv)
static
void
-parse_serialize(Cache_Memcached_Fast *memd, HV *conf)
+parse_serialize(pTHX_ Cache_Memcached_Fast *memd, HV *conf)
{
SV **ps;
@@ -178,7 +180,7 @@ parse_serialize(Cache_Memcached_Fast *memd, HV *conf)
static
void
-parse_compress(Cache_Memcached_Fast *memd, HV *conf)
+parse_compress(pTHX_ Cache_Memcached_Fast *memd, HV *conf)
{
SV **ps;
@@ -218,7 +220,7 @@ parse_compress(Cache_Memcached_Fast *memd, HV *conf)
static
void
-parse_config(Cache_Memcached_Fast *memd, HV *conf)
+parse_config(pTHX_ Cache_Memcached_Fast *memd, HV *conf)
{
struct client *c = memd->c;
SV **ps;
@@ -260,7 +262,7 @@ parse_config(Cache_Memcached_Fast *memd, HV *conf)
continue;
SvGETMAGIC(*ps);
- parse_server(memd, *ps);
+ parse_server(aTHX_ memd, *ps);
}
}
@@ -327,14 +329,14 @@ parse_config(Cache_Memcached_Fast *memd, HV *conf)
else
memd->max_size = 1024 * 1024;
- parse_compress(memd, conf);
- parse_serialize(memd, conf);
+ parse_compress(aTHX_ memd, conf);
+ parse_serialize(aTHX_ memd, conf);
}
static inline
SV *
-compress(Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
+compress(pTHX_ Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
{
if (memd->compress_threshold > 0)
{
@@ -376,7 +378,7 @@ compress(Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
static inline
int
-decompress(Cache_Memcached_Fast *memd, SV **sv, flags_type flags)
+decompress(pTHX_ Cache_Memcached_Fast *memd, SV **sv, flags_type flags)
{
int res = 1;
@@ -421,7 +423,7 @@ decompress(Cache_Memcached_Fast *memd, SV **sv, flags_type flags)
static inline
SV *
-serialize(Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
+serialize(pTHX_ Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
{
if (SvROK(sv))
{
@@ -444,12 +446,19 @@ serialize(Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
PUTBACK;
}
- else if (memd->utf8 && SvUTF8(sv))
+ else if (SvUTF8(sv))
{
/* Copy the value because we will modify it in place. */
sv = sv_2mortal(newSVsv(sv));
- sv_utf8_encode(sv);
- *flags |= F_UTF8;
+ if (memd->utf8)
+ {
+ sv_utf8_encode(sv);
+ *flags |= F_UTF8;
+ }
+ else
+ {
+ sv_utf8_downgrade(sv, 0);
+ }
}
return sv;
@@ -458,7 +467,7 @@ serialize(Cache_Memcached_Fast *memd, SV *sv, flags_type *flags)
static inline
int
-deserialize(Cache_Memcached_Fast *memd, SV **sv, flags_type flags)
+deserialize(pTHX_ Cache_Memcached_Fast *memd, SV **sv, flags_type flags)
{
int res = 1;
@@ -506,6 +515,7 @@ static
void *
alloc_value(value_size_type value_size, void **opaque)
{
+ dTHX;
SV *sv;
char *res;
@@ -524,6 +534,7 @@ static
void
free_value(void *opaque)
{
+ dTHX;
SV *sv = (SV *) opaque;
SvREFCNT_dec(sv);
@@ -541,6 +552,7 @@ static
void
svalue_store(void *arg, void *opaque, int key_index, void *meta)
{
+ dTHX;
SV *value_sv = (SV *) opaque;
struct xs_value_result *value_res = (struct xs_value_result *) arg;
struct meta_object *m = (struct meta_object *) meta;
@@ -548,8 +560,8 @@ svalue_store(void *arg, void *opaque, int key_index, void *meta)
/* Suppress warning about unused key_index. */
if (key_index) {}
- if (! decompress(value_res->memd, &value_sv, m->flags)
- || ! deserialize(value_res->memd, &value_sv, m->flags))
+ if (! decompress(aTHX_ value_res->memd, &value_sv, m->flags)
+ || ! deserialize(aTHX_ value_res->memd, &value_sv, m->flags))
{
free_value(value_sv);
return;
@@ -574,12 +586,13 @@ static
void
mvalue_store(void *arg, void *opaque, int key_index, void *meta)
{
+ dTHX;
SV *value_sv = (SV *) opaque;
struct xs_value_result *value_res = (struct xs_value_result *) arg;
struct meta_object *m = (struct meta_object *) meta;
- if (! decompress(value_res->memd, &value_sv, m->flags)
- || ! deserialize(value_res->memd, &value_sv, m->flags))
+ if (! decompress(aTHX_ value_res->memd, &value_sv, m->flags)
+ || ! deserialize(aTHX_ value_res->memd, &value_sv, m->flags))
{
free_value(value_sv);
return;
@@ -604,8 +617,9 @@ static
void
result_store(void *arg, void *opaque, int key_index, void *meta)
{
+ dTHX;
AV *av = (AV *) arg;
- int res = (long) opaque;
+ int res = (ptrdiff_t) opaque;
/* Suppress warning about unused meta. */
if (meta) {}
@@ -621,6 +635,7 @@ static
void
embedded_store(void *arg, void *opaque, int key_index, void *meta)
{
+ dTHX;
AV *av = (AV *) arg;
SV *sv = (SV *) opaque;
@@ -642,7 +657,7 @@ embedded_store(void *arg, void *opaque, int key_index, void *meta)
*/
static inline
char *
-SvPV_stable_storage(SV *sv, STRLEN *lp)
+SvPV_stable_storage(pTHX_ SV *sv, STRLEN *lp)
{
if (SvGAMAGIC(sv))
sv = sv_2mortal(newSVsv(sv));
@@ -668,7 +683,7 @@ _new(class, conf)
croak("Not enough memory");
if (! SvROK(conf) || SvTYPE(SvRV(conf)) != SVt_PVHV)
croak("Not a hash reference");
- parse_config(memd, (HV *) SvRV(conf));
+ parse_config(aTHX_ memd, (HV *) SvRV(conf));
RETVAL = memd;
OUTPUT:
RETVAL
@@ -734,7 +749,7 @@ set(memd, ...)
sv_2mortal((SV *) object.arg);
noreply = (GIMME_V == G_VOID);
client_reset(memd->c, &object, noreply);
- key = SvPV_stable_storage(ST(arg), &key_len);
+ key = SvPV_stable_storage(aTHX_ ST(arg), &key_len);
++arg;
if (ix == CMD_CAS)
{
@@ -743,9 +758,9 @@ set(memd, ...)
}
sv = ST(arg);
++arg;
- sv = serialize(memd, sv, &flags);
- sv = compress(memd, sv, &flags);
- buf = (void *) SvPV_stable_storage(sv, &buf_len);
+ sv = serialize(aTHX_ memd, sv, &flags);
+ sv = compress(aTHX_ memd, sv, &flags);
+ buf = (void *) SvPV_stable_storage(aTHX_ sv, &buf_len);
if (buf_len > memd->max_size)
XSRETURN_EMPTY;
if (items > arg)
@@ -823,7 +838,7 @@ set_multi(memd, ...)
The following values should be defined, so we do not do
any additional checks for speed.
*/
- key = SvPV_stable_storage(*av_fetch(av, arg, 0), &key_len);
+ key = SvPV_stable_storage(aTHX_ *av_fetch(av, arg, 0), &key_len);
++arg;
if (ix == CMD_CAS)
{
@@ -832,9 +847,9 @@ set_multi(memd, ...)
}
sv = *av_fetch(av, arg, 0);
++arg;
- sv = serialize(memd, sv, &flags);
- sv = compress(memd, sv, &flags);
- buf = (void *) SvPV_stable_storage(sv, &buf_len);
+ sv = serialize(aTHX_ memd, sv, &flags);
+ sv = compress(aTHX_ memd, sv, &flags);
+ buf = (void *) SvPV_stable_storage(aTHX_ sv, &buf_len);
if (buf_len > memd->max_size)
continue;
if (av_len(av) >= arg)
@@ -946,7 +961,7 @@ get_multi(memd, ...)
const char *key;
STRLEN key_len;
- key = SvPV_stable_storage(ST(i + 1), &key_len);
+ key = SvPV_stable_storage(aTHX_ ST(i + 1), &key_len);
client_prepare_get(memd->c, ix, i, key, key_len);
}
client_execute(memd->c);
@@ -985,7 +1000,7 @@ incr(memd, ...)
sv_2mortal((SV *) object.arg);
noreply = (GIMME_V == G_VOID);
client_reset(memd->c, &object, noreply);
- key = SvPV_stable_storage(ST(1), &key_len);
+ key = SvPV_stable_storage(aTHX_ ST(1), &key_len);
if (items > 2)
{
/* increment doesn't have to be defined. */
@@ -1033,7 +1048,7 @@ incr_multi(memd, ...)
sv = ST(i);
if (! SvROK(sv))
{
- key = SvPV_stable_storage(sv, &key_len);
+ key = SvPV_stable_storage(aTHX_ sv, &key_len);
}
else
{
@@ -1045,7 +1060,7 @@ incr_multi(memd, ...)
The following values should be defined, so we do not
do any additional checks for speed.
*/
- key = SvPV_stable_storage(*av_fetch(av, 0, 0), &key_len);
+ key = SvPV_stable_storage(aTHX_ *av_fetch(av, 0, 0), &key_len);
if (av_len(av) >= 1)
{
/* increment doesn't have to be defined. */
@@ -1117,7 +1132,7 @@ delete(memd, ...)
sv_2mortal((SV *) object.arg);
noreply = (GIMME_V == G_VOID);
client_reset(memd->c, &object, noreply);
- key = SvPV_stable_storage(ST(1), &key_len);
+ key = SvPV_stable_storage(aTHX_ ST(1), &key_len);
if (items > 2)
{
/* Compatibility with old (key, delay) syntax. */
@@ -1163,7 +1178,7 @@ delete_multi(memd, ...)
sv = ST(i);
if (! SvROK(sv))
{
- key = SvPV_stable_storage(sv, &key_len);
+ key = SvPV_stable_storage(aTHX_ sv, &key_len);
}
else
{
@@ -1179,7 +1194,7 @@ delete_multi(memd, ...)
The following values should be defined, so we do not
do any additional checks for speed.
*/
- key = SvPV_stable_storage(*av_fetch(av, 0, 0), &key_len);
+ key = SvPV_stable_storage(aTHX_ *av_fetch(av, 0, 0), &key_len);
if (av_len(av) >= 1)
{
/* delay doesn't have to be defined. */
@@ -1236,6 +1251,134 @@ delete_multi(memd, ...)
}
+void
+touch(memd, ...)
+ Cache_Memcached_Fast * memd
+ PROTOTYPE: $@
+ PREINIT:
+ struct result_object object =
+ { NULL, result_store, NULL, NULL };
+ int noreply;
+ const char *key;
+ STRLEN key_len;
+ exptime_type exptime = 0;
+ SV *sv;
+ PPCODE:
+ object.arg = newAV();
+ sv_2mortal((SV *) object.arg);
+ noreply = (GIMME_V == G_VOID);
+ client_reset(memd->c, &object, noreply);
+ key = SvPV_stable_storage(aTHX_ ST(1), &key_len);
+ if (items > 2)
+ {
+ /* exptime doesn't have to be defined. */
+ sv = ST(2);
+ SvGETMAGIC(sv);
+ if (SvOK(sv))
+ exptime = SvIV(sv);
+ }
+ client_prepare_touch(memd->c, 0, key, key_len, exptime);
+ client_execute(memd->c);
+ if (! noreply)
+ {
+ SV **val = av_fetch(object.arg, 0, 0);
+ if (val)
+ {
+ PUSHs(*val);
+ XSRETURN(1);
+ }
+ }
+
+
+void
+touch_multi(memd, ...)
+ Cache_Memcached_Fast * memd
+ PROTOTYPE: $@
+ PREINIT:
+ struct result_object object =
+ { NULL, result_store, NULL, NULL };
+ int i, noreply;
+ PPCODE:
+ object.arg = newAV();
+ sv_2mortal((SV *) object.arg);
+ noreply = (GIMME_V == G_VOID);
+ client_reset(memd->c, &object, noreply);
+ for (i = 1; i < items; ++i)
+ {
+ SV *sv;
+ AV *av;
+ const char *key;
+ STRLEN key_len;
+ exptime_type exptime = 0;
+ int arg = 0;
+
+ sv = ST(i);
+ if (! (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVAV))
+ croak("Not an array reference");
+
+ av = (AV *) SvRV(sv);
+ /*
+ The following values should be defined, so we do not do
+ any additional checks for speed.
+ */
+ key = SvPV_stable_storage(aTHX_ *av_fetch(av, arg, 0), &key_len);
+ ++arg;
+
+ if (av_len(av) >= 1)
+ {
+ /* exptime doesn't have to be defined. */
+ SV **ps = av_fetch(av, arg, 0);
+ if (ps)
+ SvGETMAGIC(*ps);
+ if (ps && SvOK(*ps))
+ exptime = SvIV(*ps);
+ }
+
+ client_prepare_touch(memd->c, i - 1, key, key_len, exptime);
+ }
+ client_execute(memd->c);
+ if (! noreply)
+ {
+ if (GIMME_V == G_SCALAR)
+ {
+ HV *hv = newHV();
+ for (i = 0; i <= av_len(object.arg); ++i)
+ {
+ SV **val = av_fetch(object.arg, i, 0);
+ if (val && SvOK(*val))
+ {
+ SV *key;
+ HE *he;
+
+ key = ST(i + 1);
+ if (SvROK(key))
+ key = *av_fetch((AV *) SvRV(key), 0, 0);
+
+ he = hv_store_ent(hv, key, SvREFCNT_inc(*val), 0);
+ if (! he)
+ SvREFCNT_dec(*val);
+ }
+ }
+ PUSHs(sv_2mortal(newRV_noinc((SV *) hv)));
+ XSRETURN(1);
+ }
+ else
+ {
+ I32 max_index = av_len(object.arg);
+ EXTEND(SP, max_index + 1);
+ for (i = 0; i <= max_index; ++i)
+ {
+ SV **val = av_fetch(object.arg, i, 0);
+ if (val)
+ PUSHs(*val);
+ else
+ PUSHs(&PL_sv_undef);
+ }
+ XSRETURN(max_index + 1);
+ }
+ }
+
+
HV *
flush_all(memd, ...)
Cache_Memcached_Fast * memd
@@ -4,9 +4,9 @@
/*
----------------------------------------------------------------------
- ppport.h -- Perl/Pollution/Portability Version 3.13
+ ppport.h -- Perl/Pollution/Portability Version 3.20
- Automatically created by Devel::PPPort running under perl 5.008008.
+ Automatically created by Devel::PPPort running under perl 5.018002.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
@@ -21,7 +21,7 @@ SKIP
=head1 NAME
-ppport.h - Perl/Pollution/Portability version 3.13
+ppport.h - Perl/Pollution/Portability version 3.20
=head1 SYNOPSIS
@@ -56,7 +56,7 @@ ppport.h - Perl/Pollution/Portability version 3.13
=head1 COMPATIBILITY
This version of F<ppport.h> is designed to support operation with Perl
-installations back to 5.003, and has been tested up to 5.10.0.
+installations back to 5.003, and has been tested up to 5.11.5.
=head1 OPTIONS
@@ -217,6 +217,7 @@ 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
eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
@@ -226,11 +227,17 @@ same function or variable in your project.
grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL
load_module() NEED_load_module NEED_load_module_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
@@ -351,7 +358,7 @@ module from CPAN.
=head1 COPYRIGHT
-Version 3.x, Copyright (c) 2004-2007, Marcus Holland-Moritz.
+Version 3.x, Copyright (c) 2004-2010, Marcus Holland-Moritz.
Version 2.x, Copyright (C) 2001, Paul Marquess.
@@ -371,7 +378,7 @@ use strict;
# Disable broken TRIE-optimization
BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }
-my $VERSION = 3.13;
+my $VERSION = 3.20;
my %opt = (
quiet => 0,
@@ -440,7 +447,14 @@ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
+BhkDISABLE||5.014000|
+BhkENABLE||5.014000|
+BhkENTRY_set||5.014000|
+BhkENTRY|||
+BhkFLAGS|||
+CALL_BLOCK_HOOKS|||
CLASS|||n
+CPERLscope|5.005000||p
CX_CURPAD_SAVE|||
CX_CURPAD_SV|||
CopFILEAV|5.006000||p
@@ -459,6 +473,7 @@ Copy|||
CvPADLIST|||
CvSTASH|||
CvWEAKOUTSIDE|||
+DEFSV_set|5.010001||p
DEFSV|5.004050||p
END_EXTERN_C|5.005000||p
ENTER|||
@@ -473,12 +488,14 @@ 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|||
+GvSVn|5.009003||p
GvSV|||
-Gv_AMupdate|||
+Gv_AMupdate||5.011000|
HEf_SVKEY||5.004000|
HeHASH||5.004000|
HeKEY||5.004000|
@@ -487,7 +504,11 @@ HePV||5.004000|
HeSVKEY_force||5.004000|
HeSVKEY_set||5.004000|
HeSVKEY||5.004000|
+HeUTF8||5.010001|
HeVAL||5.004000|
+HvENAME||5.013007|
+HvNAMELEN_get|5.009003||p
+HvNAME_get|5.009003||p
HvNAME|||
INT2PTR|5.006000||p
IN_LOCALE_COMPILETIME|5.007002||p
@@ -504,9 +525,10 @@ IVSIZE|5.006000||p
IVTYPE|5.006000||p
IVdf|5.006000||p
LEAVE|||
+LINKLIST||5.013006|
LVRET|||
MARK|||
-MULTICALL||5.009005|
+MULTICALL||5.014000|
MY_CXT_CLONE|5.009002||p
MY_CXT_INIT|5.007003||p
MY_CXT|5.007003||p
@@ -526,6 +548,9 @@ Nullch|||
Nullcv|||
Nullhv|||
Nullsv|||
+OP_CLASS||5.013007|
+OP_DESC||5.007003|
+OP_NAME||5.007003|
ORIGMARK|||
PAD_BASE_SV|||
PAD_CLONE_VARS|||
@@ -535,6 +560,7 @@ PAD_COMPNAME_GEN|||
PAD_COMPNAME_OURSTASH|||
PAD_COMPNAME_PV|||
PAD_COMPNAME_TYPE|||
+PAD_DUP|||
PAD_RESTORE_LOCAL|||
PAD_SAVE_LOCAL|||
PAD_SAVE_SETNULLPAD|||
@@ -543,8 +569,10 @@ 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.009005||p
+PERL_BCDVERSION|5.014000||p
PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
PERL_HASH|5.004000||p
PERL_INT_MAX|5.004000||p
@@ -562,10 +590,10 @@ PERL_MAGIC_envelem|5.007002||p
PERL_MAGIC_env|5.007002||p
PERL_MAGIC_ext|5.007002||p
PERL_MAGIC_fm|5.007002||p
-PERL_MAGIC_glob|5.009005||p
+PERL_MAGIC_glob|5.014000||p
PERL_MAGIC_isaelem|5.007002||p
PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.009005||p
+PERL_MAGIC_mutex|5.014000||p
PERL_MAGIC_nkeys|5.007002||p
PERL_MAGIC_overload_elem|5.007002||p
PERL_MAGIC_overload_table|5.007002||p
@@ -590,6 +618,20 @@ 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.004000||p
PERL_QUAD_MIN|5.004000||p
PERL_REVISION|5.006000||p
@@ -601,6 +643,9 @@ PERL_SHORT_MAX|5.004000||p
PERL_SHORT_MIN|5.004000||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.014000|
PERL_UCHAR_MAX|5.004000||p
PERL_UCHAR_MIN|5.004000||p
PERL_UINT_MAX|5.004000||p
@@ -622,8 +667,10 @@ PL_DBsingle|||pn
PL_DBsub|||pn
PL_DBtrace|||pn
PL_Sv|5.005000||p
+PL_bufend|5.014000||p
+PL_bufptr|5.014000||p
PL_compiling|5.004050||p
-PL_copline|5.009005||p
+PL_copline|5.014000||p
PL_curcop|5.004050||p
PL_curstash|5.004050||p
PL_debstash|5.004050||p
@@ -632,20 +679,31 @@ PL_diehook|5.004050||p
PL_dirty|5.004050||p
PL_dowarn|||pn
PL_errgv|5.004050||p
-PL_expect|5.009005||p
+PL_error_count|5.014000||p
+PL_expect|5.014000||p
PL_hexdigit|5.005000||p
PL_hints|5.005000||p
+PL_in_my_stash|5.014000||p
+PL_in_my|5.014000||p
+PL_keyword_plugin||5.011002|
PL_last_in_gv|||n
PL_laststatval|5.005000||p
+PL_lex_state|5.014000||p
+PL_lex_stuff|5.014000||p
+PL_linestr|5.014000||p
PL_modglobal||5.005000|n
PL_na|5.004050||pn
PL_no_modify|5.006000||p
-PL_ofs_sv|||n
+PL_ofsgv|||n
+PL_opfreehook||5.011000|n
+PL_parser|5.009005|5.009005|p
+PL_peepp||5.007003|n
PL_perl_destruct_level|5.004050||p
PL_perldb|5.004050||p
PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||p
+PL_rpeepp||5.013005|n
+PL_rsfp_filters|5.014000||p
+PL_rsfp|5.014000||p
PL_rs|||n
PL_signals|5.008001||p
PL_stack_base|5.004050||p
@@ -658,7 +716,8 @@ PL_sv_undef|5.004050||pn
PL_sv_yes|5.004050||pn
PL_tainted|5.004050||p
PL_tainting|5.004050||p
-POP_MULTICALL||5.009005|
+PL_tokenbuf|5.014000||p
+POP_MULTICALL||5.014000|
POPi|||n
POPl|||n
POPn|||n
@@ -669,10 +728,11 @@ POPs|||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.009005|
+PUSH_MULTICALL||5.014000|
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
@@ -734,6 +794,8 @@ 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_IV|||
SVt_NV|||
@@ -781,10 +843,12 @@ 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|
@@ -813,7 +877,9 @@ SvPV_nolen_const|5.009003||p
SvPV_nolen|5.006000||p
SvPV_nomg_const_nolen|5.009003||p
SvPV_nomg_const|5.009003||p
+SvPV_nomg_nolen||5.013007|
SvPV_nomg|5.007002||p
+SvPV_renew|5.009003||p
SvPV_set|||
SvPVbyte_force||5.009002|
SvPVbyte_nolen||5.006000|
@@ -857,6 +923,7 @@ SvTAINTED_off||5.004000|
SvTAINTED_on||5.004000|
SvTAINTED||5.004000|
SvTAINT|||
+SvTRUE_nomg||5.013006|
SvTRUE|||
SvTYPE|||
SvUNLOCK||5.007003|
@@ -884,7 +951,7 @@ UVuf|5.006000||p
UVxf|5.006000||p
WARN_ALL|5.006000||p
WARN_AMBIGUOUS|5.006000||p
-WARN_ASSERTIONS|5.009005||p
+WARN_ASSERTIONS|5.014000||p
WARN_BAREWORD|5.006000||p
WARN_CLOSED|5.006000||p
WARN_CLOSURE|5.006000||p
@@ -939,6 +1006,7 @@ XPUSHn|||
XPUSHp|||
XPUSHs|||
XPUSHu|5.004000||p
+XSPROTO|5.010000||p
XSRETURN_EMPTY|||
XSRETURN_IV|||
XSRETURN_NO|||
@@ -955,37 +1023,52 @@ XST_mPV|||
XST_mUNDEF|||
XST_mUV|5.008001||p
XST_mYES|||
+XS_APIVERSION_BOOTCHECK||5.013004|
XS_VERSION_BOOTCHECK|||
XS_VERSION|||
XSprePUSH|5.006000||p
XS|||
+XopDISABLE||5.014000|
+XopENABLE||5.014000|
+XopENTRY_set||5.014000|
+XopENTRY||5.014000|
+XopFLAGS||5.013007|
ZeroD|5.009002||p
Zero|||
_aMY_CXT|5.007003||p
+_append_range_to_invlist|||
+_new_invlist|||
_pMY_CXT|5.007003||p
+_swash_inversion_hash|||
+_swash_to_invlist|||
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
-aTHXR_|5.009005||p
-aTHXR|5.009005||p
+aTHXR_|5.014000||p
+aTHXR|5.014000||p
aTHX_|5.006000||p
aTHX|5.006000||p
+add_alternate|||
+add_cp_to_invlist|||
add_data|||n
+add_range_to_invlist|||
+add_utf16_textfilter|||
addmad|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
+amagic_deref_call||5.013007|
amagic_i_ncmp|||
amagic_ncmp|||
+anonymise_cv_maybe|||
any_dup|||
ao|||
-append_elem|||
-append_list|||
append_madprops|||
apply_attrs_my|||
apply_attrs_string||5.006001|
apply_attrs|||
apply|||
+assert_uft8_cache_coherent|||
atfork_lock||5.007003|n
atfork_unlock||5.007003|n
av_arylen_p||5.009003|
@@ -995,9 +1078,9 @@ av_create_and_unshift_one||5.009005|
av_delete||5.006000|
av_exists||5.006000|
av_extend|||
-av_fake|||
av_fetch|||
av_fill|||
+av_iter_p||5.011000|
av_len|||
av_make|||
av_pop|||
@@ -1013,11 +1096,12 @@ bind_match|||
block_end|||
block_gimme||5.004000|
block_start|||
+blockhook_register||5.013003|
boolSV|5.004000||p
boot_core_PerlIO|||
boot_core_UNIVERSAL|||
boot_core_mro|||
-boot_core_xsutils|||
+bytes_cmp_utf8||5.013007|
bytes_from_utf8||5.007001|
bytes_to_uni|||n
bytes_to_utf8||5.006001|
@@ -1027,6 +1111,7 @@ call_list||5.004000|
call_method|5.006000||p
call_pv|5.006000||p
call_sv|5.006000||p
+caller_cx||5.013005|
calloc||5.007002|n
cando|||
cast_i32||5.006000|
@@ -1035,77 +1120,73 @@ cast_ulong||5.006000|
cast_uv||5.006000|
check_type_and_open|||
check_uni|||
+check_utf8_print|||
checkcomma|||
checkposixcc|||
ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lengthconst|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_retarget|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
+ck_entersub_args_list||5.013006|
+ck_entersub_args_proto_or_list||5.013006|
+ck_entersub_args_proto||5.013006|
+ck_warner_d||5.011001|v
+ck_warner||5.011001|v
+ckwarn_common|||
ckwarn_d||5.009003|
ckwarn||5.009003|
cl_and|||n
cl_anything|||n
-cl_init_zero|||n
cl_init|||n
cl_is_anything|||n
cl_or|||n
clear_placeholders|||
+clone_params_del|||n
+clone_params_new|||n
closest_cop|||
convert|||
cop_free|||
+cop_hints_2hv||5.013007|
+cop_hints_fetch_pvn||5.013007|
+cop_hints_fetch_pvs||5.013007|
+cop_hints_fetch_pv||5.013007|
+cop_hints_fetch_sv||5.013007|
+cophh_2hv||5.013007|
+cophh_copy||5.013007|
+cophh_delete_pvn||5.013007|
+cophh_delete_pvs||5.013007|
+cophh_delete_pv||5.013007|
+cophh_delete_sv||5.013007|
+cophh_fetch_pvn||5.013007|
+cophh_fetch_pvs||5.013007|
+cophh_fetch_pv||5.013007|
+cophh_fetch_sv||5.013007|
+cophh_free||5.013007|
+cophh_new_empty||5.014000|
+cophh_store_pvn||5.013007|
+cophh_store_pvs||5.013007|
+cophh_store_pv||5.013007|
+cophh_store_sv||5.013007|
cr_textfilter|||
create_eval_scope|||
+croak_no_modify||5.013003|
croak_nocontext|||vn
+croak_sv||5.013001|
+croak_xs_usage||5.010001|
croak|||v
csighandler||5.009003|n
curmad|||
+curse|||
custom_op_desc||5.007003|
custom_op_name||5.007003|
+custom_op_register||5.013007|
+custom_op_xop||5.013007|
cv_ckproto_len|||
-cv_ckproto|||
cv_clone|||
cv_const_sv||5.004000|
cv_dump|||
+cv_get_call_checker||5.013006|
+cv_set_call_checker||5.013006|
cv_undef|||
+cvgv_set|||
+cvstash_set|||
cx_dump||5.005000|
cx_dup|||
cxinc|||
@@ -1120,7 +1201,7 @@ dNOOP|5.006000||p
dORIGMARK|||
dSP|||
dTHR|5.004050||p
-dTHXR|5.009005||p
+dTHXR|5.014000||p
dTHXa|5.006000||p
dTHXoa|5.006000||p
dTHX|5.006000||p
@@ -1143,13 +1224,13 @@ debug_start_match|||
deb||5.007003|v
del_sv|||
delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
+delimcpy||5.004000|n
+deprecate_commaless_var_list|||
despatch_signals||5.007001|
destroy_matcher|||
die_nocontext|||vn
-die_where|||
+die_sv||5.013001|
+die_unwind|||
die|||v
dirp_dup|||
div128|||
@@ -1159,8 +1240,8 @@ do_aexec|||
do_aspawn|||
do_binmode||5.004050|
do_chomp|||
-do_chop|||
do_close|||
+do_delete_local|||
do_dump_pad|||
do_eof|||
do_exec3|||
@@ -1172,7 +1253,6 @@ do_hv_dump||5.006000|
do_ipcctl|||
do_ipcget|||
do_join|||
-do_kv|||
do_magic_dump||5.006000|
do_msgrcv|||
do_msgsnd|||
@@ -1182,7 +1262,6 @@ do_op_xmldump|||
do_open9||5.006000|
do_openn||5.007001|
do_open||5.004000|
-do_pipe|||
do_pmop_dump||5.006000|
do_pmop_xmldump|||
do_print|||
@@ -1207,7 +1286,6 @@ do_trans|||
do_vecget|||
do_vecset|||
do_vop|||
-docatch_body|||
docatch|||
doeval|||
dofile|||
@@ -1222,11 +1300,11 @@ dopoptogiven|||
dopoptolabel|||
dopoptoloop|||
dopoptosub_at|||
-dopoptosub|||
dopoptowhen|||
doref||5.009003|
dounwind|||
dowantarray|||
+dump_all_perl|||
dump_all||5.006000|
dump_eval||5.006000|
dump_exec_pos|||
@@ -1234,7 +1312,9 @@ dump_fds|||
dump_form||5.006000|
dump_indent||5.006000|v
dump_mstats|||
+dump_packsubs_perl|||
dump_packsubs||5.006000|
+dump_sub_perl|||
dump_sub||5.006000|
dump_sv_child|||
dump_trie_interim_list|||
@@ -1244,15 +1324,14 @@ dump_vindent||5.006000|
dumpuntil|||
dup_attrlist|||
emulate_cop_io|||
-emulate_eaccess|||
eval_pv|5.006000||p
eval_sv|5.006000||p
exec_failed|||
expect_number|||
fbm_compile||5.005000|
fbm_instr||5.005000|
-fd_on_nosuid_fs|||
feature_is_enabled|||
+fetch_cop_label||5.011000|
filter_add|||
filter_del|||
filter_gets|||
@@ -1265,14 +1344,21 @@ find_hash_subscript|||
find_in_my_stash|||
find_runcv||5.008001|
find_rundefsvoffset||5.009002|
+find_rundefsv||5.013002|
find_script|||
find_uninit_var|||
first_symbol|||n
+foldEQ_latin1||5.013008|n
+foldEQ_locale||5.013002|n
+foldEQ_utf8_flags||5.013010|
+foldEQ_utf8||5.013002|
+foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
force_ident|||
force_list|||
force_next|||
+force_strict_version|||
force_version|||
force_word|||
forget_pmop|||
@@ -1284,10 +1370,11 @@ free_global_struct|||
free_tied_hv_pool|||
free_tmps|||
gen_constant_list|||
-get_arena|||
+get_aux_mg|||
get_av|5.006000||p
get_context||5.006000|n
-get_cvn_flags||5.009005|
+get_cvn_flags|5.009005||p
+get_cvs|5.011000||p
get_cv|5.006000||p
get_db_sub|||
get_debug_opts|||
@@ -1306,13 +1393,14 @@ get_vtbl||5.005030|
getcwd_sv||5.007002|
getenv_len|||
glob_2number|||
-glob_2pv|||
glob_assign_glob|||
glob_assign_ref|||
gp_dup|||
gp_free|||
gp_ref|||
grok_bin|5.007003||p
+grok_bslash_c|||
+grok_bslash_o|||
grok_hex|5.007003||p
grok_number|5.007002||p
grok_numeric_radix|5.007002||p
@@ -1322,6 +1410,7 @@ gv_AVadd|||
gv_HVadd|||
gv_IOadd|||
gv_SVadd|||
+gv_add_by_type||5.011000|
gv_autoload4||5.004000|
gv_check|||
gv_const_sv||5.009003|
@@ -1334,44 +1423,54 @@ gv_fetchfile_flags||5.009005|
gv_fetchfile|||
gv_fetchmeth_autoload||5.007003|
gv_fetchmethod_autoload||5.004000|
+gv_fetchmethod_flags||5.011000|
gv_fetchmethod|||
gv_fetchmeth|||
-gv_fetchpvn_flags||5.009002|
+gv_fetchpvn_flags|5.009002||p
+gv_fetchpvs|5.009004||p
gv_fetchpv|||
-gv_fetchsv||5.009002|
+gv_fetchsv|5.009002||p
gv_fullname3||5.004000|
gv_fullname4||5.006001|
gv_fullname|||
+gv_get_super_pkg|||
gv_handler||5.007001|
gv_init_sv|||
gv_init|||
+gv_magicalize_isa|||
+gv_magicalize_overload|||
gv_name_set||5.009004|
gv_stashpvn|5.004000||p
-gv_stashpvs||5.009003|
+gv_stashpvs|5.009003||p
gv_stashpv|||
gv_stashsv|||
+gv_try_downgrade|||
he_dup|||
hek_dup|||
hfreeentries|||
hsplit|||
-hv_assert||5.009005|
+hv_assert|||
hv_auxinit|||n
hv_backreferences_p|||
hv_clear_placeholders||5.009001|
hv_clear|||
-hv_copy_hints_hv|||
+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.004000|
hv_delete|||
hv_eiter_p||5.009003|
hv_eiter_set||5.009003|
+hv_ename_add|||
+hv_ename_delete|||
hv_exists_ent||5.004000|
hv_exists|||
-hv_fetch_common|||
hv_fetch_ent||5.004000|
hv_fetchs|5.009003||p
hv_fetch|||
+hv_fill||5.013002|
hv_free_ent||5.004000|
hv_iterinit|||
hv_iterkeysv||5.004000|
@@ -1383,7 +1482,6 @@ hv_iterval|||
hv_kill_backrefs|||
hv_ksplit||5.004000|
hv_magic_check|||n
-hv_magic_uvar_xkey|||
hv_magic|||
hv_name_set||5.009003|
hv_notallowed|||
@@ -1397,16 +1495,18 @@ hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_stores|5.009004||p
hv_store|||
+hv_undef_flags|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
-incl_perldb|||
incline|||
incpush_if_exists|||
+incpush_use_sep|||
incpush|||
ingroup|||
init_argv_symbols|||
+init_dbargs|||
init_debugger|||
init_global_struct|||
init_i18nl10n||5.006000|
@@ -1419,27 +1519,49 @@ init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
-instr|||
+instr|||n
intro_my|||
intuit_method|||
intuit_more|||
invert|||
+invlist_array|||
+invlist_destroy|||
+invlist_extend|||
+invlist_intersection|||
+invlist_len|||
+invlist_max|||
+invlist_set_array|||
+invlist_set_len|||
+invlist_set_max|||
+invlist_trim|||
+invlist_union|||
+invoke_exception_hook|||
io_close|||
-isALNUM|||
+isALNUMC|5.006000||p
isALPHA|||
+isASCII|5.006000||p
+isBLANK|5.006001||p
+isCNTRL|5.006000||p
isDIGIT|||
+isGRAPH|5.006000||p
+isGV_with_GP|5.009004||p
isLOWER|||
+isOCTAL||5.013005|
+isPRINT|5.004000||p
+isPSXSPC|5.006001||p
+isPUNCT|5.006000||p
isSPACE|||
isUPPER|||
+isWORDCHAR||5.013006|
+isXDIGIT|5.006000||p
is_an_int|||
+is_ascii_string||5.011000|n
is_gv_magical_sv|||
-is_gv_magical|||
is_handle_constructor|||n
+is_inplace_av|||
is_list_assignment|||
is_lvalue_sub||5.007001|
is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
is_uni_alnum||5.006000|
is_uni_alpha_lc||5.006000|
is_uni_alpha||5.006000|
@@ -1465,12 +1587,21 @@ is_uni_upper_lc||5.006000|
is_uni_upper||5.006000|
is_uni_xdigit_lc||5.006000|
is_uni_xdigit||5.006000|
-is_utf8_alnumc||5.006000|
+is_utf8_X_LVT|||
+is_utf8_X_LV_LVT_V|||
+is_utf8_X_LV|||
+is_utf8_X_L|||
+is_utf8_X_T|||
+is_utf8_X_V|||
+is_utf8_X_begin|||
+is_utf8_X_extend|||
+is_utf8_X_non_hangul|||
+is_utf8_X_prepend|||
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
is_utf8_char_slow|||n
-is_utf8_char||5.006000|
+is_utf8_char||5.006000|n
is_utf8_cntrl||5.006000|
is_utf8_common|||
is_utf8_digit||5.006000|
@@ -1479,24 +1610,41 @@ is_utf8_idcont||5.008000|
is_utf8_idfirst||5.006000|
is_utf8_lower||5.006000|
is_utf8_mark||5.006000|
+is_utf8_perl_space||5.011001|
+is_utf8_perl_word||5.011001|
+is_utf8_posix_digit||5.011001|
is_utf8_print||5.006000|
is_utf8_punct||5.006000|
is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
+is_utf8_string_loclen||5.009003|n
+is_utf8_string_loc||5.008001|n
+is_utf8_string||5.006001|n
is_utf8_upper||5.006000|
is_utf8_xdigit||5.006000|
+is_utf8_xidcont||5.013010|
+is_utf8_xidfirst||5.013010|
isa_lookup|||
items|||n
ix|||n
jmaybe|||
join_exact|||
+keyword_plugin_standard|||
keyword|||
leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
+lex_bufutf8||5.011002|
+lex_discard_to||5.011002|
+lex_grow_linestr||5.011002|
+lex_next_chunk||5.011002|
+lex_peek_unichar||5.011002|
+lex_read_space||5.011002|
+lex_read_to||5.011002|
+lex_read_unichar||5.011002|
+lex_start||5.009005|
+lex_stuff_pvn||5.011002|
+lex_stuff_pvs||5.013005|
+lex_stuff_pv||5.013006|
+lex_stuff_sv||5.011002|
+lex_unstuff||5.011002|
listkids|||
list|||
load_module_nocontext|||vn
@@ -1508,24 +1656,27 @@ 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
mad_free|||
madlex|||
madparse|||
magic_clear_all_env|||
magic_clearenv|||
+magic_clearhints|||
magic_clearhint|||
+magic_clearisa|||
magic_clearpack|||
magic_clearsig|||
magic_dump||5.006000|
magic_existspack|||
magic_freearylen_p|||
magic_freeovrld|||
-magic_freeregexp|||
magic_getarylen|||
magic_getdefelem|||
magic_getnkeys|||
@@ -1539,7 +1690,8 @@ magic_getvec|||
magic_get|||
magic_killbackrefs|||
magic_len|||
-magic_methcall|||
+magic_methcall1|||
+magic_methcall|||v
magic_methpack|||
magic_nextpack|||
magic_regdata_cnt|||
@@ -1549,13 +1701,10 @@ magic_scalarpack|||
magic_set_all_env|||
magic_setamagic|||
magic_setarylen|||
-magic_setbm|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
-magic_setfm|||
-magic_setglob|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
@@ -1572,27 +1721,33 @@ magic_setvec|||
magic_set|||
magic_sizepack|||
magic_wipepack|||
-magicname|||
make_matcher|||
make_trie_failtable|||
make_trie|||
+malloc_good_size|||n
malloced_size|||n
malloc||5.007002|n
markstack_grow|||
matcher_matches_sv|||
measure_struct|||
+memEQs|5.009005||p
memEQ|5.004000||p
+memNEs|5.009005||p
memNE|5.004000||p
mem_collxfrm|||
+mem_log_common|||n
mess_alloc|||
mess_nocontext|||vn
+mess_sv||5.013001|
mess||5.006000|v
method_common|||
mfree||5.007002|n
mg_clear|||
mg_copy|||
mg_dup|||
+mg_findext||5.013008|
mg_find|||
+mg_free_type||5.013006|
mg_free|||
mg_get|||
mg_length||5.005000|
@@ -1608,15 +1763,23 @@ mod|||
more_bodies|||
more_sv|||
moreswitches|||
-mro_get_linear_isa_c3||5.009005|
-mro_get_linear_isa_dfs||5.009005|
+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
+munge_qwlist_to_paren_list|||
my_atof2||5.007002|
my_atof||5.006000|
my_attrs|||
@@ -1658,7 +1821,8 @@ my_letoh64|||n
my_letohi|||n
my_letohl|||n
my_letohs|||n
-my_lstat|||
+my_lstat_flags|||
+my_lstat||5.014000|
my_memcmp||5.004000|n
my_memset|||n
my_ntohl|||
@@ -1668,8 +1832,9 @@ my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
-my_sprintf||5.009003|vn
-my_stat|||
+my_sprintf|5.009003||pvn
+my_stat_flags|||
+my_stat||5.014000|
my_strftime||5.007002|
my_strlcat|5.009004||pn
my_strlcpy|5.009004||pn
@@ -1677,7 +1842,6 @@ my_swabn|||n
my_swap|||
my_unexec|||
my_vsnprintf||5.009004|n
-my|||
need_utf8|||n
newANONATTRSUB||5.006000|
newANONHASH|||
@@ -1693,7 +1857,7 @@ newCONSTSUB|5.004050||p
newCVREF|||
newDEFSVOP|||
newFORM|||
-newFOROP|||
+newFOROP||5.013007|
newGIVENOP||5.009003|
newGIVWHENOP|||
newGP|||
@@ -1726,15 +1890,19 @@ newSTATEOP|||
newSUB|||
newSVOP|||
newSVREF|||
-newSV_type||5.009005|
+newSV_type|5.009005||p
newSVhek||5.009003|
newSViv|||
newSVnv|||
+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_share||5.009003|
+newSVpvs_flags|5.010001||p
+newSVpvs_share|5.009003||p
newSVpvs|5.009003||p
newSVpv|||
newSVrv|||
@@ -1744,7 +1912,7 @@ newSV|||
newTOKEN|||
newUNOP|||
newWHENOP||5.009003|
-newWHILEOP||5.009003|
+newWHILEOP||5.013007|
newXS_flags||5.009004|
newXSproto||5.006000|
newXS||5.006000|
@@ -1760,7 +1928,7 @@ new_warnings_bitfield|||
next_symbol|||
nextargv|||
nextchar|||
-ninstr|||
+ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
@@ -1768,23 +1936,29 @@ not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
-offer_nice_chunk|||
oopsAV|||
-oopsCV|||
oopsHV|||
+op_append_elem||5.013006|
+op_append_list||5.013006|
op_clear|||
op_const_sv|||
+op_contextualize||5.013006|
op_dump||5.006000|
op_free|||
op_getmad_weak|||
op_getmad|||
+op_linklist||5.013006|
+op_lvalue||5.013007|
op_null||5.007002|
+op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
+op_scope||5.013007|
op_xmldump|||
open_script|||
+opt_scalarhv|||
pMY_CXT_|5.007003||p
pMY_CXT|5.007003||p
pTHX_|5.006000||p
@@ -1792,16 +1966,18 @@ pTHX|5.006000||p
packWARN|5.007003||p
pack_cat||5.007003|
pack_rec|||
+package_version|||
package|||
packlist||5.008001|
pad_add_anon|||
+pad_add_name_sv|||
pad_add_name|||
pad_alloc|||
pad_block_start|||
pad_check_dup|||
pad_compname_type|||
pad_findlex|||
-pad_findmy|||
+pad_findmy||5.011002|
pad_fixup_inner_anons|||
pad_free|||
pad_leavemy|||
@@ -1810,11 +1986,20 @@ pad_peg|||n
pad_push|||
pad_reset|||
pad_setsv|||
-pad_sv||5.009005|
+pad_sv|||
pad_swipe|||
pad_tidy|||
-pad_undef|||
+padlist_dup|||
+parse_arithexpr||5.013008|
+parse_barestmt||5.013007|
+parse_block||5.013007|
parse_body|||
+parse_fullexpr||5.013008|
+parse_fullstmt||5.013005|
+parse_label||5.013007|
+parse_listexpr||5.013008|
+parse_stmtseq||5.013006|
+parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free|||
@@ -1832,17 +2017,18 @@ perl_parse||5.006000|n
perl_run|||n
pidgone|||
pm_description|||
-pmflag|||
pmop_dump||5.006000|
pmop_xmldump|||
pmruntime|||
pmtrans|||
pop_scope|||
+populate_isa|||v
pregcomp||5.009005|
pregexec|||
+pregfree2||5.011000|
pregfree|||
-prepend_elem|||
prepend_madprops|||
+prescan_version||5.011004|
printbuf|||
printf_nocontext|||vn
process_special_blocks|||
@@ -1855,15 +2041,15 @@ ptr_table_split||5.009005|
ptr_table_store||5.009005|
push_scope|||
put_byte|||
-pv_display||5.006000|
-pv_escape||5.009004|
-pv_pretty||5.009004|
+pv_display|5.006000||p
+pv_escape|5.009004||p
+pv_pretty|5.009004||p
pv_uni_display||5.007003|
qerror|||
qsortsvu|||
re_compile||5.009005|
re_croak2|||
-re_dup|||
+re_dup_guts|||
re_intuit_start||5.009005|
re_intuit_string||5.006000|
readpipe_override|||
@@ -1874,13 +2060,20 @@ reentrant_retry|||vn
reentrant_size|||
ref_array_or_hash|||
refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
+refcounted_he_fetch_pvn|||
+refcounted_he_fetch_pvs|||
+refcounted_he_fetch_pv|||
+refcounted_he_fetch_sv|||
refcounted_he_free|||
-refcounted_he_new|||
+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.009003|
+ref||5.014000|
reg_check_named_buff_matched|||
reg_named_buff_all||5.009005|
reg_named_buff_exists||5.009005|
@@ -1899,7 +2092,6 @@ reg_qr_package|||
reg_recode|||
reg_scan_name|||
reg_skipcomment|||
-reg_stringify||5.009005|
reg_temp_copy|||
reganode|||
regatom|||
@@ -1908,7 +2100,7 @@ regclass_swash||5.009004|
regclass|||
regcppop|||
regcppush|||
-regcurly|||n
+regcurly|||
regdump_extflags|||
regdump||5.005000|
regdupe_internal|||
@@ -1932,13 +2124,15 @@ regtry|||
reguni|||
regwhite|||n
reg|||
-repeatcpy|||
+repeatcpy|||n
report_evil_fh|||
report_uninit|||
+report_wrongway_fh|||
require_pv||5.006000|
require_tie_mod|||
restore_magic|||
-rninstr|||
+rninstr|||n
+rpeep|||
rsignal_restore|||
rsignal_save|||
rsignal_state||5.004000|
@@ -1947,6 +2141,7 @@ run_body|||
run_user_filter|||
runops_debug||5.005000|
runops_standard||5.005000|
+rv2cv_op_cv||5.013006|
rvpv_dup|||
rxres_free|||
rxres_restore|||
@@ -1959,6 +2154,8 @@ 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|||
@@ -1975,9 +2172,11 @@ save_generic_pvref||5.006001|
save_generic_svref||5.005030|
save_gp||5.004000|
save_hash|||
+save_hdelete||5.011000|
save_hek_flags|||n
+save_helem_flags||5.011000|
save_helem||5.004050|
-save_hints||5.005000|
+save_hints||5.010001|
save_hptr|||
save_int|||
save_item|||
@@ -1988,9 +2187,13 @@ save_long|||
save_magic|||
save_mortalizesv||5.007001|
save_nogv|||
-save_op|||
-save_padsv||5.007001|
+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|||
@@ -2003,7 +2206,9 @@ savepvn|||
savepvs||5.009003|
savepv|||
savesharedpvn||5.009005|
+savesharedpvs||5.013006|
savesharedpv||5.007003|
+savesharedsvpv||5.013006|
savestack_grow_cnt||5.008001|
savestack_grow|||
savesvpv||5.009002|
@@ -2031,19 +2236,19 @@ scan_trans|||
scan_version||5.009001|
scan_vstring||5.009005|
scan_word|||
-scope|||
screaminstr||5.005000|
+search_const|||
seed||5.008001|
sequence_num|||
sequence_tail|||
sequence|||
set_context||5.006000|n
-set_csh|||
set_numeric_local||5.006000|
set_numeric_radix||5.006000|
set_numeric_standard||5.006000|
+set_regclass_bit_fold|||
+set_regclass_bit|||
setdefout|||
-setenv_getix|||
share_hek_flags|||
share_hek||5.004000|
si_dup|||
@@ -2065,8 +2270,9 @@ stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
-stashpv_hvname_match||5.009005|
+stashpv_hvname_match||5.014000|
stdize_locale|||
+store_cop_label|||
strEQ|||
strGE|||
strGT|||
@@ -2082,6 +2288,7 @@ sub_crush_depth|||
sublex_done|||
sublex_push|||
sublex_start|||
+sv_2bool_flags||5.013006|
sv_2bool|||
sv_2cv|||
sv_2io|||
@@ -2090,7 +2297,8 @@ sv_2iuv_non_preserve|||
sv_2iv_flags||5.009001|
sv_2iv|||
sv_2mortal|||
-sv_2nv|||
+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
@@ -2105,7 +2313,9 @@ sv_add_backref|||
sv_backoff|||
sv_bless|||
sv_cat_decode||5.008001|
+sv_catpv_flags||5.013006|
sv_catpv_mg|5.004050||p
+sv_catpv_nomg||5.013006|
sv_catpvf_mg_nocontext|||pvn
sv_catpvf_mg|5.006000|5.004000|pv
sv_catpvf_nocontext|||vn
@@ -2114,6 +2324,9 @@ sv_catpvn_flags||5.007002|
sv_catpvn_mg|5.004050||p
sv_catpvn_nomg|5.007002||p
sv_catpvn|||
+sv_catpvs_flags||5.013006|
+sv_catpvs_mg||5.013006|
+sv_catpvs_nomg||5.013006|
sv_catpvs|5.009003||p
sv_catpv|||
sv_catsv_flags||5.007002|
@@ -2121,22 +2334,33 @@ sv_catsv_mg|5.004050||p
sv_catsv_nomg|5.007002||p
sv_catsv|||
sv_catxmlpvn|||
+sv_catxmlpv|||
sv_catxmlsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
+sv_cmp_flags||5.013006|
+sv_cmp_locale_flags||5.013006|
sv_cmp_locale||5.004000|
sv_cmp|||
+sv_collxfrm_flags||5.013006|
sv_collxfrm|||
+sv_compile_2op_is_broken|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
+sv_dec_nomg||5.013002|
sv_dec|||
sv_del_backref|||
sv_derived_from||5.004000|
+sv_destroyable||5.010000|
sv_does||5.009004|
sv_dump|||
+sv_dup_common|||
+sv_dup_inc_multiple|||
+sv_dup_inc|||
sv_dup|||
+sv_eq_flags||5.013006|
sv_eq|||
sv_exp_grow|||
sv_force_normal_flags||5.007001|
@@ -2147,7 +2371,9 @@ sv_free|||
sv_gets||5.004000|
sv_grow|||
sv_i_ncmp|||
+sv_inc_nomg||5.013002|
sv_inc|||
+sv_insert_flags||5.010001|
sv_insert|||
sv_isa|||
sv_isobject|||
@@ -2155,7 +2381,7 @@ sv_iv||5.005000|
sv_kill_backrefs|||
sv_len_utf8||5.006000|
sv_len|||
-sv_magic_portable|5.009005|5.004000|p
+sv_magic_portable|5.014000|5.004000|p
sv_magicext||5.007003|
sv_magic|||
sv_mortalcopy|||
@@ -2170,6 +2396,7 @@ sv_peek||5.005000|
sv_pos_b2u_midway|||
sv_pos_b2u||5.006000|
sv_pos_u2b_cached|||
+sv_pos_u2b_flags||5.011005|
sv_pos_u2b_forwards|||n
sv_pos_u2b_midway|||n
sv_pos_u2b||5.006000|
@@ -2178,8 +2405,8 @@ sv_pvbyten||5.006000|
sv_pvbyte||5.006000|
sv_pvn_force_flags|5.007002||p
sv_pvn_force|||
-sv_pvn_nomg|5.007003||p
-sv_pvn|||
+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|
@@ -2204,11 +2431,13 @@ sv_setpviv_mg||5.008001|
sv_setpviv||5.008001|
sv_setpvn_mg|5.004050||p
sv_setpvn|||
+sv_setpvs_mg||5.013006|
sv_setpvs|5.009004||p
sv_setpv|||
sv_setref_iv|||
sv_setref_nv|||
sv_setref_pvn|||
+sv_setref_pvs||5.013006|
sv_setref_pv|||
sv_setref_uv||5.007001|
sv_setsv_cow|||
@@ -2223,6 +2452,7 @@ sv_taint||5.004000|
sv_true||5.005000|
sv_unglob|||
sv_uni_display||5.007003|
+sv_unmagicext||5.013008|
sv_unmagic|||
sv_unref_flags||5.007001|
sv_unref|||
@@ -2234,7 +2464,9 @@ 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
@@ -2246,15 +2478,18 @@ sv_vsetpvf|5.006000|5.004000|p
sv_xmlpeek|||
svtype|||
swallow_bom|||
-swap_match_buff|||
swash_fetch||5.007002|
swash_get|||
swash_init||5.006000|
+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||5.006000|
toLOWER|||
toUPPER|||
@@ -2279,11 +2514,14 @@ tokeq|||
tokereport|||
too_few_arguments|||
too_many_arguments|||
+try_amagic_bin|||
+try_amagic_un|||
uiv_2buf|||n
unlnk|||
unpack_rec|||
unpack_str||5.007003|
unpackstring||5.008001|
+unreferenced_to_tmp_stack|||
unshare_hek_or_pvn|||
unshare_hek|||
unsharepvn||5.004000|
@@ -2291,11 +2529,13 @@ unwind_handler_stack|||
update_debugger_info|||
upg_version||5.009005|
usage|||
+utf16_textfilter|||
utf16_to_utf8_reversed||5.006001|
utf16_to_utf8||5.006001|
utf8_distance||5.006000|
utf8_hop||5.006000|
utf8_length||5.007001|
+utf8_mg_len_cache_update|||
utf8_mg_pos_cache_update|||
utf8_to_bytes||5.006001|
utf8_to_uvchr||5.007001|
@@ -2312,9 +2552,6 @@ varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
vform||5.006000|
visit|||
vivify_defelem|||
@@ -2330,24 +2567,32 @@ vwarner||5.006000|
vwarn||5.006000|
wait4pid|||
warn_nocontext|||vn
+warn_sv||5.013001|
warner_nocontext|||vn
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
+with_queued_errors|||
write_no_mem|||
write_to_stderr|||
+xmldump_all_perl|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v
+xmldump_packsubs_perl|||
xmldump_packsubs|||
+xmldump_sub_perl|||
xmldump_sub|||
xmldump_vindent|||
+xs_apiversion_bootcheck|||
+xs_version_bootcheck|||
yyerror|||
yylex|||
yyparse|||
+yyunlex|||
yywarn|||
);
@@ -2412,7 +2657,7 @@ while (<DATA>) {
my @n = find_api($function->[1]);
push @{$depends{$function->[0]}}, @n if @n
}
- undef $define;
+ undef $function;
}
else {
$function->[1] .= $_;
@@ -2426,8 +2671,12 @@ while (<DATA>) {
$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+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
- push @{$depends{$1}}, map { s/\s+//g; $_ } split /,/, $2;
+ 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)?\)};
@@ -3043,7 +3292,7 @@ sub strip
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
- if (\$Devel::PPPort::VERSION < $VERSION) {
+ 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";
@@ -3119,6 +3368,49 @@ __DATA__
#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>
@@ -3534,6 +3826,14 @@ __DATA__
#endif
#endif
+#ifndef memEQs
+# define memEQs(s1, l, s2) \
+ (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1)))
+#endif
+
+#ifndef memNEs
+# define memNEs(s1, l, s2) !memEQs(s1, l, s2)
+#endif
#ifndef MoveD
# define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t))
#endif
@@ -3630,7 +3930,6 @@ typedef NVTYPE NV;
#endif
#ifndef INT2PTR
-
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
# define PTRV UV
# define INT2PTR(any,d) (any)(d)
@@ -3642,19 +3941,34 @@ typedef NVTYPE NV;
# endif
# define INT2PTR(any,d) (any)(PTRV)(d)
# endif
+#endif
-# define NUM2PTR(any,d) (any)(PTRV)(d)
-# define PTR2IV(p) INT2PTR(IV,p)
-# define PTR2UV(p) INT2PTR(UV,p)
-# define PTR2NV(p) NUM2PTR(NV,p)
-
+#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
-#endif /* !INT2PTR */
+#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
@@ -3708,6 +4022,10 @@ typedef NVTYPE NV;
# 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
@@ -3715,11 +4033,6 @@ typedef NVTYPE NV;
#ifndef ERRSV
# define ERRSV get_sv("@",FALSE)
#endif
-#ifndef newSVpvn
-# define newSVpvn(data,len) ((data) \
- ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
- : newSV(0))
-#endif
/* Hint: gv_stashpvn
* This function's backport doesn't support the length parameter, but
@@ -3782,6 +4095,13 @@ typedef NVTYPE NV;
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
@@ -3794,6 +4114,9 @@ typedef NVTYPE NV;
#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 { \
@@ -3806,6 +4129,104 @@ typedef NVTYPE NV;
} 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 isALNUMC
+# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
+#endif
+
+#ifndef isASCII
+# define isASCII(c) ((U8) (c) <= 127)
+#endif
+
+#ifndef isCNTRL
+# define isCNTRL(c) ((U8) (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
+
#ifndef PERL_SIGNALS_UNSAFE_FLAG
#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
@@ -3848,6 +4269,8 @@ extern U32 DPPP_(my_PL_signals);
# 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
@@ -3858,10 +4281,15 @@ extern U32 DPPP_(my_PL_signals);
# 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
@@ -3877,102 +4305,125 @@ extern U32 DPPP_(my_PL_signals);
# define PL_sv_yes sv_yes
# define PL_tainted tainted
# define PL_tainting tainting
+# define PL_tokenbuf tokenbuf
/* Replace: 0 */
#endif
-/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters
- * Do not use this variable. It is internal to the perl parser
- * and may change or even be removed in the future. Note that
- * as of perl 5.9.5 you cannot assign to this variable anymore.
+/* 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.
*/
-/* TODO: cannot assign to these vars; is it worth fixing? */
#if (PERL_BCDVERSION >= 0x5009005)
-# define PL_expect (PL_parser ? PL_parser->expect : 0)
-# define PL_copline (PL_parser ? PL_parser->copline : 0)
-# define PL_rsfp (PL_parser ? PL_parser->rsfp : (PerlIO *) 0)
-# define PL_rsfp_filters (PL_parser ? PL_parser->rsfp_filters : (AV *) 0)
-#endif
-#ifndef dTHR
-# define dTHR dNOOP
-#endif
-#ifndef dTHX
-# define dTHX dNOOP
-#endif
+# 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
+ * doint. 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.
+ */
-#ifndef dTHXa
-# define dTHXa(x) dNOOP
-#endif
-#ifndef pTHX
-# define pTHX void
-#endif
+# 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)
-#ifndef pTHX_
-# define pTHX_
-#endif
-#ifndef aTHX
-# define aTHX
-#endif
+#else
-#ifndef aTHX_
-# define aTHX_
-#endif
+/* ensure that PL_parser != NULL and cannot be dereferenced */
+# define PL_parser ((void *) 1)
-#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)
+#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_mg(PUSHmortal, (p), (l))
+# define mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l))
#endif
#ifndef mPUSHn
-# define mPUSHn(n) sv_setnv_mg(PUSHmortal, (NV)(n))
+# define mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n))
#endif
#ifndef mPUSHi
-# define mPUSHi(i) sv_setiv_mg(PUSHmortal, (IV)(i))
+# define mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i))
#endif
#ifndef mPUSHu
-# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u))
+# 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_mg(PUSHmortal, (p), (l)); } STMT_END
+# 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_mg(PUSHmortal, (NV)(n)); } STMT_END
+# 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_mg(PUSHmortal, (IV)(i)); } STMT_END
+# 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_mg(PUSHmortal, (UV)(u)); } STMT_END
+# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
#endif
/* Replace: 1 */
@@ -3994,6 +4445,8 @@ extern U32 DPPP_(my_PL_signals);
#ifndef eval_sv
# define eval_sv perl_eval_sv
#endif
+
+/* Replace: 0 */
#ifndef PERL_LOADMOD_DENY
# define PERL_LOADMOD_DENY 0x1
#endif
@@ -4006,7 +4459,19 @@ extern U32 DPPP_(my_PL_signals);
# define PERL_LOADMOD_IMPORT_OPS 0x4
#endif
-/* Replace: 0 */
+#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 */
@@ -4199,6 +4664,10 @@ extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
+/* 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)
{
@@ -4206,7 +4675,7 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
HV *old_cop_stash = PL_curcop->cop_stash;
HV *old_curstash = PL_curstash;
line_t oldline = PL_curcop->cop_line;
- PL_curcop->cop_line = PL_copline;
+ PL_curcop->cop_line = D_PPP_PL_copline;
PL_hints &= ~HINT_BLOCK_SCOPE;
if (stash)
@@ -4359,7 +4828,8 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#ifndef NVef
# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
+ 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
@@ -4442,6 +4912,81 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
# 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
+
+#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)
+
+#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
+
+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
+
+#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)
+
+#if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)
+
+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
@@ -4467,10 +5012,10 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#if (PERL_BCDVERSION < 0x5007000)
#if defined(NEED_sv_2pvbyte)
-static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
+static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
static
#else
-extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
+extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
#endif
#ifdef sv_2pvbyte
@@ -4564,10 +5109,10 @@ DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
#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 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);
+extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
#endif
#ifdef sv_2pv_flags
@@ -4588,10 +5133,10 @@ DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#endif
#if defined(NEED_sv_pvn_force_flags)
-static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
+static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
static
#else
-extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
+extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
#endif
#ifdef sv_pvn_force_flags
@@ -4612,6 +5157,12 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#endif
#endif
+
+#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
+# define DPPP_SVPV_NOLEN_LP_ARG &PL_na
+#else
+# define DPPP_SVPV_NOLEN_LP_ARG 0
+#endif
#ifndef SvPV_const
# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
#endif
@@ -4634,7 +5185,7 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
# define SvPV_flags_const_nolen(sv, flags) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
? SvPVX_const(sv) : \
- (const char*) sv_2pv_flags(sv, 0, flags|SV_CONST_RETURN))
+ (const char*) sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
#endif
#ifndef SvPV_flags_mutable
# define SvPV_flags_mutable(sv, lp, flags) \
@@ -4669,7 +5220,7 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#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, 0, flags))
+ ? SvPVX(sv) : sv_pvn_force_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags))
#endif
#ifndef SvPV_force_flags_mutable
# define SvPV_force_flags_mutable(sv, lp, flags) \
@@ -4680,12 +5231,12 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#ifndef SvPV_nolen
# define SvPV_nolen(sv) \
((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
- ? SvPVX(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC))
+ ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_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, 0, SV_GMAGIC|SV_CONST_RETURN))
+ ? SvPVX_const(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
#endif
#ifndef SvPV_nomg
# define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
@@ -4698,6 +5249,12 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#ifndef SvPV_nomg_const_nolen
# define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 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); \
@@ -4757,10 +5314,10 @@ DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
#if defined(NEED_vnewSVpvf)
-static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
+static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
static
#else
-extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
+extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
#endif
#ifdef vnewSVpvf
@@ -4792,10 +5349,10 @@ DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args)
#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 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, ...);
+extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
#endif
#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
@@ -4818,10 +5375,10 @@ DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
#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 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, ...);
+extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...);
#endif
#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
@@ -4863,10 +5420,10 @@ DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
#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 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, ...);
+extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
#endif
#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
@@ -4889,10 +5446,10 @@ DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
#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 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, ...);
+extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...);
#endif
#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
@@ -4932,6 +5489,12 @@ DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
} STMT_END
#endif
+/* Hint: newSVpvn_share
+ * The SVs created by this function only mimic the behaviour of
+ * shared PVs without really being shared. Only use if you know
+ * what you're doing.
+ */
+
#ifndef newSVpvn_share
#if defined(NEED_newSVpvn_share)
@@ -4971,6 +5534,30 @@ DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash)
#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 GvSVn
+# define GvSVn(gv) GvSV(gv)
+#endif
+
+#ifndef isGV_with_GP
+# define isGV_with_GP(gv) isGV(gv)
+#endif
+
+#ifndef gv_fetchpvn_flags
+# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
+#endif
+
+#ifndef gv_fetchsv
+# define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt)
+#endif
+#ifndef get_cvn_flags
+# define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
+#endif
#ifndef WARN_ALL
# define WARN_ALL 0
#endif
@@ -5215,6 +5802,14 @@ DPPP_(my_warner)(U32 err, const char *pat, ...)
# 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
@@ -5230,6 +5825,16 @@ DPPP_(my_warner)(U32 err, const char *pat, ...)
#ifndef hv_stores
# define hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0)
#endif
+#ifndef gv_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
#ifndef SvGETMAGIC
# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
#endif
@@ -6287,7 +6892,7 @@ DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
retval = vsprintf(buffer, format, ap);
#endif
va_end(ap);
- if (retval >= (int)len)
+ if (retval < 0 || (len > 0 && (Size_t)retval >= len))
Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
return retval;
}
@@ -6295,6 +6900,32 @@ DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
#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
+
+#define my_sprintf DPPP_(my_my_sprintf)
+#define Perl_my_sprintf DPPP_(my_my_sprintf)
+
+#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
+
+int
+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
@@ -6370,6 +7001,257 @@ DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
#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_PRETTY_QUOTE
+#endif
+
+#ifndef PERL_PV_PRETTY_REGPROP
+# define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_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
+
+#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)
+
+#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
+
+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
+
+#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)
+
+#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
+
+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
+
+#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)
+
+#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
+
+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_ */