summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Devel/PPPort.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
committerKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
commit342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch)
tree79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/Devel/PPPort.pm
parentbe2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff)
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/PPPort.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Devel/PPPort.pm1137
1 files changed, 749 insertions, 388 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm
index 908265d239d..f04cb2b7fa8 100644
--- a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm
+++ b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm
@@ -12,13 +12,7 @@
#
################################################################################
#
-# $Revision: 67 $
-# $Author: mhx $
-# $Date: 2010/03/07 13:15:41 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
+# 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.
#
@@ -486,6 +480,7 @@ in older Perl releases:
SvPV_nomg
SvPV_nomg_const
SvPV_nomg_const_nolen
+ SvPV_nomg_nolen
SvPV_renew
SvPVbyte
SvPVX_const
@@ -515,8 +510,8 @@ in older Perl releases:
UVSIZE
UVTYPE
UVuf
- UVxf
UVXf
+ UVxf
vload_module
vnewSVpvf
WARN_ALL
@@ -567,6 +562,7 @@ in older Perl releases:
WARN_UTF8
WARN_VOID
warner
+ WIDEST_UTYPE
XCPT_CATCH
XCPT_RETHROW
XCPT_TRY_END
@@ -591,7 +587,7 @@ Perl below which it is unsupported:
=over 4
-=item perl 5.14.0
+=item perl 5.19.3
BhkDISABLE
BhkENABLE
@@ -600,15 +596,174 @@ Perl below which it is unsupported:
PERL_SYS_TERM
POP_MULTICALL
PUSH_MULTICALL
+ PadARRAY
+ PadMAX
+ PadlistARRAY
+ PadlistMAX
+ PadlistNAMES
+ PadlistNAMESARRAY
+ PadlistNAMESMAX
+ PadnameLEN
+ PadnamePV
+ PadnameSV
+ PadnameUTF8
+ PadnamelistARRAY
+ PadnamelistMAX
+ XS_EXTERNAL
+ XS_INTERNAL
XopDISABLE
XopENABLE
XopENTRY
XopENTRY_set
cophh_new_empty
+ croak_memory_wrap
my_lstat
my_stat
+ reentrant_free
+ reentrant_init
+ reentrant_retry
+ reentrant_size
ref
- stashpv_hvname_match
+ sv_pos_b2u_flags
+ sv_setref_pvs
+
+=item perl 5.19.2
+
+ SVt_INVLIST
+
+=item perl 5.19.1
+
+ re_intuit_start
+ toFOLD
+ toFOLD_utf8
+ toLOWER_L1
+ toTITLE
+
+=item perl 5.17.11
+
+ hv_rand_set
+
+=item perl 5.17.9
+
+ av_tindex
+ av_top_index
+
+=item perl 5.17.8
+
+ _is_uni_FOO
+ _is_uni_perl_idcont
+ _is_utf8_FOO
+ _is_utf8_mark
+ _is_utf8_perl_idcont
+ isALPHANUMERIC
+ isIDCONT
+
+=item perl 5.17.7
+
+ SvREFCNT_dec_NN
+ _is_uni_perl_idstart
+ _is_utf8_perl_idstart
+ is_uni_alnumc
+ is_uni_alnumc_lc
+ is_utf8_alnumc
+
+=item perl 5.17.6
+
+ READ_XDIGIT
+
+=item perl 5.17.4
+
+ PL_comppad_name
+ PadlistREFCNT
+ newMYSUB
+ newSVpadname
+
+=item perl 5.17.2
+
+ is_uni_blank
+ is_uni_blank_lc
+ is_utf8_blank
+ sv_copypv_flags
+ sv_copypv_nomg
+ sv_vcatpvfn_flags
+
+=item perl 5.15.9
+
+ utf8_to_uvchr_buf
+ utf8_to_uvuni_buf
+ valid_utf8_to_uvuni
+
+=item perl 5.15.8
+
+ is_utf8_char_buf
+ wrap_op_checker
+
+=item perl 5.15.7
+
+ toLOWER_utf8
+ toTITLE_utf8
+ toUPPER_utf8
+ to_utf8_fold
+ to_utf8_lower
+ to_utf8_title
+ to_utf8_upper
+
+=item perl 5.15.6
+
+ _to_utf8_fold_flags
+ _to_utf8_lower_flags
+ _to_utf8_title_flags
+ _to_utf8_upper_flags
+ newCONSTSUB_flags
+
+=item perl 5.15.4
+
+ HvENAMELEN
+ HvENAMEUTF8
+ HvNAMELEN
+ HvNAMEUTF8
+ gv_autoload_pv
+ gv_autoload_pvn
+ gv_autoload_sv
+ gv_fetchmeth_pv
+ gv_fetchmeth_pv_autoload
+ gv_fetchmeth_pvn
+ gv_fetchmeth_pvn_autoload
+ gv_fetchmeth_sv
+ gv_fetchmeth_sv_autoload
+ gv_fetchmethod_pv_flags
+ gv_fetchmethod_pvn_flags
+ gv_fetchmethod_sv_flags
+ gv_init_pv
+ gv_init_pvn
+ gv_init_sv
+ newGVgen_flags
+ sv_derived_from_pv
+ sv_derived_from_pvn
+ sv_derived_from_sv
+ sv_does_pv
+ sv_does_pvn
+ sv_does_sv
+ whichsig_pv
+ whichsig_pvn
+ whichsig_sv
+
+=item perl 5.15.1
+
+ cop_fetch_label
+ cop_store_label
+ pad_add_name_pv
+ pad_add_name_pvn
+ pad_add_name_pvs
+ pad_add_name_sv
+ pad_findmy_pv
+ pad_findmy_pvn
+ pad_findmy_pvs
+ pad_findmy_sv
+
+=item perl 5.13.11
+
+ _to_uni_fold_flags
=item perl 5.13.10
@@ -630,7 +785,6 @@ Perl below which it is unsupported:
HvENAME
OP_CLASS
- SvPV_nomg_nolen
XopFLAGS
amagic_deref_call
bytes_cmp_utf8
@@ -697,7 +851,6 @@ Perl below which it is unsupported:
sv_collxfrm_flags
sv_eq_flags
sv_setpvs_mg
- sv_setref_pvs
=item perl 5.13.5
@@ -757,7 +910,6 @@ Perl below which it is unsupported:
lex_stuff_pvn
lex_stuff_sv
lex_unstuff
- pad_findmy
=item perl 5.11.1
@@ -771,11 +923,10 @@ Perl below which it is unsupported:
Gv_AMupdate
PL_opfreehook
+ SVt_REGEXP
SvOOK_offset
av_iter_p
- fetch_cop_label
gv_add_by_type
- gv_fetchmethod_flags
is_ascii_string
pregfree2
save_adelete
@@ -802,6 +953,8 @@ Perl below which it is unsupported:
=item perl 5.10.0
+ PERL_SYS_INIT
+ PERL_SYS_INIT3
hv_common
hv_common_key_len
sv_destroyable
@@ -830,7 +983,6 @@ Perl below which it is unsupported:
ptr_table_split
ptr_table_store
re_compile
- re_intuit_start
reg_named_buff_all
reg_named_buff_exists
reg_named_buff_fetch
@@ -866,7 +1018,6 @@ Perl below which it is unsupported:
hv_eiter_set
hv_name_set
hv_placeholders_get
- hv_placeholders_p
hv_placeholders_set
hv_riter_p
hv_riter_set
@@ -874,6 +1025,7 @@ Perl below which it is unsupported:
newGIVENOP
newSVhek
newWHENOP
+ pad_compname_type
savepvs
sortsv_flags
vverify
@@ -910,16 +1062,20 @@ Perl below which it is unsupported:
=item perl 5.8.1
+ CvPADLIST
+ PL_comppad
SvVOK
doing_taint
find_runcv
is_utf8_string_loc
packlist
+ pad_add_anon
+ pad_new
+ pad_tidy
save_bool
savestack_grow_cnt
seed
sv_cat_decode
- sv_compile_2op
sv_setpviv
sv_setpviv_mg
unpackstring
@@ -978,21 +1134,20 @@ Perl below which it is unsupported:
save_shared_pvref
savesharedpv
sortsv
- sv_copypv
sv_magicext
sv_nolocking
sv_nosharing
sv_recode_to_utf8
sv_uni_display
+ toFOLD_uni
+ toLOWER_uni
+ toTITLE_uni
+ toUPPER_uni
to_uni_fold
to_uni_lower
to_uni_title
to_uni_upper
to_utf8_case
- to_utf8_fold
- to_utf8_lower
- to_utf8_title
- to_utf8_upper
unpack_str
uvchr_to_utf8_flags
uvuni_to_utf8_flags
@@ -1020,6 +1175,7 @@ Perl below which it is unsupported:
=item perl 5.7.1
POPpbytex
+ XCPT_RETHROW
bytes_from_utf8
despatch_signals
do_openn
@@ -1053,7 +1209,7 @@ Perl below which it is unsupported:
=item perl 5.6.0
- PERL_SYS_INIT3
+ PL_check
SvIOK_UV
SvIOK_notUV
SvIOK_only_UV
@@ -1097,6 +1253,8 @@ Perl below which it is unsupported:
gv_dump
init_i18nl10n
init_i18nl14n
+ isASCII
+ isCNTRL
is_uni_alnum
is_uni_alnum_lc
is_uni_alpha
@@ -1209,6 +1367,7 @@ Perl below which it is unsupported:
=item perl 5.005
+ PL_curpad
PL_modglobal
cx_dump
debop
@@ -1239,6 +1398,10 @@ Perl below which it is unsupported:
=item perl 5.004_05
+ Copy
+ CopyD
+ Move
+ MoveD
do_binmode
save_aelem
save_helem
@@ -1262,6 +1425,8 @@ Perl below which it is unsupported:
SvTAINTED
SvTAINTED_off
SvTAINTED_on
+ XCPT_TRY_END
+ XCPT_TRY_START
block_gimme
call_list
cv_const_sv
@@ -1282,7 +1447,7 @@ Perl below which it is unsupported:
hv_store_ent
ibcmp_locale
my_failure_exit
- my_memcmp
+ my_memset
my_pclose
my_popen
newSVpvf
@@ -1309,6 +1474,8 @@ Perl below which it is unsupported:
sv_vsetpvf
sv_vsetpvf_mg
sv_vsetpvfn
+ toLOWER_LC
+ toUPPER
unsharepvn
vnewSVpvf
warner
@@ -1341,7 +1508,7 @@ Version 3.x was ported back to CPAN by Marcus Holland-Moritz.
=head1 COPYRIGHT
-Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
+Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
Version 2.x, Copyright (C) 2001, Paul Marquess.
@@ -1361,7 +1528,7 @@ package Devel::PPPort;
use strict;
use vars qw($VERSION $data);
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.20 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = '3.21';
sub _init_data
{
@@ -1750,7 +1917,7 @@ SKIP
|>
|>=head1 COPYRIGHT
|>
-|>Version 3.x, Copyright (c) 2004-2010, Marcus Holland-Moritz.
+|>Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
|>
|>Version 2.x, Copyright (C) 2001, Paul Marquess.
|>
@@ -1839,9 +2006,9 @@ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
-BhkDISABLE||5.014000|
-BhkENABLE||5.014000|
-BhkENTRY_set||5.014000|
+BhkDISABLE||5.019003|
+BhkENABLE||5.019003|
+BhkENTRY_set||5.019003|
BhkENTRY|||
BhkFLAGS|||
CALL_BLOCK_HOOKS|||
@@ -1860,9 +2027,9 @@ CopSTASHPV|5.006000||p
CopSTASH_eq|5.006000||p
CopSTASH_set|5.006000||p
CopSTASH|5.006000||p
-CopyD|5.009002||p
-Copy|||
-CvPADLIST|||
+CopyD|5.009002|5.004050|p
+Copy||5.004050|
+CvPADLIST||5.008001|
CvSTASH|||
CvWEAKOUTSIDE|||
DEFSV_set|5.010001||p
@@ -1885,6 +2052,9 @@ G_NOARGS|||
G_SCALAR|||
G_VOID||5.004000|
GetVars|||
+GvAV|||
+GvCV|||
+GvHV|||
GvSVn|5.009003||p
GvSV|||
Gv_AMupdate||5.011000|
@@ -1898,8 +2068,12 @@ HeSVKEY_set||5.004000|
HeSVKEY||5.004000|
HeUTF8||5.010001|
HeVAL||5.004000|
+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
@@ -1920,12 +2094,12 @@ LEAVE|||
LINKLIST||5.013006|
LVRET|||
MARK|||
-MULTICALL||5.014000|
+MULTICALL||5.019003|
MY_CXT_CLONE|5.009002||p
MY_CXT_INIT|5.007003||p
MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
+MoveD|5.009002|5.004050|p
+Move||5.004050|
NOOP|5.005000||p
NUM2PTR|5.006000||p
NVTYPE|5.006000||p
@@ -1952,7 +2126,6 @@ PAD_COMPNAME_GEN|||
PAD_COMPNAME_OURSTASH|||
PAD_COMPNAME_PV|||
PAD_COMPNAME_TYPE|||
-PAD_DUP|||
PAD_RESTORE_LOCAL|||
PAD_SAVE_LOCAL|||
PAD_SAVE_SETNULLPAD|||
@@ -1964,7 +2137,7 @@ PAD_SV|||
PERLIO_FUNCS_CAST|5.009003||p
PERLIO_FUNCS_DECL|5.009003||p
PERL_ABS|5.008001||p
-PERL_BCDVERSION|5.014000||p
+PERL_BCDVERSION|5.019002||p
PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
PERL_HASH|5.004000||p
PERL_INT_MAX|5.004000||p
@@ -1982,14 +2155,14 @@ 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.014000||p
+PERL_MAGIC_glob|5.019002||p
PERL_MAGIC_isaelem|5.007002||p
PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.014000||p
+PERL_MAGIC_mutex|5.019002||p
PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
+PERL_MAGIC_overload_elem|5.019002||p
PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||p
+PERL_MAGIC_overload|5.019002||p
PERL_MAGIC_pos|5.007002||p
PERL_MAGIC_qr|5.007002||p
PERL_MAGIC_regdata|5.007002||p
@@ -2035,9 +2208,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_SYS_INIT3||5.010000|
+PERL_SYS_INIT||5.010000|
+PERL_SYS_TERM||5.019003|
PERL_UCHAR_MAX|5.004000||p
PERL_UCHAR_MIN|5.004000||p
PERL_UINT_MAX|5.004000||p
@@ -2059,11 +2232,15 @@ 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_bufend|5.019002||p
+PL_bufptr|5.019002||p
+PL_check||5.006000|
PL_compiling|5.004050||p
-PL_copline|5.014000||p
+PL_comppad_name||5.017004|
+PL_comppad||5.008001|
+PL_copline|5.019002||p
PL_curcop|5.004050||p
+PL_curpad||5.005000|
PL_curstash|5.004050||p
PL_debstash|5.004050||p
PL_defgv|5.004050||p
@@ -2071,18 +2248,18 @@ PL_diehook|5.004050||p
PL_dirty|5.004050||p
PL_dowarn|||pn
PL_errgv|5.004050||p
-PL_error_count|5.014000||p
-PL_expect|5.014000||p
+PL_error_count|5.019002||p
+PL_expect|5.019002||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_in_my_stash|5.019002||p
+PL_in_my|5.019002||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_lex_state|5.019002||p
+PL_lex_stuff|5.019002||p
+PL_linestr|5.019002||p
PL_modglobal||5.005000|n
PL_na|5.004050||pn
PL_no_modify|5.006000||p
@@ -2094,8 +2271,8 @@ PL_perl_destruct_level|5.004050||p
PL_perldb|5.004050||p
PL_ppaddr|5.006000||p
PL_rpeepp||5.013005|n
-PL_rsfp_filters|5.014000||p
-PL_rsfp|5.014000||p
+PL_rsfp_filters|5.019002||p
+PL_rsfp|5.019002||p
PL_rs|||n
PL_signals|5.008001||p
PL_stack_base|5.004050||p
@@ -2108,8 +2285,8 @@ PL_sv_undef|5.004050||pn
PL_sv_yes|5.004050||pn
PL_tainted|5.004050||p
PL_tainting|5.004050||p
-PL_tokenbuf|5.014000||p
-POP_MULTICALL||5.014000|
+PL_tokenbuf|5.019002||p
+POP_MULTICALL||5.019003|
POPi|||n
POPl|||n
POPn|||n
@@ -2124,7 +2301,7 @@ PTR2nat|5.009003||p
PTR2ul|5.007001||p
PTRV|5.006000||p
PUSHMARK|||
-PUSH_MULTICALL||5.014000|
+PUSH_MULTICALL||5.019003|
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
@@ -2132,6 +2309,25 @@ PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
+PadARRAY||5.019003|
+PadMAX||5.019003|
+PadlistARRAY||5.019003|
+PadlistMAX||5.019003|
+PadlistNAMESARRAY||5.019003|
+PadlistNAMESMAX||5.019003|
+PadlistNAMES||5.019003|
+PadlistREFCNT||5.017004|
+PadnameIsOUR|||
+PadnameIsSTATE|||
+PadnameLEN||5.019003|
+PadnameOURSTASH|||
+PadnameOUTER|||
+PadnamePV||5.019003|
+PadnameSV||5.019003|
+PadnameTYPE|||
+PadnameUTF8||5.019003|
+PadnamelistARRAY||5.019003|
+PadnamelistMAX||5.019003|
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
@@ -2160,6 +2356,7 @@ PoisonFree|5.009004||p
PoisonNew|5.009004||p
PoisonWith|5.009004||p
Poison|5.008000||p
+READ_XDIGIT||5.017006|
RETVAL|||n
Renewc|||
Renew|||
@@ -2189,16 +2386,26 @@ SV_UTF8_NO_ENCODING|5.008001||p
SVfARG|5.009005||p
SVf_UTF8|5.006000||p
SVf|5.006000||p
+SVt_INVLIST||5.019002|
SVt_IV|||
+SVt_NULL|||
SVt_NV|||
SVt_PVAV|||
SVt_PVCV|||
+SVt_PVFM|||
+SVt_PVGV|||
SVt_PVHV|||
+SVt_PVIO|||
+SVt_PVIV|||
+SVt_PVLV|||
SVt_PVMG|||
+SVt_PVNV|||
SVt_PV|||
+SVt_REGEXP||5.011000|
Safefree|||
Slab_Alloc|||
Slab_Free|||
+Slab_to_ro|||
Slab_to_rw|||
StructCopy|||
SvCUR_set|||
@@ -2269,7 +2476,7 @@ SvPV_nolen_const|5.009003||p
SvPV_nolen|5.006000||p
SvPV_nomg_const_nolen|5.009003||p
SvPV_nomg_const|5.009003||p
-SvPV_nomg_nolen||5.013007|
+SvPV_nomg_nolen|5.013007||p
SvPV_nomg|5.007002||p
SvPV_renew|5.009003||p
SvPV_set|||
@@ -2285,6 +2492,7 @@ SvPVutf8x||5.006000|
SvPVutf8||5.006000|
SvPVx|||
SvPV|||
+SvREFCNT_dec_NN||5.017007|
SvREFCNT_dec|||
SvREFCNT_inc_NN|5.009004||p
SvREFCNT_inc_simple_NN|5.009004||p
@@ -2315,6 +2523,7 @@ SvTAINTED_off||5.004000|
SvTAINTED_on||5.004000|
SvTAINTED||5.004000|
SvTAINT|||
+SvTHINKFIRST|||
SvTRUE_nomg||5.013006|
SvTRUE|||
SvTYPE|||
@@ -2343,7 +2552,7 @@ UVuf|5.006000||p
UVxf|5.006000||p
WARN_ALL|5.006000||p
WARN_AMBIGUOUS|5.006000||p
-WARN_ASSERTIONS|5.014000||p
+WARN_ASSERTIONS|5.019002||p
WARN_BAREWORD|5.006000||p
WARN_CLOSED|5.006000||p
WARN_CLOSURE|5.006000||p
@@ -2388,10 +2597,11 @@ WARN_UNPACK|5.006000||p
WARN_UNTIE|5.006000||p
WARN_UTF8|5.006000||p
WARN_VOID|5.006000||p
+WIDEST_UTYPE|5.015004||p
XCPT_CATCH|5.009002||p
-XCPT_RETHROW|5.009002||p
-XCPT_TRY_END|5.009002||p
-XCPT_TRY_START|5.009002||p
+XCPT_RETHROW|5.009002|5.007001|p
+XCPT_TRY_END|5.009002|5.004000|p
+XCPT_TRY_START|5.009002|5.004000|p
XPUSHi|||
XPUSHmortal|5.009002||p
XPUSHn|||
@@ -2416,41 +2626,79 @@ XST_mUNDEF|||
XST_mUV|5.008001||p
XST_mYES|||
XS_APIVERSION_BOOTCHECK||5.013004|
+XS_EXTERNAL||5.019003|
+XS_INTERNAL||5.019003|
XS_VERSION_BOOTCHECK|||
XS_VERSION|||
XSprePUSH|5.006000||p
XS|||
-XopDISABLE||5.014000|
-XopENABLE||5.014000|
-XopENTRY_set||5.014000|
-XopENTRY||5.014000|
+XopDISABLE||5.019003|
+XopENABLE||5.019003|
+XopENTRY_set||5.019003|
+XopENTRY||5.019003|
XopFLAGS||5.013007|
ZeroD|5.009002||p
Zero|||
_aMY_CXT|5.007003||p
+_add_range_to_invlist|||
_append_range_to_invlist|||
+_core_swash_init|||
+_get_swash_invlist|||
+_invlist_array_init|||
+_invlist_contains_cp|||
+_invlist_contents|||
+_invlist_dump|||
+_invlist_intersection_maybe_complement_2nd|||
+_invlist_intersection|||
+_invlist_invert_prop|||
+_invlist_invert|||
+_invlist_len|||
+_invlist_populate_swatch|||
+_invlist_search|||
+_invlist_subtract|||
+_invlist_union_maybe_complement_2nd|||
+_invlist_union|||
+_is_uni_FOO||5.017008|
+_is_uni_perl_idcont||5.017008|
+_is_uni_perl_idstart||5.017007|
+_is_utf8_FOO||5.017008|
+_is_utf8_mark||5.017008|
+_is_utf8_perl_idcont||5.017008|
+_is_utf8_perl_idstart||5.017007|
+_new_invlist_C_array|||
_new_invlist|||
_pMY_CXT|5.007003||p
_swash_inversion_hash|||
_swash_to_invlist|||
+_to_fold_latin1|||
+_to_uni_fold_flags||5.013011|
+_to_upper_title_latin1|||
+_to_utf8_fold_flags||5.015006|
+_to_utf8_lower_flags||5.015006|
+_to_utf8_title_flags||5.015006|
+_to_utf8_upper_flags||5.015006|
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
-aTHXR_|5.014000||p
-aTHXR|5.014000||p
+aTHXR_|5.019002||p
+aTHXR|5.019002||p
aTHX_|5.006000||p
aTHX|5.006000||p
-add_alternate|||
+aassign_common_vars|||
add_cp_to_invlist|||
add_data|||n
-add_range_to_invlist|||
add_utf16_textfilter|||
addmad|||
+adjust_size_and_find_bucket|||n
+adjust_stack_on_leave|||
+alloc_maybe_populate_EXACT|||
+alloccopstash|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_deref_call||5.013007|
amagic_i_ncmp|||
+amagic_is_enabled|||
amagic_ncmp|||
anonymise_cv_maybe|||
any_dup|||
@@ -2469,6 +2717,7 @@ av_create_and_push||5.009005|
av_create_and_unshift_one||5.009005|
av_delete||5.006000|
av_exists||5.006000|
+av_extend_guts|||
av_extend|||
av_fetch|||
av_fill|||
@@ -2480,10 +2729,13 @@ av_push|||
av_reify|||
av_shift|||
av_store|||
+av_tindex||5.017009|
+av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
-bad_type|||
+bad_type_gv|||
+bad_type_pv|||
bind_match|||
block_end|||
block_gimme||5.004000|
@@ -2510,12 +2762,13 @@ cast_i32||5.006000|
cast_iv||5.006000|
cast_ulong||5.006000|
cast_uv||5.006000|
+check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
-checkposixcc|||
ckWARN|5.006000||p
+ck_entersub_args_core|||
ck_entersub_args_list||5.013006|
ck_entersub_args_proto_or_list||5.013006|
ck_entersub_args_proto||5.013006|
@@ -2533,13 +2786,16 @@ clear_placeholders|||
clone_params_del|||n
clone_params_new|||n
closest_cop|||
+compute_EXACTish|||
convert|||
+cop_fetch_label||5.015001|
cop_free|||
cop_hints_2hv||5.013007|
cop_hints_fetch_pvn||5.013007|
cop_hints_fetch_pvs||5.013007|
cop_hints_fetch_pv||5.013007|
cop_hints_fetch_sv||5.013007|
+cop_store_label||5.015001|
cophh_2hv||5.013007|
cophh_copy||5.013007|
cophh_delete_pvn||5.013007|
@@ -2551,29 +2807,40 @@ 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_new_empty||5.019003|
cophh_store_pvn||5.013007|
cophh_store_pvs||5.013007|
cophh_store_pv||5.013007|
cophh_store_sv||5.013007|
+core_prototype|||
+core_regclass_swash|||
+coresub_op|||
+could_it_be_a_POSIX_class|||
cr_textfilter|||
create_eval_scope|||
-croak_no_modify||5.013003|
+croak_memory_wrap||5.019003|n
+croak_no_mem|||n
+croak_no_modify||5.013003|n
croak_nocontext|||vn
+croak_popstack|||n
croak_sv||5.013001|
-croak_xs_usage||5.010001|
+croak_xs_usage||5.010001|n
croak|||v
csighandler||5.009003|n
curmad|||
+current_re_engine|||
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_len_flags|||
+cv_clone_into|||
cv_clone|||
+cv_const_sv_or_av|||
cv_const_sv||5.004000|
cv_dump|||
+cv_forget_slab|||
cv_get_call_checker||5.013006|
cv_set_call_checker||5.013006|
cv_undef|||
@@ -2593,7 +2860,7 @@ dNOOP|5.006000||p
dORIGMARK|||
dSP|||
dTHR|5.004050||p
-dTHXR|5.014000||p
+dTHXR|5.019002||p
dTHXa|5.006000||p
dTHXoa|5.006000||p
dTHX|5.006000||p
@@ -2614,6 +2881,7 @@ debstackptrs||5.007003|
debstack||5.007003|
debug_start_match|||
deb||5.007003|v
+defelem_target|||
del_sv|||
delete_eval_scope|||
delimcpy||5.004000|n
@@ -2648,6 +2916,7 @@ do_join|||
do_magic_dump||5.006000|
do_msgrcv|||
do_msgsnd|||
+do_ncmp|||
do_oddball|||
do_op_dump||5.006000|
do_op_xmldump|||
@@ -2723,18 +2992,22 @@ expect_number|||
fbm_compile||5.005000|
fbm_instr||5.005000|
feature_is_enabled|||
-fetch_cop_label||5.011000|
filter_add|||
filter_del|||
filter_gets|||
filter_read|||
+finalize_optree|||
+finalize_op|||
find_and_forget_pmops|||
find_array_subscript|||
find_beginning|||
find_byclass|||
find_hash_subscript|||
find_in_my_stash|||
+find_lexical_cv|||
+find_runcv_where|||
find_runcv||5.008001|
+find_rundefsv2|||
find_rundefsvoffset||5.009002|
find_rundefsv||5.013002|
find_script|||
@@ -2747,6 +3020,7 @@ foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
+force_ident_maybe_lex|||
force_ident|||
force_list|||
force_next|||
@@ -2755,6 +3029,7 @@ force_version|||
force_word|||
forget_pmop|||
form_nocontext|||vn
+form_short_octal_warning|||
form||5.004000|v
fp_dup|||
fprintf_nocontext|||vn
@@ -2762,6 +3037,7 @@ free_global_struct|||
free_tied_hv_pool|||
free_tmps|||
gen_constant_list|||
+get_and_check_backslash_N_name|||
get_aux_mg|||
get_av|5.006000||p
get_context||5.006000|n
@@ -2772,6 +3048,9 @@ get_db_sub|||
get_debug_opts|||
get_hash_seed|||
get_hv|5.006000||p
+get_invlist_iter_addr|||
+get_invlist_offset_addr|||
+get_invlist_previous_index_addr|||
get_mstats|||
get_no_modify|||
get_num|||
@@ -2791,8 +3070,10 @@ gp_dup|||
gp_free|||
gp_ref|||
grok_bin|5.007003||p
+grok_bslash_N|||
grok_bslash_c|||
grok_bslash_o|||
+grok_bslash_x|||
grok_hex|5.007003||p
grok_number|5.007002||p
grok_numeric_radix|5.007002||p
@@ -2804,6 +3085,9 @@ gv_IOadd|||
gv_SVadd|||
gv_add_by_type||5.011000|
gv_autoload4||5.004000|
+gv_autoload_pvn||5.015004|
+gv_autoload_pv||5.015004|
+gv_autoload_sv||5.015004|
gv_check|||
gv_const_sv||5.009003|
gv_dump||5.006000|
@@ -2814,8 +3098,16 @@ gv_ename|||
gv_fetchfile_flags||5.009005|
gv_fetchfile|||
gv_fetchmeth_autoload||5.007003|
+gv_fetchmeth_pv_autoload||5.015004|
+gv_fetchmeth_pvn_autoload||5.015004|
+gv_fetchmeth_pvn||5.015004|
+gv_fetchmeth_pv||5.015004|
+gv_fetchmeth_sv_autoload||5.015004|
+gv_fetchmeth_sv||5.015004|
gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod_flags||5.011000|
+gv_fetchmethod_pv_flags||5.015004|
+gv_fetchmethod_pvn_flags||5.015004|
+gv_fetchmethod_sv_flags||5.015004|
gv_fetchmethod|||
gv_fetchmeth|||
gv_fetchpvn_flags|5.009002||p
@@ -2825,24 +3117,27 @@ 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_pvn||5.015004|
+gv_init_pv||5.015004|
+gv_init_svtype|||
+gv_init_sv||5.015004|
gv_init|||
gv_magicalize_isa|||
-gv_magicalize_overload|||
gv_name_set||5.009004|
gv_stashpvn|5.004000||p
gv_stashpvs|5.009003||p
gv_stashpv|||
gv_stashsv|||
gv_try_downgrade|||
+handle_regex_sets|||
he_dup|||
hek_dup|||
+hfree_next_entry|||
hfreeentries|||
hsplit|||
hv_assert|||
-hv_auxinit|||n
+hv_auxinit|||
hv_backreferences_p|||
hv_clear_placeholders||5.009001|
hv_clear|||
@@ -2863,6 +3158,7 @@ hv_fetch_ent||5.004000|
hv_fetchs|5.009003||p
hv_fetch|||
hv_fill||5.013002|
+hv_free_ent_ret|||
hv_free_ent||5.004000|
hv_iterinit|||
hv_iterkeysv||5.004000|
@@ -2878,8 +3174,9 @@ hv_magic|||
hv_name_set||5.009003|
hv_notallowed|||
hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
+hv_placeholders_p|||
hv_placeholders_set||5.009003|
+hv_rand_set||5.017011|
hv_riter_p||5.009003|
hv_riter_set||5.009003|
hv_scalar||5.009001|
@@ -2898,6 +3195,7 @@ incpush_use_sep|||
incpush|||
ingroup|||
init_argv_symbols|||
+init_constants|||
init_dbargs|||
init_debugger|||
init_global_struct|||
@@ -2911,32 +3209,42 @@ init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
+inplace_aassign|||
instr|||n
intro_my|||
intuit_method|||
intuit_more|||
invert|||
invlist_array|||
-invlist_destroy|||
+invlist_clone|||
invlist_extend|||
-invlist_intersection|||
-invlist_len|||
+invlist_highest|||
+invlist_is_iterating|||
+invlist_iterfinish|||
+invlist_iterinit|||
+invlist_iternext|||
invlist_max|||
-invlist_set_array|||
+invlist_previous_index|||
invlist_set_len|||
-invlist_set_max|||
+invlist_set_previous_index|||
invlist_trim|||
-invlist_union|||
invoke_exception_hook|||
io_close|||
isALNUMC|5.006000||p
+isALNUM_lazy|||
+isALPHANUMERIC||5.017008|
isALPHA|||
-isASCII|5.006000||p
+isASCII|5.006000|5.006000|p
isBLANK|5.006001||p
-isCNTRL|5.006000||p
+isCNTRL|5.006000|5.006000|p
isDIGIT|||
+isFOO_lc|||
+isFOO_utf8_lc|||
isGRAPH|5.006000||p
isGV_with_GP|5.009004||p
+isIDCONT||5.017008|
+isIDFIRST_lazy|||
+isIDFIRST|||
isLOWER|||
isOCTAL||5.013005|
isPRINT|5.004000||p
@@ -2948,17 +3256,20 @@ isWORDCHAR||5.013006|
isXDIGIT|5.006000||p
is_an_int|||
is_ascii_string||5.011000|n
-is_gv_magical_sv|||
+is_cur_LC_category_utf8|||
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.017007|
+is_uni_alnumc||5.017007|
is_uni_alnum||5.006000|
is_uni_alpha_lc||5.006000|
is_uni_alpha||5.006000|
is_uni_ascii_lc||5.006000|
is_uni_ascii||5.006000|
+is_uni_blank_lc||5.017002|
+is_uni_blank||5.017002|
is_uni_cntrl_lc||5.006000|
is_uni_cntrl||5.006000|
is_uni_digit_lc||5.006000|
@@ -2979,19 +3290,12 @@ is_uni_upper_lc||5.006000|
is_uni_upper||5.006000|
is_uni_xdigit_lc||5.006000|
is_uni_xdigit||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_alnumc||5.017007|
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
+is_utf8_blank||5.017002|
+is_utf8_char_buf||5.015008|n
is_utf8_char_slow|||n
is_utf8_char||5.006000|n
is_utf8_cntrl||5.006000|
@@ -3059,12 +3363,14 @@ mad_free|||
madlex|||
madparse|||
magic_clear_all_env|||
+magic_cleararylen_p|||
magic_clearenv|||
magic_clearhints|||
magic_clearhint|||
magic_clearisa|||
magic_clearpack|||
magic_clearsig|||
+magic_copycallchecker|||
magic_dump||5.006000|
magic_existspack|||
magic_freearylen_p|||
@@ -3081,7 +3387,6 @@ magic_getuvar|||
magic_getvec|||
magic_get|||
magic_killbackrefs|||
-magic_len|||
magic_methcall1|||
magic_methcall|||v
magic_methpack|||
@@ -3091,7 +3396,6 @@ magic_regdatum_get|||
magic_regdatum_set|||
magic_scalarpack|||
magic_set_all_env|||
-magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
@@ -3121,6 +3425,7 @@ malloced_size|||n
malloc||5.007002|n
markstack_grow|||
matcher_matches_sv|||
+mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
@@ -3137,6 +3442,7 @@ mfree||5.007002|n
mg_clear|||
mg_copy|||
mg_dup|||
+mg_find_mglob|||
mg_findext||5.013008|
mg_find|||
mg_free_type||5.013006|
@@ -3148,10 +3454,10 @@ mg_magical|||
mg_set|||
mg_size||5.005000|
mini_mktime||5.007002|
+minus_v|||
missingterm|||
mode_from_discipline|||
modkids|||
-mod|||
more_bodies|||
more_sv|||
moreswitches|||
@@ -3171,17 +3477,10 @@ 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|||
my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
my_bzero|||n
my_chsize|||
my_clearenv|||
@@ -3193,31 +3492,11 @@ my_exit|||
my_failure_exit||5.004000|
my_fflush_all||5.006000|
my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
my_lstat_flags|||
-my_lstat||5.014000|
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
+my_lstat||5.019003|
+my_memcmp|||n
+my_memset||5.004000|n
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
@@ -3226,12 +3505,10 @@ my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
-my_stat||5.014000|
+my_stat||5.019003|
my_strftime||5.007002|
my_strlcat|5.009004||pn
my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
my_unexec|||
my_vsnprintf||5.009004|n
need_utf8|||n
@@ -3240,11 +3517,13 @@ newANONHASH|||
newANONLIST|||
newANONSUB|||
newASSIGNOP|||
+newATTRSUB_flags|||
newATTRSUB||5.006000|
newAVREF|||
newAV|||
newBINOP|||
newCONDOP|||
+newCONSTSUB_flags||5.015006|
newCONSTSUB|5.004050||p
newCVREF|||
newDEFSVOP|||
@@ -3255,6 +3534,7 @@ newGIVWHENOP|||
newGP|||
newGVOP|||
newGVREF|||
+newGVgen_flags||5.015004|
newGVgen|||
newHVREF|||
newHVhv||5.005000|
@@ -3266,7 +3546,7 @@ newLOOPEX|||
newLOOPOP|||
newMADPROP|||
newMADsv|||
-newMYSUB|||
+newMYSUB||5.017004|
newNULLLIST|||
newOP|||
newPADOP|||
@@ -3279,6 +3559,7 @@ newRV_noinc|5.004000||p
newRV|||
newSLICEOP|||
newSTATEOP|||
+newSTUB|||
newSUB|||
newSVOP|||
newSVREF|||
@@ -3286,6 +3567,7 @@ newSV_type|5.009005||p
newSVhek||5.009003|
newSViv|||
newSVnv|||
+newSVpadname||5.017004|
newSVpv_share||5.013006|
newSVpvf_nocontext|||vn
newSVpvf||5.004000|v
@@ -3306,6 +3588,7 @@ newUNOP|||
newWHENOP||5.009003|
newWHILEOP||5.013007|
newXS_flags||5.009004|
+newXS_len_flags|||
newXSproto||5.006000|
newXS||5.006000|
new_collate||5.006000|
@@ -3325,6 +3608,7 @@ no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
+not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
@@ -3339,7 +3623,9 @@ op_dump||5.006000|
op_free|||
op_getmad_weak|||
op_getmad|||
+op_integerize|||
op_linklist||5.013006|
+op_lvalue_flags|||
op_lvalue||5.013007|
op_null||5.007002|
op_prepend_elem||5.013006|
@@ -3348,9 +3634,13 @@ op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_scope||5.013007|
+op_std_init|||
+op_unscope|||
op_xmldump|||
open_script|||
-opt_scalarhv|||
+opslab_force_free|||
+opslab_free_nopad|||
+opslab_free|||
pMY_CXT_|5.007003||p
pMY_CXT|5.007003||p
pTHX_|5.006000||p
@@ -3361,43 +3651,53 @@ pack_rec|||
package_version|||
package|||
packlist||5.008001|
-pad_add_anon|||
-pad_add_name_sv|||
-pad_add_name|||
+pad_add_anon||5.008001|
+pad_add_name_pvn||5.015001|
+pad_add_name_pvs||5.015001|
+pad_add_name_pv||5.015001|
+pad_add_name_sv||5.015001|
+pad_alloc_name|||
pad_alloc|||
pad_block_start|||
pad_check_dup|||
-pad_compname_type|||
+pad_compname_type||5.009003|
pad_findlex|||
-pad_findmy||5.011002|
+pad_findmy_pvn||5.015001|
+pad_findmy_pvs||5.015001|
+pad_findmy_pv||5.015001|
+pad_findmy_sv||5.015001|
pad_fixup_inner_anons|||
pad_free|||
pad_leavemy|||
-pad_new|||
+pad_new||5.008001|
pad_peg|||n
pad_push|||
pad_reset|||
pad_setsv|||
pad_sv|||
pad_swipe|||
-pad_tidy|||
+pad_tidy||5.008001|
padlist_dup|||
+padlist_store|||
parse_arithexpr||5.013008|
parse_barestmt||5.013007|
parse_block||5.013007|
parse_body|||
parse_fullexpr||5.013008|
parse_fullstmt||5.013005|
+parse_ident|||
parse_label||5.013007|
parse_listexpr||5.013008|
+parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
+parser_free_nexttoke_ops|||
parser_free|||
-path_is_absolute|||n
+path_is_searchable|||n
peep|||
-pending_Slabs_to_ro|||
+pending_ident|||
perl_alloc_using|||n
perl_alloc|||n
perl_clone_using|||n
@@ -3424,6 +3724,7 @@ prescan_version||5.011004|
printbuf|||
printf_nocontext|||vn
process_special_blocks|||
+ptr_hash|||n
ptr_table_clear||5.009005|
ptr_table_fetch||5.009005|
ptr_table_find|||n
@@ -3433,6 +3734,7 @@ ptr_table_split||5.009005|
ptr_table_store||5.009005|
push_scope|||
put_byte|||
+put_latin1_charclass_innards|||
pv_display|5.006000||p
pv_escape|5.009004||p
pv_pretty|5.009004||p
@@ -3442,14 +3744,15 @@ qsortsvu|||
re_compile||5.009005|
re_croak2|||
re_dup_guts|||
-re_intuit_start||5.009005|
+re_intuit_start||5.019001|
re_intuit_string||5.006000|
+re_op_compile|||
readpipe_override|||
realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
+reentrant_free||5.019003|
+reentrant_init||5.019003|
+reentrant_retry||5.019003|vn
+reentrant_size||5.019003|
ref_array_or_hash|||
refcounted_he_chain_2hv|||
refcounted_he_fetch_pvn|||
@@ -3465,7 +3768,7 @@ refcounted_he_new_sv|||
refcounted_he_value|||
refkids|||
refto|||
-ref||5.014000|
+ref||5.019003|
reg_check_named_buff_matched|||
reg_named_buff_all||5.009005|
reg_named_buff_exists||5.009005|
@@ -3475,7 +3778,6 @@ reg_named_buff_iter|||
reg_named_buff_nextkey||5.009005|
reg_named_buff_scalar||5.009005|
reg_named_buff|||
-reg_namedseq|||
reg_node|||
reg_numbered_buff_fetch|||
reg_numbered_buff_length|||
@@ -3494,6 +3796,7 @@ regcppop|||
regcppush|||
regcurly|||
regdump_extflags|||
+regdump_intflags|||
regdump||5.005000|
regdupe_internal|||
regexec_flags||5.005000|
@@ -3506,6 +3809,7 @@ reginitcolors||5.006000|
reginsert|||
regmatch|||
regnext||5.005000|
+regpatws|||n
regpiece|||
regpposixcc|||
regprop|||
@@ -3518,6 +3822,7 @@ regwhite|||n
reg|||
repeatcpy|||n
report_evil_fh|||
+report_redefined_cv|||
report_uninit|||
report_wrongway_fh|||
require_pv||5.006000|
@@ -3576,7 +3881,7 @@ save_iv||5.005000|
save_lines|||
save_list|||
save_long|||
-save_magic|||
+save_magic_flags|||
save_mortalizesv||5.007001|
save_nogv|||
save_op||5.005000|
@@ -3632,14 +3937,10 @@ screaminstr||5.005000|
search_const|||
seed||5.008001|
sequence_num|||
-sequence_tail|||
-sequence|||
set_context||5.006000|n
set_numeric_local||5.006000|
set_numeric_radix||5.006000|
set_numeric_standard||5.006000|
-set_regclass_bit_fold|||
-set_regclass_bit|||
setdefout|||
share_hek_flags|||
share_hek||5.004000|
@@ -3649,7 +3950,7 @@ simplify_sort|||
skipspace0|||
skipspace1|||
skipspace2|||
-skipspace|||
+skipspace_flags|||
softref2xv|||
sortcv_stacked|||
sortcv_xsub|||
@@ -3662,9 +3963,7 @@ stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
-stashpv_hvname_match||5.014000|
stdize_locale|||
-store_cop_label|||
strEQ|||
strGE|||
strGT|||
@@ -3738,14 +4037,21 @@ 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_copypv_flags||5.017002|
+sv_copypv_nomg||5.017002|
+sv_copypv|||
sv_dec_nomg||5.013002|
sv_dec|||
sv_del_backref|||
+sv_derived_from_pvn||5.015004|
+sv_derived_from_pv||5.015004|
+sv_derived_from_sv||5.015004|
sv_derived_from||5.004000|
sv_destroyable||5.010000|
+sv_display|||
+sv_does_pvn||5.015004|
+sv_does_pv||5.015004|
+sv_does_sv||5.015004|
sv_does||5.009004|
sv_dump|||
sv_dup_common|||
@@ -3771,11 +4077,14 @@ sv_isa|||
sv_isobject|||
sv_iv||5.005000|
sv_kill_backrefs|||
+sv_len_utf8_nomg|||
sv_len_utf8||5.006000|
sv_len|||
-sv_magic_portable|5.014000|5.004000|p
+sv_magic_portable|5.019003|5.004000|p
+sv_magicext_mglob|||
sv_magicext||5.007003|
sv_magic|||
+sv_mortalcopy_flags|||
sv_mortalcopy|||
sv_ncmp|||
sv_newmortal|||
@@ -3785,6 +4094,7 @@ sv_nosharing||5.007003|
sv_nounlocking|||
sv_nv||5.005000|
sv_peek||5.005000|
+sv_pos_b2u_flags||5.019003|
sv_pos_b2u_midway|||
sv_pos_b2u||5.006000|
sv_pos_u2b_cached|||
@@ -3805,11 +4115,14 @@ sv_pvutf8||5.006000|
sv_pv||5.006000|
sv_recode_to_utf8||5.007003|
sv_reftype|||
+sv_ref|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
+sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
+sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
@@ -3829,7 +4142,7 @@ sv_setpv|||
sv_setref_iv|||
sv_setref_nv|||
sv_setref_pvn|||
-sv_setref_pvs||5.013006|
+sv_setref_pvs||5.019003|
sv_setref_pv|||
sv_setref_uv||5.007001|
sv_setsv_cow|||
@@ -3862,6 +4175,7 @@ sv_utf8_upgrade_nomg||5.007002|
sv_utf8_upgrade||5.007001|
sv_uv|5.005000||p
sv_vcatpvf_mg|5.006000|5.004000|p
+sv_vcatpvfn_flags||5.017002|
sv_vcatpvfn||5.004000|
sv_vcatpvf|5.006000|5.004000|p
sv_vsetpvf_mg|5.006000|5.004000|p
@@ -3871,8 +4185,8 @@ sv_xmlpeek|||
svtype|||
swallow_bom|||
swash_fetch||5.007002|
-swash_get|||
swash_init||5.006000|
+swatch_get|||
sys_init3||5.010000|n
sys_init||5.010000|n
sys_intern_clear|||
@@ -3883,9 +4197,22 @@ taint_env|||
taint_proper|||
tied_method|||v
tmps_grow||5.006000|
+toFOLD_uni||5.007003|
+toFOLD_utf8||5.019001|
+toFOLD||5.019001|
+toLOWER_L1||5.019001|
+toLOWER_LC||5.004000|
+toLOWER_uni||5.007003|
+toLOWER_utf8||5.015007|
toLOWER|||
-toUPPER|||
+toTITLE_uni||5.007003|
+toTITLE_utf8||5.015007|
+toTITLE||5.019001|
+toUPPER_uni||5.007003|
+toUPPER_utf8||5.015007|
+toUPPER||5.004000|
to_byte_substr|||
+to_lower_latin1|||
to_uni_fold||5.007003|
to_uni_lower_lc||5.006000|
to_uni_lower||5.007003|
@@ -3894,18 +4221,21 @@ to_uni_title||5.007003|
to_uni_upper_lc||5.006000|
to_uni_upper||5.007003|
to_utf8_case||5.007003|
-to_utf8_fold||5.007003|
-to_utf8_lower||5.007003|
+to_utf8_fold||5.015007|
+to_utf8_lower||5.015007|
to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
+to_utf8_title||5.015007|
+to_utf8_upper||5.015007|
token_free|||
token_getmad|||
tokenize_use|||
tokeq|||
tokereport|||
-too_few_arguments|||
-too_many_arguments|||
+too_few_arguments_pv|||
+too_few_arguments_sv|||
+too_many_arguments_pv|||
+too_many_arguments_sv|||
+translate_substr_offsets|||
try_amagic_bin|||
try_amagic_un|||
uiv_2buf|||n
@@ -3930,7 +4260,9 @@ utf8_length||5.007001|
utf8_mg_len_cache_update|||
utf8_mg_pos_cache_update|||
utf8_to_bytes||5.006001|
+utf8_to_uvchr_buf||5.015009|
utf8_to_uvchr||5.007001|
+utf8_to_uvuni_buf||5.015009|
utf8_to_uvuni||5.007001|
utf8n_to_uvchr|||
utf8n_to_uvuni||5.007001|
@@ -3939,6 +4271,9 @@ uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
+valid_utf8_to_uvchr|||
+valid_utf8_to_uvuni||5.015009|
+validate_proto|||
validate_suid|||
varname|||
vcmp||5.009000|
@@ -3963,10 +4298,15 @@ warn_sv||5.013001|
warner_nocontext|||vn
warner|5.006000|5.004000|pv
warn|||v
+was_lvalue_sub|||
watch|||
+whichsig_pvn||5.015004|
+whichsig_pv||5.015004|
+whichsig_sv||5.015004|
whichsig|||
+win32_croak_not_implemented|||n
with_queued_errors|||
-write_no_mem|||
+wrap_op_checker||5.015008|
write_to_stderr|||
xmldump_all_perl|||
xmldump_all|||
@@ -3981,6 +4321,8 @@ xmldump_sub|||
xmldump_vindent|||
xs_apiversion_bootcheck|||
xs_version_bootcheck|||
+yyerror_pvn|||
+yyerror_pv|||
yyerror|||
yylex|||
yyparse|||
@@ -5088,6 +5430,10 @@ __DATA__
# define IVSIZE 8
#endif
+#ifndef LONGSIZE
+# define LONGSIZE 8
+#endif
+
#ifndef PERL_QUAD_MIN
# define PERL_QUAD_MIN IV_MIN
#endif
@@ -5109,6 +5455,10 @@ __DATA__
# define IVTYPE long
#endif
+#ifndef LONGSIZE
+# define LONGSIZE 4
+#endif
+
#ifndef IV_MIN
# define IV_MIN PERL_LONG_MIN
#endif
@@ -5390,15 +5740,15 @@ typedef NVTYPE NV;
#undef STMT_START
#undef STMT_END
#ifdef PERL_USE_GCC_BRACE_GROUPS
-# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */
-# define STMT_END )
+# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */
+# define STMT_END )
#else
# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__)
-# define STMT_START if (1)
-# define STMT_END else (void)0
+# define STMT_START if (1)
+# define STMT_END else (void)0
# else
-# define STMT_START do
-# define STMT_END while (0)
+# define STMT_START do
+# define STMT_END while (0)
# endif
#endif
#ifndef boolSV
@@ -5511,13 +5861,13 @@ typedef NVTYPE NV;
#endif
#ifndef PERL_HASH
# define PERL_HASH(hash,str,len) \
- STMT_START { \
- const char *s_PeRlHaSh = str; \
- I32 i_PeRlHaSh = len; \
- U32 hash_PeRlHaSh = 0; \
- while (i_PeRlHaSh--) \
- hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
- (hash) = hash_PeRlHaSh; \
+ STMT_START { \
+ const char *s_PeRlHaSh = str; \
+ I32 i_PeRlHaSh = len; \
+ U32 hash_PeRlHaSh = 0; \
+ while (i_PeRlHaSh--) \
+ hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
+ (hash) = hash_PeRlHaSh; \
} STMT_END
#endif
@@ -5589,16 +5939,22 @@ typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
*/
# undef isPRINT
# endif
+
+#ifdef HAS_QUAD
+# define WIDEST_UTYPE U64TYPE
+#else
+# define WIDEST_UTYPE U32
+#endif
#ifndef isALNUMC
# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
#endif
#ifndef isASCII
-# define isASCII(c) ((U8) (c) <= 127)
+# define isASCII(c) ((WIDEST_UTYPE) (c) <= 127)
#endif
#ifndef isCNTRL
-# define isCNTRL(c) ((U8) (c) < ' ' || (c) == 127)
+# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127)
#endif
#ifndef isGRAPH
@@ -5852,16 +6208,16 @@ extern yy_parser DPPP_(dummy_PL_parser);
#endif
#ifndef G_METHOD
-# define G_METHOD 64
+# 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))
+ (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))
+ (flags) & ~G_METHOD) : Perl_call_sv(aTHX_ sv, flags))
# endif
#endif
@@ -5898,7 +6254,7 @@ DPPP_(my_eval_pv)(char *p, I32 croak_on_error)
PUTBACK;
if (croak_on_error && SvTRUE(GvSV(errgv)))
- croak(SvPVx(GvSV(errgv), na));
+ croak(SvPVx(GvSV(errgv), na));
return sv;
}
@@ -5938,40 +6294,40 @@ DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args)
SvREADONLY_off(((SVOP*)modname)->op_sv);
modname->op_private |= OPpCONST_BARE;
if (ver) {
- veop = newSVOP(OP_CONST, 0, ver);
+ veop = newSVOP(OP_CONST, 0, ver);
}
else
- veop = NULL;
+ veop = NULL;
if (flags & PERL_LOADMOD_NOIMPORT) {
- imop = sawparens(newNULLLIST());
+ imop = sawparens(newNULLLIST());
}
else if (flags & PERL_LOADMOD_IMPORT_OPS) {
- imop = va_arg(*args, OP*);
+ imop = va_arg(*args, OP*);
}
else {
- SV *sv;
- imop = NULL;
- sv = va_arg(*args, SV*);
- while (sv) {
- imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
- sv = va_arg(*args, SV*);
- }
+ SV *sv;
+ imop = NULL;
+ sv = va_arg(*args, SV*);
+ while (sv) {
+ imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
+ sv = va_arg(*args, SV*);
+ }
}
{
- const line_t ocopline = PL_copline;
- COP * const ocurcop = PL_curcop;
- const int oexpect = PL_expect;
+ const line_t ocopline = PL_copline;
+ COP * const ocurcop = PL_curcop;
+ const int oexpect = PL_expect;
#if (PERL_BCDVERSION >= 0x5004000)
- utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
- veop, modname, imop);
+ utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
+ veop, modname, imop);
#else
- utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
- modname, imop);
+ utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
+ modname, imop);
#endif
- PL_expect = oexpect;
- PL_copline = ocopline;
- PL_curcop = ocurcop;
+ PL_expect = oexpect;
+ PL_copline = ocopline;
+ PL_curcop = ocurcop;
}
}
@@ -6063,35 +6419,35 @@ extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
void
DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
{
- U32 oldhints = PL_hints;
- HV *old_cop_stash = PL_curcop->cop_stash;
- HV *old_curstash = PL_curstash;
- line_t oldline = PL_curcop->cop_line;
- PL_curcop->cop_line = D_PPP_PL_copline;
+ U32 oldhints = PL_hints;
+ HV *old_cop_stash = PL_curcop->cop_stash;
+ HV *old_curstash = PL_curstash;
+ line_t oldline = PL_curcop->cop_line;
+ PL_curcop->cop_line = D_PPP_PL_copline;
- PL_hints &= ~HINT_BLOCK_SCOPE;
- if (stash)
- PL_curstash = PL_curcop->cop_stash = stash;
+ PL_hints &= ~HINT_BLOCK_SCOPE;
+ if (stash)
+ PL_curstash = PL_curcop->cop_stash = stash;
- newSUB(
+ newSUB(
#if (PERL_BCDVERSION < 0x5003022)
- start_subparse(),
+ start_subparse(),
#elif (PERL_BCDVERSION == 0x5003022)
- start_subparse(0),
+ start_subparse(0),
#else /* 5.003_23 onwards */
- start_subparse(FALSE, 0),
+ start_subparse(FALSE, 0),
#endif
- newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
- newSVOP(OP_CONST, 0, &PL_sv_no), /* SvPV(&PL_sv_no) == "" -- GMB */
- newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
- );
+ newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
+ newSVOP(OP_CONST, 0, &PL_sv_no), /* SvPV(&PL_sv_no) == "" -- GMB */
+ newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
+ );
- PL_hints = oldhints;
- PL_curcop->cop_stash = old_cop_stash;
- PL_curstash = old_curstash;
- PL_curcop->cop_line = oldline;
+ PL_hints = oldhints;
+ PL_curcop->cop_stash = old_cop_stash;
+ PL_curstash = old_curstash;
+ PL_curcop->cop_line = oldline;
}
#endif
#endif
@@ -6128,64 +6484,64 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#if (PERL_BCDVERSION < 0x5004068)
/* Fetches the SV that keeps the per-interpreter data. */
#define dMY_CXT_SV \
- SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
+ SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
#else /* >= perl5.004_68 */
#define dMY_CXT_SV \
- SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
- sizeof(MY_CXT_KEY)-1, TRUE)
+ SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
+ sizeof(MY_CXT_KEY)-1, TRUE)
#endif /* < perl5.004_68 */
/* This declaration should be used within all functions that use the
* interpreter-local data. */
-#define dMY_CXT \
- dMY_CXT_SV; \
- my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
+#define dMY_CXT \
+ dMY_CXT_SV; \
+ my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
/* Creates and zeroes the per-interpreter data.
* (We allocate my_cxtp in a Perl SV so that it will be released when
* the interpreter goes away.) */
#define MY_CXT_INIT \
- dMY_CXT_SV; \
- /* newSV() allocates one more than needed */ \
- my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
- Zero(my_cxtp, 1, my_cxt_t); \
- sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+ dMY_CXT_SV; \
+ /* newSV() allocates one more than needed */ \
+ my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+ Zero(my_cxtp, 1, my_cxt_t); \
+ sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
/* This macro must be used to access members of the my_cxt_t structure.
* e.g. MYCXT.some_data */
-#define MY_CXT (*my_cxtp)
+#define MY_CXT (*my_cxtp)
/* Judicious use of these macros can reduce the number of times dMY_CXT
* is used. Use is similar to pTHX, aTHX etc. */
-#define pMY_CXT my_cxt_t *my_cxtp
-#define pMY_CXT_ pMY_CXT,
-#define _pMY_CXT ,pMY_CXT
-#define aMY_CXT my_cxtp
-#define aMY_CXT_ aMY_CXT,
-#define _aMY_CXT ,aMY_CXT
+#define pMY_CXT my_cxt_t *my_cxtp
+#define pMY_CXT_ pMY_CXT,
+#define _pMY_CXT ,pMY_CXT
+#define aMY_CXT my_cxtp
+#define aMY_CXT_ aMY_CXT,
+#define _aMY_CXT ,aMY_CXT
#endif /* START_MY_CXT */
#ifndef MY_CXT_CLONE
/* Clones the per-interpreter data. */
#define MY_CXT_CLONE \
- dMY_CXT_SV; \
- my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
- Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
- sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+ dMY_CXT_SV; \
+ my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+ Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
+ sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
#endif
#else /* single interpreter */
#ifndef START_MY_CXT
-#define START_MY_CXT static my_cxt_t my_cxt;
-#define dMY_CXT_SV dNOOP
-#define dMY_CXT dNOOP
-#define MY_CXT_INIT NOOP
-#define MY_CXT my_cxt
+#define START_MY_CXT static my_cxt_t my_cxt;
+#define dMY_CXT_SV dNOOP
+#define dMY_CXT dNOOP
+#define MY_CXT_INIT NOOP
+#define MY_CXT my_cxt
-#define pMY_CXT void
+#define pMY_CXT void
#define pMY_CXT_
#define _pMY_CXT
#define aMY_CXT
@@ -6195,26 +6551,26 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#endif /* START_MY_CXT */
#ifndef MY_CXT_CLONE
-#define MY_CXT_CLONE NOOP
+#define MY_CXT_CLONE NOOP
#endif
#endif
#ifndef IVdf
# if IVSIZE == LONGSIZE
-# define IVdf "ld"
-# define UVuf "lu"
-# define UVof "lo"
-# define UVxf "lx"
-# define UVXf "lX"
+# define IVdf "ld"
+# define UVuf "lu"
+# define UVof "lo"
+# define UVxf "lx"
+# define UVXf "lX"
+# elif IVSIZE == INTSIZE
+# define IVdf "d"
+# define UVuf "u"
+# define UVof "o"
+# define UVxf "x"
+# define UVXf "X"
# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
+# error "cannot define IV/UV formats"
# endif
#endif
@@ -6234,26 +6590,26 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#ifndef SvREFCNT_inc
# ifdef PERL_USE_GCC_BRACE_GROUPS
-# define SvREFCNT_inc(sv) \
- ({ \
- SV * const _sv = (SV*)(sv); \
- if (_sv) \
- (SvREFCNT(_sv))++; \
- _sv; \
+# define SvREFCNT_inc(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ if (_sv) \
+ (SvREFCNT(_sv))++; \
+ _sv; \
})
# else
-# define SvREFCNT_inc(sv) \
+# define SvREFCNT_inc(sv) \
((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
# endif
#endif
#ifndef SvREFCNT_inc_simple
# ifdef PERL_USE_GCC_BRACE_GROUPS
-# define SvREFCNT_inc_simple(sv) \
- ({ \
- if (sv) \
- (SvREFCNT(sv))++; \
- (SV *)(sv); \
+# define SvREFCNT_inc_simple(sv) \
+ ({ \
+ if (sv) \
+ (SvREFCNT(sv))++; \
+ (SV *)(sv); \
})
# else
# define SvREFCNT_inc_simple(sv) \
@@ -6263,11 +6619,11 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#ifndef SvREFCNT_inc_NN
# ifdef PERL_USE_GCC_BRACE_GROUPS
-# define SvREFCNT_inc_NN(sv) \
- ({ \
- SV * const _sv = (SV*)(sv); \
- SvREFCNT(_sv)++; \
- _sv; \
+# define SvREFCNT_inc_NN(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ SvREFCNT(_sv)++; \
+ _sv; \
})
# else
# define SvREFCNT_inc_NN(sv) \
@@ -6277,11 +6633,11 @@ DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
#ifndef SvREFCNT_inc_void
# ifdef PERL_USE_GCC_BRACE_GROUPS
-# define SvREFCNT_inc_void(sv) \
- ({ \
- SV * const _sv = (SV*)(sv); \
- if (_sv) \
- (void)(SvREFCNT(_sv)++); \
+# define SvREFCNT_inc_void(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ if (_sv) \
+ (void)(SvREFCNT(_sv)++); \
})
# else
# define SvREFCNT_inc_void(sv) \
@@ -6641,6 +6997,11 @@ 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_nomg_nolen
+# define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, 0))
+#endif
#ifndef SvPV_renew
# define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \
SvPV_set((sv), (char *) saferealloc( \
@@ -7584,8 +7945,8 @@ DPPP_(my_warner)(U32 err, const char *pat, ...)
#ifndef CopSTASH_eq
# define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
- || (CopSTASHPV(c) && HvNAME(hv) \
- && strEQ(CopSTASHPV(c), HvNAME(hv)))))
+ || (CopSTASHPV(c) && HvNAME(hv) \
+ && strEQ(CopSTASHPV(c), HvNAME(hv)))))
#endif
#else
@@ -7809,7 +8170,7 @@ DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
digit = *s - '0';
if (digit >= 0 && digit <= 9) {
value = value * 10 + digit;
- if (++s < send) {
+ if (++s < send) {
digit = *s - '0';
if (digit >= 0 && digit <= 9) {
value = value * 10 + digit;
@@ -7857,7 +8218,7 @@ DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
}
}
}
- }
+ }
}
}
}
@@ -7869,7 +8230,7 @@ DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
}
}
}
- }
+ }
}
}
numtype |= IS_NUMBER_IN_UV;
@@ -8022,22 +8383,22 @@ DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
value_nv = (NV) value;
}
value_nv *= 2.0;
- /* If an NV has not enough bits in its mantissa to
- * represent a UV this summing of small low-order numbers
- * is a waste of time (because the NV cannot preserve
- * the low-order bits anyway): we could just remember when
- * did we overflow and in the end just multiply value_nv by the
- * right amount. */
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount. */
value_nv += (NV)(bit - '0');
continue;
}
if (bit == '_' && len && allow_underscores && (bit = s[1])
&& (bit == '0' || bit == '1'))
- {
- --len;
- ++s;
+ {
+ --len;
+ ++s;
goto redo;
- }
+ }
if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
warn("Illegal binary digit '%c' ignored", *s);
break;
@@ -8045,10 +8406,10 @@ DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
- || (!overflowed && value > 0xffffffff )
+ || (!overflowed && value > 0xffffffff )
#endif
- ) {
- warn("Binary number > 0b11111111111111111111111111111111 non-portable");
+ ) {
+ warn("Binary number > 0b11111111111111111111111111111111 non-portable");
}
*len_p = s - start;
if (!overflowed) {
@@ -8108,7 +8469,7 @@ DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
}
for (; len-- && *s; s++) {
- xdigit = strchr((char *) PL_hexdigit, *s);
+ xdigit = strchr((char *) PL_hexdigit, *s);
if (xdigit) {
/* Write it in this wonky order with a goto to attempt to get the
compiler to make the common case integer-only loop pretty tight.
@@ -8124,22 +8485,22 @@ DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
value_nv = (NV) value;
}
value_nv *= 16.0;
- /* If an NV has not enough bits in its mantissa to
- * represent a UV this summing of small low-order numbers
- * is a waste of time (because the NV cannot preserve
- * the low-order bits anyway): we could just remember when
- * did we overflow and in the end just multiply value_nv by the
- * right amount of 16-tuples. */
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount of 16-tuples. */
value_nv += (NV)((xdigit - PL_hexdigit) & 15);
continue;
}
if (*s == '_' && len && allow_underscores && s[1]
- && (xdigit = strchr((char *) PL_hexdigit, s[1])))
- {
- --len;
- ++s;
+ && (xdigit = strchr((char *) PL_hexdigit, s[1])))
+ {
+ --len;
+ ++s;
goto redo;
- }
+ }
if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
warn("Illegal hexadecimal digit '%c' ignored", *s);
break;
@@ -8147,10 +8508,10 @@ DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
- || (!overflowed && value > 0xffffffff )
+ || (!overflowed && value > 0xffffffff )
#endif
- ) {
- warn("Hexadecimal number > 0xffffffff non-portable");
+ ) {
+ warn("Hexadecimal number > 0xffffffff non-portable");
}
*len_p = s - start;
if (!overflowed) {
@@ -8212,22 +8573,22 @@ DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
value_nv = (NV) value;
}
value_nv *= 8.0;
- /* If an NV has not enough bits in its mantissa to
- * represent a UV this summing of small low-order numbers
- * is a waste of time (because the NV cannot preserve
- * the low-order bits anyway): we could just remember when
- * did we overflow and in the end just multiply value_nv by the
- * right amount of 8-tuples. */
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount of 8-tuples. */
value_nv += (NV)digit;
continue;
}
if (digit == ('_' - '0') && len && allow_underscores
&& (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
- {
- --len;
- ++s;
+ {
+ --len;
+ ++s;
goto redo;
- }
+ }
/* Allow \octal to work the DWIM way (that is, stop scanning
* as soon as non-octal characters are seen, complain only iff
* someone seems to want to use the digits eight and nine). */
@@ -8240,10 +8601,10 @@ DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *resul
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
- || (!overflowed && value > 0xffffffff )
+ || (!overflowed && value > 0xffffffff )
#endif
- ) {
- warn("Octal number > 037777777777 non-portable");
+ ) {
+ warn("Octal number > 037777777777 non-portable");
}
*len_p = s - start;
if (!overflowed) {
@@ -8285,7 +8646,7 @@ DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
#endif
va_end(ap);
if (retval < 0 || (len > 0 && (Size_t)retval >= len))
- Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
+ Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
return retval;
}
@@ -8489,7 +8850,7 @@ DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
octbuf[0] = esc;
if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
- sv_setpvs(dsv, "");
+ 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))
@@ -8499,9 +8860,9 @@ DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
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) :
+ isuni ? utf8_to_uvchr((U8*)pv, &readsize) :
#endif
- (U8)*pv;
+ (U8)*pv;
const U8 c = (U8)u & 0xFF;
if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
@@ -8515,43 +8876,43 @@ DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
chsize = 1;
} else {
if (c == dq || c == esc || !isPRINT(c)) {
- chsize = 2;
+ 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 '\\' : /* 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);
+ 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;
+ }
+ 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);
+ } else {
+ char tmp[2];
+ my_snprintf(tmp, sizeof tmp, "%c", c);
sv_catpvn(dsv, tmp, 1);
- wrote++;
- }
+ wrote++;
+ }
if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
break;
}
@@ -8588,7 +8949,7 @@ DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
STRLEN escaped;
if (!(flags & PERL_PV_PRETTY_NOCLEAR))
- sv_setpvs(dsv, "");
+ sv_setpvs(dsv, "");
if (dq == '"')
sv_catpvs(dsv, "\"");
@@ -8604,12 +8965,12 @@ DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
if (dq == '"')
- sv_catpvs(dsv, "\"");
+ sv_catpvs(dsv, "\"");
else if (flags & PERL_PV_PRETTY_LTGT)
sv_catpvs(dsv, ">");
if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
- sv_catpvs(dsv, "...");
+ sv_catpvs(dsv, "...");
return SvPVX(dsv);
}
@@ -8638,7 +8999,7 @@ DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRL
{
pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP);
if (len > cur && pv[cur] == '\0')
- sv_catpvs(dsv, "\\0");
+ sv_catpvs(dsv, "\\0");
return SvPVX(dsv);
}
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-01 13:48:09 +0000