From 34a8597760ab5740abd49b6d8be10e1876f5ce98 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 8 Mar 2018 00:16:42 +0000 Subject: (tl)perl 5.26.1 from siep git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Devel/PPPort.pm | 441 ++++++++++++++++++++------- Master/tlpkg/tlperl/lib/Devel/Peek.pm | 10 +- Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm | 4 +- 3 files changed, 331 insertions(+), 124 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/Devel') diff --git a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm index 47d69fd906d..eef8f56f802 100644 --- a/Master/tlpkg/tlperl/lib/Devel/PPPort.pm +++ b/Master/tlpkg/tlperl/lib/Devel/PPPort.pm @@ -128,11 +128,14 @@ in older Perl releases: aTHXR_ AvFILLp boolSV + C_ARRAY_END + C_ARRAY_LENGTH call_argv call_method call_pv call_sv caller_cx + cBOOL ckWARN CopFILE CopFILE_set @@ -172,7 +175,6 @@ in older Perl releases: G_METHOD get_av get_cv - get_cvn_flags get_cvs get_hv get_sv @@ -184,10 +186,8 @@ in older Perl releases: grok_oct gv_fetchpvn_flags gv_fetchpvs - gv_fetchsv gv_stashpvn gv_stashpvs - GvSVn HEf_SVKEY HeUTF8 hv_fetchs @@ -210,7 +210,6 @@ in older Perl releases: isBLANK isCNTRL isGRAPH - isGV_with_GP isPRINT isPSXSPC isPUNCT @@ -265,6 +264,11 @@ in older Perl releases: NVff NVgf NVTYPE + OpHAS_SIBLING + OpLASTSIB_set + OpMAYBESIB_set + OpMORESIB_set + OpSIBLING packWARN PERL_ABS PERL_BCDVERSION @@ -347,6 +351,7 @@ in older Perl releases: PERL_UNUSED_ARG PERL_UNUSED_CONTEXT PERL_UNUSED_DECL + PERL_UNUSED_RESULT PERL_UNUSED_VAR PERL_UQUAD_MAX PERL_UQUAD_MIN @@ -513,6 +518,8 @@ in older Perl releases: SvREFCNT_inc_void SvREFCNT_inc_void_NN SvRV_set + SvRX + SvRXOK SvSHARED_HASH SvSTASH_set SvUOK @@ -606,7 +613,7 @@ Perl below which it is unsupported: =over 4 -=item perl 5.21.8 +=item perl 5.24.0 BhkDISABLE BhkENABLE @@ -631,6 +638,9 @@ Perl below which it is unsupported: PadnamelistMAX PadnamelistREFCNT PadnamelistREFCNT_dec + RESTORE_LC_NUMERIC + STORE_LC_NUMERIC_FORCE_TO_UNDERLYING + STORE_LC_NUMERIC_SET_TO_NEEDED XS_APIVERSION_BOOTCHECK XS_EXTERNAL XS_INTERNAL @@ -648,14 +658,53 @@ Perl below which it is unsupported: reentrant_retry reentrant_size ref - sv_get_backrefs sv_setref_pvs +=item perl 5.23.9 + + toFOLD_uvchr + toLOWER_uvchr + toTITLE_uvchr + toUPPER_uvchr + +=item perl 5.23.8 + + clear_defarray + cx_popblock + cx_popeval + cx_popformat + cx_popgiven + cx_poploop + cx_popsub + cx_popsub_args + cx_popsub_common + cx_popwhen + cx_pushblock + cx_pusheval + cx_pushformat + cx_pushgiven + cx_pushloop_for + cx_pushloop_plain + cx_pushsub + cx_pushwhen + cx_topblock + leave_adjust_stacks + savetmps + +=item perl 5.22.0 + + UVCHR_SKIP + +=item perl 5.21.10 + + DECLARATION_FOR_LC_NUMERIC_MANIPULATION + +=item perl 5.21.8 + + sv_get_backrefs + =item perl 5.21.7 - OpHAS_SIBLING - OpSIBLING - OpSIBLING_set PadnameUTF8 is_invariant_string newPADNAMELIST @@ -686,7 +735,6 @@ Perl below which it is unsupported: =item perl 5.21.2 grok_number_flags - op_parent op_sibling_splice =item perl 5.21.1 @@ -834,7 +882,6 @@ Perl below which it is unsupported: gv_fetchmethod_pvn_flags gv_fetchmethod_sv_flags gv_init_pv - gv_init_pvn gv_init_sv newGVgen_flags sv_derived_from_pv @@ -843,6 +890,7 @@ Perl below which it is unsupported: sv_does_pv sv_does_pvn sv_does_sv + sv_ref whichsig_pv whichsig_pvn whichsig_sv @@ -1054,8 +1102,6 @@ Perl below which it is unsupported: =item perl 5.9.5 Perl_signbit - SvRX - SvRXOK av_create_and_push av_create_and_unshift_one gv_fetchfile_flags @@ -1228,10 +1274,6 @@ Perl below which it is unsupported: 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 @@ -1301,8 +1343,10 @@ Perl below which it is unsupported: =item perl 5.6.0 + DO_UTF8 PERL_SYS_INIT3 PL_check + POPul SvIOK_UV SvIOK_notUV SvIOK_only_UV @@ -1319,6 +1363,7 @@ Perl below which it is unsupported: SvUTF8 SvUTF8_off SvUTF8_on + UTF8SKIP av_delete av_exists call_atexit @@ -1491,6 +1536,7 @@ Perl below which it is unsupported: CopyD MoveD do_binmode + my_bcopy save_aelem save_helem @@ -1500,6 +1546,7 @@ Perl below which it is unsupported: G_VOID HePV HeSVKEY_set + POPu SvSetMagicSV SvSetMagicSV_nosteal SvSetSV_nosteal @@ -1621,7 +1668,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = '3.32'; +$VERSION = '3.35'; sub _init_data { @@ -1877,6 +1924,7 @@ SKIP |> ----------------------------------------------------------------------------------------- |> PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL |> PL_signals NEED_PL_signals NEED_PL_signals_GLOBAL +|> SvRX() NEED_SvRX NEED_SvRX_GLOBAL |> caller_cx() NEED_caller_cx NEED_caller_cx_GLOBAL |> eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL |> grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL @@ -1884,6 +1932,7 @@ SKIP |> grok_number() NEED_grok_number NEED_grok_number_GLOBAL |> grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_radix_GLOBAL |> grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL +|> gv_fetchpvn_flags() NEED_gv_fetchpvn_flags NEED_gv_fetchpvn_flags_GLOBAL |> load_module() NEED_load_module NEED_load_module_GLOBAL |> mg_findext() NEED_mg_findext NEED_mg_findext_GLOBAL |> my_snprintf() NEED_my_snprintf NEED_my_snprintf_GLOBAL @@ -2109,9 +2158,9 @@ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/ ASCII_TO_NEED||5.007001|n AvFILLp|5.004050||p AvFILL||| -BhkDISABLE||5.021008| -BhkENABLE||5.021008| -BhkENTRY_set||5.021008| +BhkDISABLE||5.024000| +BhkENABLE||5.024000| +BhkENTRY_set||5.024000| BhkENTRY||| BhkFLAGS||| CALL_BLOCK_HOOKS||| @@ -2119,6 +2168,8 @@ CLASS|||n CPERLscope|5.005000||p CX_CURPAD_SAVE||| CX_CURPAD_SV||| +C_ARRAY_END|5.013002||p +C_ARRAY_LENGTH|5.008001||p CopFILEAV|5.006000||p CopFILEGV_set|5.006000||p CopFILEGV|5.006000||p @@ -2135,8 +2186,10 @@ Copy||| CvPADLIST||5.008001| CvSTASH||| CvWEAKOUTSIDE||| +DECLARATION_FOR_LC_NUMERIC_MANIPULATION||5.021010|n DEFSV_set|5.010001||p DEFSV|5.004050||p +DO_UTF8||5.006000| END_EXTERN_C|5.005000||p ENTER||| ERRSV|5.004050||p @@ -2158,7 +2211,6 @@ GetVars||| GvAV||| GvCV||| GvHV||| -GvSVn|5.009003||p GvSV||| Gv_AMupdate||5.011000| HEf_SVKEY|5.003070||p @@ -2197,7 +2249,7 @@ LEAVE||| LINKLIST||5.013006| LVRET||| MARK||| -MULTICALL||5.021008| +MULTICALL||5.024000| MUTABLE_PTR|5.010001||p MUTABLE_SV|5.010001||p MY_CXT_CLONE|5.009002||p @@ -2226,9 +2278,11 @@ OP_NAME||5.007003| OP_TYPE_IS_OR_WAS||5.019010| OP_TYPE_IS||5.019007| ORIGMARK||| -OpHAS_SIBLING||5.021007| -OpSIBLING_set||5.021007| -OpSIBLING||5.021007| +OpHAS_SIBLING|5.021007||p +OpLASTSIB_set|5.021011||p +OpMAYBESIB_set|5.021011||p +OpMORESIB_set|5.021011||p +OpSIBLING|5.021007||p PAD_BASE_SV||| PAD_CLONE_VARS||| PAD_COMPNAME_FLAGS||| @@ -2248,7 +2302,7 @@ PAD_SV||| PERLIO_FUNCS_CAST|5.009003||p PERLIO_FUNCS_DECL|5.009003||p PERL_ABS|5.008001||p -PERL_BCDVERSION|5.021008||p +PERL_BCDVERSION|5.024000||p PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p PERL_HASH|5.003070||p PERL_INT_MAX|5.003070||p @@ -2266,14 +2320,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.021008||p +PERL_MAGIC_glob|5.024000||p PERL_MAGIC_isaelem|5.007002||p PERL_MAGIC_isa|5.007002||p -PERL_MAGIC_mutex|5.021008||p +PERL_MAGIC_mutex|5.024000||p PERL_MAGIC_nkeys|5.007002||p -PERL_MAGIC_overload_elem|5.021008||p +PERL_MAGIC_overload_elem|5.024000||p PERL_MAGIC_overload_table|5.007002||p -PERL_MAGIC_overload|5.021008||p +PERL_MAGIC_overload|5.024000||p PERL_MAGIC_pos|5.007002||p PERL_MAGIC_qr|5.007002||p PERL_MAGIC_regdata|5.007002||p @@ -2321,7 +2375,7 @@ PERL_SIGNALS_UNSAFE_FLAG|5.008001||p PERL_SUBVERSION|5.006000||p PERL_SYS_INIT3||5.006000| PERL_SYS_INIT||| -PERL_SYS_TERM||5.021008| +PERL_SYS_TERM||5.024000| PERL_UCHAR_MAX|5.003070||p PERL_UCHAR_MIN|5.003070||p PERL_UINT_MAX|5.003070||p @@ -2331,6 +2385,7 @@ PERL_ULONG_MIN|5.003070||p PERL_UNUSED_ARG|5.009003||p PERL_UNUSED_CONTEXT|5.009004||p PERL_UNUSED_DECL|5.007002||p +PERL_UNUSED_RESULT|5.021001||p PERL_UNUSED_VAR|5.007002||p PERL_UQUAD_MAX|5.003070||p PERL_UQUAD_MIN|5.003070||p @@ -2343,13 +2398,13 @@ PL_DBsingle|||pn PL_DBsub|||pn PL_DBtrace|||pn PL_Sv|5.005000||p -PL_bufend|5.021008||p -PL_bufptr|5.021008||p +PL_bufend|5.024000||p +PL_bufptr|5.024000||p PL_check||5.006000| PL_compiling|5.004050||p PL_comppad_name||5.017004| PL_comppad||5.008001| -PL_copline|5.021008||p +PL_copline|5.024000||p PL_curcop|5.004050||p PL_curpad||5.005000| PL_curstash|5.004050||p @@ -2359,18 +2414,18 @@ PL_diehook|5.004050||p PL_dirty|5.004050||p PL_dowarn|||pn PL_errgv|5.004050||p -PL_error_count|5.021008||p -PL_expect|5.021008||p +PL_error_count|5.024000||p +PL_expect|5.024000||p PL_hexdigit|5.005000||p PL_hints|5.005000||p -PL_in_my_stash|5.021008||p -PL_in_my|5.021008||p +PL_in_my_stash|5.024000||p +PL_in_my|5.024000||p PL_keyword_plugin||5.011002| PL_last_in_gv|||n PL_laststatval|5.005000||p -PL_lex_state|5.021008||p -PL_lex_stuff|5.021008||p -PL_linestr|5.021008||p +PL_lex_state|5.024000||p +PL_lex_stuff|5.024000||p +PL_linestr|5.024000||p PL_modglobal||5.005000|n PL_na|5.004050||pn PL_no_modify|5.006000||p @@ -2382,8 +2437,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.021008||p -PL_rsfp|5.021008||p +PL_rsfp_filters|5.024000||p +PL_rsfp|5.024000||p PL_rs|||n PL_signals|5.008001||p PL_stack_base|5.004050||p @@ -2396,8 +2451,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.021008||p -POP_MULTICALL||5.021008| +PL_tokenbuf|5.024000||p +POP_MULTICALL||5.024000| POPi|||n POPl|||n POPn|||n @@ -2405,6 +2460,8 @@ POPpbytex||5.007001|n POPpx||5.005030|n POPp|||n POPs|||n +POPul||5.006000|n +POPu||5.004000|n PTR2IV|5.006000||p PTR2NV|5.006000||p PTR2UV|5.006000||p @@ -2412,7 +2469,7 @@ PTR2nat|5.009003||p PTR2ul|5.007001||p PTRV|5.006000||p PUSHMARK||| -PUSH_MULTICALL||5.021008| +PUSH_MULTICALL||5.024000| PUSHi||| PUSHmortal|5.009002||p PUSHn||| @@ -2420,29 +2477,29 @@ PUSHp||| PUSHs||| PUSHu|5.004000||p PUTBACK||| -PadARRAY||5.021008| -PadMAX||5.021008| -PadlistARRAY||5.021008| -PadlistMAX||5.021008| -PadlistNAMESARRAY||5.021008| -PadlistNAMESMAX||5.021008| -PadlistNAMES||5.021008| +PadARRAY||5.024000| +PadMAX||5.024000| +PadlistARRAY||5.024000| +PadlistMAX||5.024000| +PadlistNAMESARRAY||5.024000| +PadlistNAMESMAX||5.024000| +PadlistNAMES||5.024000| PadlistREFCNT||5.017004| PadnameIsOUR||| PadnameIsSTATE||| -PadnameLEN||5.021008| +PadnameLEN||5.024000| PadnameOURSTASH||| PadnameOUTER||| -PadnamePV||5.021008| -PadnameREFCNT_dec||5.021008| -PadnameREFCNT||5.021008| -PadnameSV||5.021008| +PadnamePV||5.024000| +PadnameREFCNT_dec||5.024000| +PadnameREFCNT||5.024000| +PadnameSV||5.024000| PadnameTYPE||| PadnameUTF8||5.021007| -PadnamelistARRAY||5.021008| -PadnamelistMAX||5.021008| -PadnamelistREFCNT_dec||5.021008| -PadnamelistREFCNT||5.021008| +PadnamelistARRAY||5.024000| +PadnamelistMAX||5.024000| +PadnamelistREFCNT_dec||5.024000| +PadnamelistREFCNT||5.024000| PerlIO_clearerr||5.007003| PerlIO_close||5.007003| PerlIO_context_layers||5.009004| @@ -2474,6 +2531,7 @@ PoisonNew|5.009004||p PoisonWith|5.009004||p Poison|5.008000||p READ_XDIGIT||5.017006| +RESTORE_LC_NUMERIC||5.024000| RETVAL|||n Renewc||| Renew||| @@ -2488,6 +2546,8 @@ START_EXTERN_C|5.005000||p START_MY_CXT|5.007003||p STMT_END|||p STMT_START|||p +STORE_LC_NUMERIC_FORCE_TO_UNDERLYING||5.024000| +STORE_LC_NUMERIC_SET_TO_NEEDED||5.024000| STR_WITH_LEN|5.009003||p ST||| SV_CONST_RETURN|5.009003||p @@ -2625,8 +2685,8 @@ SvROK_on||| SvROK||| SvRV_set|5.009003||p SvRV||| -SvRXOK||5.009005| -SvRX||5.009005| +SvRXOK|5.009005||p +SvRX|5.009005||p SvSETMAGIC||| SvSHARED_HASH|5.009003||p SvSHARE||5.007003| @@ -2660,7 +2720,9 @@ SvVOK||5.008001| SvVSTRING_mg|5.009004||p THIS|||n UNDERBAR|5.009002||p +UTF8SKIP||5.006000| UTF8_MAXBYTES|5.009002||p +UVCHR_SKIP||5.022000| UVSIZE|5.006000||p UVTYPE|5.006000||p UVXf|5.007001||p @@ -2669,7 +2731,7 @@ UVuf|5.006000||p UVxf|5.006000||p WARN_ALL|5.006000||p WARN_AMBIGUOUS|5.006000||p -WARN_ASSERTIONS|5.021008||p +WARN_ASSERTIONS|5.024000||p WARN_BAREWORD|5.006000||p WARN_CLOSED|5.006000||p WARN_CLOSURE|5.006000||p @@ -2742,18 +2804,18 @@ XST_mPV||| XST_mUNDEF||| XST_mUV|5.008001||p XST_mYES||| -XS_APIVERSION_BOOTCHECK||5.021008| -XS_EXTERNAL||5.021008| -XS_INTERNAL||5.021008| -XS_VERSION_BOOTCHECK||5.021008| +XS_APIVERSION_BOOTCHECK||5.024000| +XS_EXTERNAL||5.024000| +XS_INTERNAL||5.024000| +XS_VERSION_BOOTCHECK||5.024000| XS_VERSION||| XSprePUSH|5.006000||p XS||| -XopDISABLE||5.021008| -XopENABLE||5.021008| -XopENTRYCUSTOM||5.021008| -XopENTRY_set||5.021008| -XopENTRY||5.021008| +XopDISABLE||5.024000| +XopENABLE||5.024000| +XopENTRYCUSTOM||5.024000| +XopENTRY_set||5.024000| +XopENTRY||5.024000| XopFLAGS||5.013007| ZeroD|5.009002||p Zero||| @@ -2764,9 +2826,9 @@ _core_swash_init||| _get_encoding||| _get_regclass_nonbitmap_data||| _get_swash_invlist||| +_invlistEQ||| _invlist_array_init|||n _invlist_contains_cp|||n -_invlist_contents||| _invlist_dump||| _invlist_intersection_maybe_complement_2nd||| _invlist_intersection||| @@ -2796,12 +2858,14 @@ _make_exactf_invlist||| _new_invlist_C_array||| _new_invlist||| _pMY_CXT|5.007003||p +_setlocale_debug_string|||n _setup_canned_invlist||| _swash_inversion_hash||| _swash_to_invlist||| _to_fold_latin1||| _to_uni_fold_flags||5.014000| _to_upper_title_latin1||| +_to_utf8_case||| _to_utf8_fold_flags||5.019009| _to_utf8_lower_flags||5.019009| _to_utf8_title_flags||5.019009| @@ -2809,17 +2873,17 @@ _to_utf8_upper_flags||5.019009| _warn_problematic_locale|||n aMY_CXT_|5.007003||p aMY_CXT|5.007003||p -aTHXR_|5.021008||p -aTHXR|5.021008||p +aTHXR_|5.024000||p +aTHXR|5.024000||p aTHX_|5.006000||p aTHX|5.006000||p -aassign_common_vars||| add_above_Latin1_folds||| add_cp_to_invlist||| add_data|||n add_multi_match||| add_utf16_textfilter||| adjust_size_and_find_bucket|||n +advance_one_LB||| advance_one_SB||| advance_one_WB||| alloc_maybe_populate_EXACT||| @@ -2867,6 +2931,7 @@ av_top_index||5.017009| av_undef||| av_unshift||| ax|||n +backup_one_LB||| backup_one_SB||| backup_one_WB||| bad_type_gv||| @@ -2883,6 +2948,7 @@ boot_core_mro||| bytes_cmp_utf8||5.013007| bytes_from_utf8||5.007001| bytes_to_utf8||5.006001| +cBOOL|5.013000||p call_argv|5.006000||p call_atexit||5.006000| call_list||5.004000| @@ -2911,6 +2977,7 @@ ck_warner||5.011001|v ckwarn_common||| ckwarn_d||5.009003| ckwarn||5.009003| +clear_defarray||5.023008| clear_placeholders||| clear_special_blocks||| clone_params_del|||n @@ -2938,14 +3005,13 @@ cophh_fetch_pvs||5.013007| cophh_fetch_pv||5.013007| cophh_fetch_sv||5.013007| cophh_free||5.013007| -cophh_new_empty||5.021008| +cophh_new_empty||5.024000| cophh_store_pvn||5.013007| cophh_store_pvs||5.013007| cophh_store_pv||5.013007| cophh_store_sv||5.013007| core_prototype||| coresub_op||| -could_it_be_a_POSIX_class|||n cr_textfilter||| create_eval_scope||| croak_memory_wrap||5.019003|n @@ -2982,6 +3048,24 @@ cvgv_set||| cvstash_set||| cx_dump||5.005000| cx_dup||| +cx_popblock||5.023008| +cx_popeval||5.023008| +cx_popformat||5.023008| +cx_popgiven||5.023008| +cx_poploop||5.023008| +cx_popsub_args||5.023008| +cx_popsub_common||5.023008| +cx_popsub||5.023008| +cx_popwhen||5.023008| +cx_pushblock||5.023008| +cx_pusheval||5.023008| +cx_pushformat||5.023008| +cx_pushgiven||5.023008| +cx_pushloop_for||5.023008| +cx_pushloop_plain||5.023008| +cx_pushsub||5.023008| +cx_pushwhen||5.023008| +cx_topblock||5.023008| cxinc||| dAXMARK|5.009003||p dAX|5.007002||p @@ -2994,7 +3078,7 @@ dNOOP|5.006000||p dORIGMARK||| dSP||| dTHR|5.004050||p -dTHXR|5.021008||p +dTHXR|5.024000||p dTHXa|5.006000||p dTHXoa|5.006000||p dTHX|5.006000||p @@ -3082,7 +3166,7 @@ do_vecget||| do_vecset||| do_vop||| docatch||| -doeval||| +doeval_compile||| dofile||| dofindlabel||| doform||| @@ -3091,7 +3175,7 @@ dooneliner||| doopen_pm||| doparseform||| dopoptoeval||| -dopoptogiven||| +dopoptogivenfor||| dopoptolabel||| dopoptoloop||| dopoptosub_at||| @@ -3101,6 +3185,10 @@ dounwind||| dowantarray||| drand48_init_r|||n drand48_r|||n +dtrace_probe_call||| +dtrace_probe_load||| +dtrace_probe_op||| +dtrace_probe_phase||| dump_all_perl||| dump_all||5.006000| dump_c_backtrace||| @@ -3120,6 +3208,7 @@ dump_trie||| dump_vindent||5.006000| dumpuntil||| dup_attrlist||| +edit_distance|||n emulate_cop_io||| eval_pv|5.006000||p eval_sv|5.006000||p @@ -3144,7 +3233,6 @@ 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||| @@ -3183,7 +3271,7 @@ get_av|5.006000||p get_c_backtrace_dump||| get_c_backtrace||| get_context||5.006000|n -get_cvn_flags|5.009005||p +get_cvn_flags||| get_cvs|5.011000||p get_cv|5.006000||p get_db_sub||| @@ -3257,12 +3345,12 @@ gv_fetchmeth||| gv_fetchpvn_flags|5.009002||p gv_fetchpvs|5.009004||p gv_fetchpv||| -gv_fetchsv|5.009002||p +gv_fetchsv||| gv_fullname3||5.003070| gv_fullname4||5.006001| gv_fullname||| gv_handler||5.007001| -gv_init_pvn||5.015004| +gv_init_pvn||| gv_init_pv||5.015004| gv_init_svtype||| gv_init_sv||5.015004| @@ -3280,6 +3368,8 @@ gv_stashpv||| gv_stashsvpvn_cached||| gv_stashsv||| gv_try_downgrade||| +handle_named_backref||| +handle_possible_posix||| handle_regex_sets||| he_dup||| hek_dup||| @@ -3367,7 +3457,9 @@ intuit_method||| intuit_more||| invert||| invlist_array|||n +invlist_clear||| invlist_clone||| +invlist_contents||| invlist_extend||| invlist_highest|||n invlist_is_iterating|||n @@ -3376,6 +3468,7 @@ invlist_iterinit|||n invlist_iternext|||n invlist_max|||n invlist_previous_index|||n +invlist_replace_list_destroys_src||| invlist_set_len||| invlist_set_previous_index|||n invlist_trim|||n @@ -3393,10 +3486,10 @@ isFOO_lc||| isFOO_utf8_lc||| isGCB|||n isGRAPH|5.006000||p -isGV_with_GP|5.009004||p isIDCONT||5.017008| isIDFIRST_lazy||5.021001| isIDFIRST||| +isLB||| isLOWER||| isOCTAL||5.013005| isPRINT|5.004000||p @@ -3483,7 +3576,7 @@ jmaybe||| join_exact||| keyword_plugin_standard||| keyword||| -leave_common||| +leave_adjust_stacks||5.023008| leave_scope||| lex_bufutf8||5.011002| lex_discard_to||5.011002| @@ -3590,7 +3683,10 @@ memEQ|5.004000||p memNEs|5.009005||p memNE|5.004000||p mem_collxfrm||| +mem_log_alloc|||n mem_log_common|||n +mem_log_free|||n +mem_log_realloc|||n mess_alloc||| mess_nocontext|||vn mess_sv||5.013001| @@ -3639,7 +3735,7 @@ multideref_stringify||| my_atof2||5.007002| my_atof||5.006000| my_attrs||| -my_bcopy|||n +my_bcopy||5.004050|n my_bytes_to_utf8|||n my_bzero|||n my_chsize||| @@ -3654,7 +3750,7 @@ my_fflush_all||5.006000| my_fork||5.007003|n my_kid||| my_lstat_flags||| -my_lstat||5.021008| +my_lstat||5.024000| my_memcmp|||n my_memset|||n my_pclose||5.003070| @@ -3666,7 +3762,7 @@ my_snprintf|5.009004||pvn my_socketpair||5.007003|n my_sprintf|5.009003||pvn my_stat_flags||| -my_stat||5.021008| +my_stat||5.024000| my_strerror||5.021001| my_strftime||5.007002| my_strlcat|5.009004||pn @@ -3795,7 +3891,7 @@ op_linklist||5.013006| op_lvalue_flags||| op_lvalue||5.013007| op_null||5.007002| -op_parent||5.021002|n +op_parent|||n op_prepend_elem||5.013006| op_refcnt_dec||| op_refcnt_inc||| @@ -3813,6 +3909,7 @@ opmethod_stash||| opslab_force_free||| opslab_free_nopad||| opslab_free||| +output_or_return_posix_warnings||| pMY_CXT_|5.007003||p pMY_CXT|5.007003||p pTHX_|5.006000||p @@ -3912,6 +4009,8 @@ ptr_table_new||5.009005| ptr_table_split||5.009005| ptr_table_store||5.009005| push_scope||| +put_charclass_bitmap_innards_common||| +put_charclass_bitmap_innards_invlist||| put_charclass_bitmap_innards||| put_code_point||| put_range||| @@ -3926,14 +4025,17 @@ quadmath_format_single|||n re_compile||5.009005| re_croak2||| re_dup_guts||| +re_exec_indentf|||v +re_indentf|||v re_intuit_start||5.019001| re_intuit_string||5.006000| re_op_compile||| +re_printf|||v realloc||5.007002|n -reentrant_free||5.021008| -reentrant_init||5.021008| -reentrant_retry||5.021008|vn -reentrant_size||5.021008| +reentrant_free||5.024000| +reentrant_init||5.024000| +reentrant_retry||5.024000|vn +reentrant_size||5.024000| ref_array_or_hash||| refcounted_he_chain_2hv||| refcounted_he_fetch_pvn||| @@ -3949,7 +4051,7 @@ refcounted_he_new_sv||| refcounted_he_value||| refkids||| refto||| -ref||5.021008| +ref||5.024000| reg2Lanode||| reg_check_named_buff_matched|||n reg_named_buff_all||5.009005| @@ -3981,6 +4083,7 @@ regdump_extflags||| regdump_intflags||| regdump||5.005000| regdupe_internal||| +regex_set_precedence|||n regexec_flags||5.005000| regfree_internal||5.009005| reghop3|||n @@ -3992,9 +4095,7 @@ reginsert||| regmatch||| regnext||5.005000| regnode_guts||| -regpatws|||n regpiece||| -regpposixcc||| regprop||| regrepeat||| regtail_study||| @@ -4035,7 +4136,6 @@ save_I8||5.006000| save_adelete||5.011000| save_aelem_flags||5.011000| save_aelem||5.004050| -save_aliased_sv||| save_alloc||5.006000| save_aptr||| save_ary||| @@ -4092,6 +4192,7 @@ savesharedsvpv||5.013006| savestack_grow_cnt||5.008001| savestack_grow||| savesvpv||5.009002| +savetmps||5.023008| sawparens||| scalar_mod_type|||n scalarboolean||| @@ -4133,6 +4234,7 @@ should_warn_nl|||n si_dup||| sighandler|||n simplify_sort||| +skip_to_be_ignored_text||| skipspace_flags||| softref2xv||| sortcv_stacked||| @@ -4274,7 +4376,7 @@ sv_kill_backrefs||| sv_len_utf8_nomg||| sv_len_utf8||5.006000| sv_len||| -sv_magic_portable|5.021008|5.004000|p +sv_magic_portable|5.024000|5.004000|p sv_magicext_mglob||| sv_magicext||5.007003| sv_magic||| @@ -4311,8 +4413,7 @@ sv_pvutf8||5.006000| sv_pv||5.006000| sv_recode_to_utf8||5.007003| sv_reftype||| -sv_ref||| -sv_release_COW||| +sv_ref||5.015004| sv_replace||| sv_report_used||| sv_resetpvn||| @@ -4338,7 +4439,7 @@ sv_setpv||| sv_setref_iv||| sv_setref_nv||| sv_setref_pvn||| -sv_setref_pvs||5.021008| +sv_setref_pvs||5.024000| sv_setref_pv||| sv_setref_uv||5.007001| sv_setsv_cow||| @@ -4394,19 +4495,19 @@ taint_env||| taint_proper||| tied_method|||v tmps_grow_p||| -toFOLD_uni||5.007003| toFOLD_utf8||5.019001| +toFOLD_uvchr||5.023009| toFOLD||5.019001| toLOWER_L1||5.019001| toLOWER_LC||5.004000| -toLOWER_uni||5.007003| toLOWER_utf8||5.015007| +toLOWER_uvchr||5.023009| toLOWER||| -toTITLE_uni||5.007003| toTITLE_utf8||5.015007| +toTITLE_uvchr||5.023009| toTITLE||5.019001| -toUPPER_uni||5.007003| toUPPER_utf8||5.015007| +toUPPER_uvchr||5.023009| toUPPER||| to_byte_substr||| to_lower_latin1|||n @@ -5805,6 +5906,67 @@ __DATA__ #ifndef Newxz # define Newxz(v,n,t) Newz(0,v,n,t) #endif +#ifndef PERL_MAGIC_qr +# define PERL_MAGIC_qr 'r' +#endif +#ifndef cBOOL +# define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0) +#endif + +#ifndef OpHAS_SIBLING +# define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling)) +#endif + +#ifndef OpSIBLING +# define OpSIBLING(o) (0 + (o)->op_sibling) +#endif + +#ifndef OpMORESIB_set +# define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib)) +#endif + +#ifndef OpLASTSIB_set +# define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL) +#endif + +#ifndef OpMAYBESIB_set +# define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib)) +#endif + +#ifndef SvRX +#if defined(NEED_SvRX) +static void * DPPP_(my_SvRX)(pTHX_ SV *rv); +static +#else +extern void * DPPP_(my_SvRX)(pTHX_ SV *rv); +#endif + +#ifdef SvRX +# undef SvRX +#endif +#define SvRX(a) DPPP_(my_SvRX)(aTHX_ a) + +#if defined(NEED_SvRX) || defined(NEED_SvRX_GLOBAL) + +void * +DPPP_(my_SvRX)(pTHX_ SV *rv) +{ + if (SvROK(rv)) { + SV *sv = SvRV(rv); + if (SvMAGICAL(sv)) { + MAGIC *mg = mg_find(sv, PERL_MAGIC_qr); + if (mg && mg->mg_obj) { + return mg->mg_obj; + } + } + } + return 0; +} +#endif +#endif +#ifndef SvRXOK +# define SvRXOK(sv) (!!SvRX(sv)) +#endif #ifndef PERL_UNUSED_DECL # ifdef HASATTRIBUTE @@ -5838,6 +6000,14 @@ __DATA__ # define PERL_UNUSED_CONTEXT # endif #endif + +#ifndef PERL_UNUSED_RESULT +# if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT) +# define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END +# else +# define PERL_UNUSED_RESULT(v) ((void)(v)) +# endif +#endif #ifndef NOOP # define NOOP /*EMPTY*/(void)0 #endif @@ -6171,6 +6341,13 @@ typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*); (U32)HeKUTF8(he)) #endif +#endif +#ifndef C_ARRAY_LENGTH +# define C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0])) +#endif + +#ifndef C_ARRAY_END +# define C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a)) #endif #ifndef PERL_SIGNALS_UNSAFE_FLAG @@ -6292,7 +6469,7 @@ extern yy_parser DPPP_(dummy_PL_parser); /* 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 + * doing. It is internal to the perl parser and may change or even * be removed in the future. As of perl 5.9.5, you have to check * for (PL_parser != NULL) for this variable to have any effect. * An always non-NULL PL_parser dummy is provided for earlier @@ -7494,6 +7671,33 @@ DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash) #ifndef HvNAMELEN_get # define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0) #endif + +#ifndef gv_fetchpvn_flags +#if defined(NEED_gv_fetchpvn_flags) +static GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types); +static +#else +extern GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types); +#endif + +#ifdef gv_fetchpvn_flags +# undef gv_fetchpvn_flags +#endif +#define gv_fetchpvn_flags(a,b,c,d) DPPP_(my_gv_fetchpvn_flags)(aTHX_ a,b,c,d) +#define Perl_gv_fetchpvn_flags DPPP_(my_gv_fetchpvn_flags) + +#if defined(NEED_gv_fetchpvn_flags) || defined(NEED_gv_fetchpvn_flags_GLOBAL) + +GV* +DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types) { + char *namepv = savepvn(name, len); + GV* stash = gv_fetchpv(namepv, TRUE, SVt_PVHV); + Safefree(namepv); + return stash; +} + +#endif +#endif #ifndef GvSVn # define GvSVn(gv) GvSV(gv) #endif @@ -7502,16 +7706,16 @@ DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash) # 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 gv_init_pvn +# define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE) +#endif #ifndef WARN_ALL # define WARN_ALL 0 #endif @@ -7799,13 +8003,16 @@ DPPP_(my_warner)(U32 err, const char *pat, ...) # define HEf_SVKEY -2 #endif +#ifndef MUTABLE_PTR #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define MUTABLE_PTR(p) ({ void *_p = (p); _p; }) #else # define MUTABLE_PTR(p) ((void *) (p)) #endif - -#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_SV +# define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) +#endif /* end of random bits */ #ifndef PERL_MAGIC_sv diff --git a/Master/tlpkg/tlperl/lib/Devel/Peek.pm b/Master/tlpkg/tlperl/lib/Devel/Peek.pm index c0483ca1449..4ce8b4531b9 100644 --- a/Master/tlpkg/tlperl/lib/Devel/Peek.pm +++ b/Master/tlpkg/tlperl/lib/Devel/Peek.pm @@ -3,7 +3,7 @@ package Devel::Peek; -$VERSION = '1.23'; +$VERSION = '1.26'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -133,7 +133,9 @@ means no limit. If C directive has a C<:opd=FLAGS> argument, this switches on debugging of opcode dispatch. C should be a -combination of C, C, and C

(see B<-D> flags in L). +combination of C, C, and C

(see +L<< B<-D> flags in perlrun|perlrun/B<-D>I >>). + C<:opd> is a shortcut for C<:opd=st>. =head2 Runtime debugging @@ -352,7 +354,6 @@ The output: ARRAY = 0xc7e820 FILL = 0 MAX = 0 - ARYLEN = 0x0 FLAGS = (REAL) Elt No. 0 SV = IV(0xc70f88) at 0xc70f98 @@ -384,7 +385,6 @@ The output: ARRAY = 0x1585820 FILL = 1 MAX = 1 - ARYLEN = 0x0 FLAGS = (REAL) Elt No. 0 SV = IV(0x1577f88) at 0x1577f98 @@ -548,7 +548,7 @@ inside a 5th eval in the program; =item * -it is not currently executed (see C); +it is not currently executed (because C is 0); =item * diff --git a/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm b/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm index e47cd3a3326..781dd9f3e97 100644 --- a/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm +++ b/Master/tlpkg/tlperl/lib/Devel/SelfStubber.pm @@ -4,7 +4,7 @@ require SelfLoader; @ISA = qw(SelfLoader); @EXPORT = 'AUTOLOAD'; $JUST_STUBS = 1; -$VERSION = 1.05; +$VERSION = 1.06; sub Version {$VERSION} # Use as @@ -39,7 +39,7 @@ sub stub { my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END); @DATA = @STUBS = (); - open($fh,$mod_file) || die "Unable to open $mod_file"; + open($fh,'<',$mod_file) || die "Unable to open $mod_file"; local $/ = "\n"; while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) { push(@BEFORE_DATA,$line); -- cgit v1.2.3