@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.10';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -347,7 +347,7 @@ sub name_from {
^ \s*
package \s*
([\w:]+)
- [\s|;]*
+ \s* ;
/ixms
) {
my ($name, $module_name) = ($1, $1);
@@ -453,40 +453,24 @@ sub author_from {
#Stolen from M::B
my %license_urls = (
+ perl => 'http://dev.perl.org/licenses/',
+ apache => 'http://apache.org/licenses/LICENSE-2.0',
+ apache_1_1 => 'http://apache.org/licenses/LICENSE-1.1',
+ artistic => 'http://opensource.org/licenses/artistic-license.php',
+ artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php',
+ lgpl => 'http://opensource.org/licenses/lgpl-license.php',
+ lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
+ lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
+ bsd => 'http://opensource.org/licenses/bsd-license.php',
+ gpl => 'http://opensource.org/licenses/gpl-license.php',
+ gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
+ gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
+ mit => 'http://opensource.org/licenses/mit-license.php',
+ mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
open_source => undef,
unrestricted => undef,
restrictive => undef,
unknown => undef,
-
-## from Software-License - should we be using S-L instead ?
-# duplicates commeted out, see hack above ^^
-# open_source => 'http://www.gnu.org/licenses/agpl-3.0.txt',
-# apache => 'http://www.apache.org/licenses/LICENSE-1.1',
- apache => 'http://www.apache.org/licenses/LICENSE-2.0.txt',
- artistic => 'http://www.perlfoundation.org/artistic_license_1_0',
- artistic_2 => 'http://www.perlfoundation.org/artistic_license_2_0',
- bsd => 'http://opensource.org/licenses/BSD-3-Clause',
-# unrestricted => 'http://creativecommons.org/publicdomain/zero/1.0/',
-# open_source => 'http://www.freebsd.org/copyright/freebsd-license.html',
-# open_source => 'http://www.gnu.org/licenses/fdl-1.2.txt',
-# open_source => 'http://www.gnu.org/licenses/fdl-1.3.txt',
-# gpl => 'http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt',
-# gpl => 'http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt',
- gpl => 'http://www.gnu.org/licenses/gpl-3.0.txt',
-# lgpl => 'http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt',
- lgpl => 'http://www.gnu.org/licenses/lgpl-3.0.txt',
- mit => 'http://www.opensource.org/licenses/mit-license.php',
-# mozilla => 'http://www.mozilla.org/MPL/MPL-1.0.txt',
-# mozilla => 'http://www.mozilla.org/MPL/MPL-1.1.txt',
- mozilla => 'http://www.mozilla.org/MPL/2.0/index.txt',
-# restrictive => '',
-# open_source => 'http://www.openssl.org/source/license.html',
- perl => 'http://dev.perl.org/licenses/',
-# open_source => 'http://www.opensource.org/licenses/postgresql',
-# open_source => 'http://trolltech.com/products/qt/licenses/licensing/qpl',
-# unrestricted => 'http://h71000.www7.hp.com/doc/83final/BA554_90007/apcs02.html',
-# open_source => 'http://www.openoffice.org/licenses/sissl_license.html',
-# open_source => 'http://www.zlib.net/zlib_license.html',
);
sub license {
@@ -527,43 +511,31 @@ sub __extract_license {
my @phrases = (
'(?:under )?the same (?:terms|license) as (?:perl|the perl (?:\d )?programming language)' => 'perl', 1,
'(?:under )?the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
-
- # the following are relied on by the test system even if they are wrong :(
+ 'Artistic and GPL' => 'perl', 1,
+ 'GNU general public license' => 'gpl', 1,
+ 'GNU public license' => 'gpl', 1,
+ 'GNU lesser general public license' => 'lgpl', 1,
+ 'GNU lesser public license' => 'lgpl', 1,
+ 'GNU library general public license' => 'lgpl', 1,
+ 'GNU library public license' => 'lgpl', 1,
+ 'GNU Free Documentation license' => 'unrestricted', 1,
+ 'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
'Artistic license 2\.0' => 'artistic_2', 1,
+ 'Artistic license' => 'artistic', 1,
+ 'Apache (?:Software )?license' => 'apache', 1,
+ 'GPL' => 'gpl', 1,
'LGPL' => 'lgpl', 1,
+ 'BSD' => 'bsd', 1,
+ 'Artistic' => 'artistic', 1,
'MIT' => 'mit', 1,
-
-## from Software-License
- 'The GNU Affero General Public License, Version 3, November 2007' => 'open_source', 1,
- 'The Apache Software License, Version 1.1' => 'apache', 1,
- 'The Apache License, Version 2.0, January 2004' => 'apache', 1,
- 'The Artistic License 1.0' => 'artistic', 1,
- 'The Artistic License 2.0 (GPL Compatible)' => 'artistic_2', 1,
- 'The (three-clause) BSD License' => 'bsd', 1,
- 'CC0 License' => 'unrestricted', 1,
- 'The (two-clause) FreeBSD License' => 'open_source', 1,
- 'GNU Free Documentation License v1.2' => 'open_source', 1,
- 'GNU Free Documentation License v1.3' => 'open_source', 1,
- 'The GNU General Public License, Version 1, February 1989' => 'gpl', 1,
- 'The GNU General Public License, Version 2, June 1991' => 'gpl', 1,
- 'The GNU General Public License, Version 3, June 2007' => 'gpl', 1,
- 'The GNU Lesser General Public License, Version 2.1, February 1999' => 'lgpl', 1,
- 'The GNU Lesser General Public License, Version 3, June 2007' => 'lgpl', 1,
- 'The MIT (X11) License' => 'mit', 1,
- 'The Mozilla Public License 1.0' => 'mozilla', 1,
- 'The Mozilla Public License 1.1' => 'mozilla', 1,
- 'Mozilla Public License Version 2.0' => 'mozilla', 1,
- '"No License" License' => 'restrictive', 1,
- 'OpenSSL License' => 'open_source', 1,
- 'the same terms as the perl 5 programming language system itself' => 'perl', 1,
- 'The PostgreSQL License' => 'open_source', 1,
- 'The Q Public License, Version 1.0' => 'open_source', 1,
- 'Original SSLeay License' => 'unrestricted', 1,
- 'Sun Internet Standards Source License (SISSL)' => 'open_source', 1,
- 'The zlib License' => 'open_source', 1,
+ 'Mozilla Public License' => 'mozilla', 1,
+ 'Q Public License' => 'open_source', 1,
+ 'OpenSSL License' => 'unrestricted', 1,
+ 'SSLeay License' => 'unrestricted', 1,
+ 'zlib License' => 'open_source', 1,
+ 'proprietary' => 'proprietary', 0,
);
-
while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
$pattern =~ s#\s+#\\s+#gs;
if ( $license_text =~ /\b$pattern\b/i ) {
@@ -733,7 +705,7 @@ sub _write_mymeta_data {
my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
my $meta = $yaml[0];
- # Overwrite the non-configure dependency hashes
+ # Overwrite the non-configure dependency hashs
delete $meta->{requires};
delete $meta->{build_requires};
delete $meta->{recommends};
@@ -748,7 +720,3 @@ sub _write_mymeta_data {
}
1;
-
-__END__
-
-#line 766
@@ -4,9 +4,9 @@
/*
----------------------------------------------------------------------
- ppport.h -- Perl/Pollution/Portability Version 3.21
+ ppport.h -- Perl/Pollution/Portability Version 3.20
- Automatically created by Devel::PPPort running under perl 5.020000.
+ Automatically created by Devel::PPPort running under perl 5.018004.
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.21
+ppport.h - Perl/Pollution/Portability version 3.20
=head1 SYNOPSIS
@@ -358,7 +358,7 @@ module from CPAN.
=head1 COPYRIGHT
-Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
+Version 3.x, Copyright (c) 2004-2010, Marcus Holland-Moritz.
Version 2.x, Copyright (C) 2001, Paul Marquess.
@@ -378,7 +378,7 @@ use strict;
# Disable broken TRIE-optimization
BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }
-my $VERSION = 3.21;
+my $VERSION = 3.20;
my %opt = (
quiet => 0,
@@ -447,9 +447,9 @@ my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
-BhkDISABLE||5.019003|
-BhkENABLE||5.019003|
-BhkENTRY_set||5.019003|
+BhkDISABLE||5.014000|
+BhkENABLE||5.014000|
+BhkENTRY_set||5.014000|
BhkENTRY|||
BhkFLAGS|||
CALL_BLOCK_HOOKS|||
@@ -468,9 +468,9 @@ CopSTASHPV|5.006000||p
CopSTASH_eq|5.006000||p
CopSTASH_set|5.006000||p
CopSTASH|5.006000||p
-CopyD|5.009002|5.004050|p
-Copy||5.004050|
-CvPADLIST||5.008001|
+CopyD|5.009002||p
+Copy|||
+CvPADLIST|||
CvSTASH|||
CvWEAKOUTSIDE|||
DEFSV_set|5.010001||p
@@ -493,9 +493,6 @@ G_NOARGS|||
G_SCALAR|||
G_VOID||5.004000|
GetVars|||
-GvAV|||
-GvCV|||
-GvHV|||
GvSVn|5.009003||p
GvSV|||
Gv_AMupdate||5.011000|
@@ -509,12 +506,8 @@ 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
@@ -535,12 +528,12 @@ LEAVE|||
LINKLIST||5.013006|
LVRET|||
MARK|||
-MULTICALL||5.019003|
+MULTICALL||5.014000|
MY_CXT_CLONE|5.009002||p
MY_CXT_INIT|5.007003||p
MY_CXT|5.007003||p
-MoveD|5.009002|5.004050|p
-Move||5.004050|
+MoveD|5.009002||p
+Move|||
NOOP|5.005000||p
NUM2PTR|5.006000||p
NVTYPE|5.006000||p
@@ -567,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|||
@@ -578,7 +572,7 @@ PAD_SV|||
PERLIO_FUNCS_CAST|5.009003||p
PERLIO_FUNCS_DECL|5.009003||p
PERL_ABS|5.008001||p
-PERL_BCDVERSION|5.019002||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
@@ -596,14 +590,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.019002||p
+PERL_MAGIC_glob|5.014000||p
PERL_MAGIC_isaelem|5.007002||p
PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.019002||p
+PERL_MAGIC_mutex|5.014000||p
PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.019002||p
+PERL_MAGIC_overload_elem|5.007002||p
PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.019002||p
+PERL_MAGIC_overload|5.007002||p
PERL_MAGIC_pos|5.007002||p
PERL_MAGIC_qr|5.007002||p
PERL_MAGIC_regdata|5.007002||p
@@ -649,9 +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.010000|
-PERL_SYS_INIT||5.010000|
-PERL_SYS_TERM||5.019003|
+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
@@ -673,15 +667,11 @@ PL_DBsingle|||pn
PL_DBsub|||pn
PL_DBtrace|||pn
PL_Sv|5.005000||p
-PL_bufend|5.019002||p
-PL_bufptr|5.019002||p
-PL_check||5.006000|
+PL_bufend|5.014000||p
+PL_bufptr|5.014000||p
PL_compiling|5.004050||p
-PL_comppad_name||5.017004|
-PL_comppad||5.008001|
-PL_copline|5.019002||p
+PL_copline|5.014000||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
@@ -689,18 +679,18 @@ PL_diehook|5.004050||p
PL_dirty|5.004050||p
PL_dowarn|||pn
PL_errgv|5.004050||p
-PL_error_count|5.019002||p
-PL_expect|5.019002||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.019002||p
-PL_in_my|5.019002||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.019002||p
-PL_lex_stuff|5.019002||p
-PL_linestr|5.019002||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
@@ -712,8 +702,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.019002||p
-PL_rsfp|5.019002||p
+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
@@ -726,8 +716,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.019002||p
-POP_MULTICALL||5.019003|
+PL_tokenbuf|5.014000||p
+POP_MULTICALL||5.014000|
POPi|||n
POPl|||n
POPn|||n
@@ -742,7 +732,7 @@ PTR2nat|5.009003||p
PTR2ul|5.007001||p
PTRV|5.006000||p
PUSHMARK|||
-PUSH_MULTICALL||5.019003|
+PUSH_MULTICALL||5.014000|
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
@@ -750,25 +740,6 @@ 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|
@@ -797,7 +768,6 @@ PoisonFree|5.009004||p
PoisonNew|5.009004||p
PoisonWith|5.009004||p
Poison|5.008000||p
-READ_XDIGIT||5.017006|
RETVAL|||n
Renewc|||
Renew|||
@@ -827,26 +797,16 @@ 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|||
@@ -917,7 +877,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||p
+SvPV_nomg_nolen||5.013007|
SvPV_nomg|5.007002||p
SvPV_renew|5.009003||p
SvPV_set|||
@@ -933,7 +893,6 @@ 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
@@ -964,7 +923,6 @@ SvTAINTED_off||5.004000|
SvTAINTED_on||5.004000|
SvTAINTED||5.004000|
SvTAINT|||
-SvTHINKFIRST|||
SvTRUE_nomg||5.013006|
SvTRUE|||
SvTYPE|||
@@ -993,7 +951,7 @@ UVuf|5.006000||p
UVxf|5.006000||p
WARN_ALL|5.006000||p
WARN_AMBIGUOUS|5.006000||p
-WARN_ASSERTIONS|5.019002||p
+WARN_ASSERTIONS|5.014000||p
WARN_BAREWORD|5.006000||p
WARN_CLOSED|5.006000||p
WARN_CLOSURE|5.006000||p
@@ -1038,11 +996,10 @@ 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|5.007001|p
-XCPT_TRY_END|5.009002|5.004000|p
-XCPT_TRY_START|5.009002|5.004000|p
+XCPT_RETHROW|5.009002||p
+XCPT_TRY_END|5.009002||p
+XCPT_TRY_START|5.009002||p
XPUSHi|||
XPUSHmortal|5.009002||p
XPUSHn|||
@@ -1067,79 +1024,41 @@ 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.019003|
-XopENABLE||5.019003|
-XopENTRY_set||5.019003|
-XopENTRY||5.019003|
+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
-_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.019002||p
-aTHXR|5.019002||p
+aTHXR_|5.014000||p
+aTHXR|5.014000||p
aTHX_|5.006000||p
aTHX|5.006000||p
-aassign_common_vars|||
+add_alternate|||
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|||
@@ -1158,7 +1077,6 @@ 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|||
@@ -1170,13 +1088,10 @@ 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_gv|||
-bad_type_pv|||
+bad_type|||
bind_match|||
block_end|||
block_gimme||5.004000|
@@ -1203,13 +1118,12 @@ 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|
@@ -1227,16 +1141,13 @@ 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|
@@ -1248,40 +1159,29 @@ cophh_fetch_pvs||5.013007|
cophh_fetch_pv||5.013007|
cophh_fetch_sv||5.013007|
cophh_free||5.013007|
-cophh_new_empty||5.019003|
+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|
-core_prototype|||
-core_regclass_swash|||
-coresub_op|||
-could_it_be_a_POSIX_class|||
cr_textfilter|||
create_eval_scope|||
-croak_memory_wrap||5.019003|n
-croak_no_mem|||n
-croak_no_modify||5.013003|n
+croak_no_modify||5.013003|
croak_nocontext|||vn
-croak_popstack|||n
croak_sv||5.013001|
-croak_xs_usage||5.010001|n
+croak_xs_usage||5.010001|
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_flags|||
-cv_clone_into|||
+cv_ckproto_len|||
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|||
@@ -1301,7 +1201,7 @@ dNOOP|5.006000||p
dORIGMARK|||
dSP|||
dTHR|5.004050||p
-dTHXR|5.019002||p
+dTHXR|5.014000||p
dTHXa|5.006000||p
dTHXoa|5.006000||p
dTHX|5.006000||p
@@ -1322,7 +1222,6 @@ debstackptrs||5.007003|
debstack||5.007003|
debug_start_match|||
deb||5.007003|v
-defelem_target|||
del_sv|||
delete_eval_scope|||
delimcpy||5.004000|n
@@ -1357,7 +1256,6 @@ do_join|||
do_magic_dump||5.006000|
do_msgrcv|||
do_msgsnd|||
-do_ncmp|||
do_oddball|||
do_op_dump||5.006000|
do_op_xmldump|||
@@ -1433,22 +1331,18 @@ 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|||
@@ -1461,7 +1355,6 @@ foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
-force_ident_maybe_lex|||
force_ident|||
force_list|||
force_next|||
@@ -1470,7 +1363,6 @@ force_version|||
force_word|||
forget_pmop|||
form_nocontext|||vn
-form_short_octal_warning|||
form||5.004000|v
fp_dup|||
fprintf_nocontext|||vn
@@ -1478,7 +1370,6 @@ 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
@@ -1489,9 +1380,6 @@ 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|||
@@ -1511,10 +1399,8 @@ 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
@@ -1526,9 +1412,6 @@ 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|
@@ -1539,16 +1422,8 @@ 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_pv_flags||5.015004|
-gv_fetchmethod_pvn_flags||5.015004|
-gv_fetchmethod_sv_flags||5.015004|
+gv_fetchmethod_flags||5.011000|
gv_fetchmethod|||
gv_fetchmeth|||
gv_fetchpvn_flags|5.009002||p
@@ -1558,27 +1433,24 @@ 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_pvn||5.015004|
-gv_init_pv||5.015004|
-gv_init_svtype|||
-gv_init_sv||5.015004|
+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||p
gv_stashpv|||
gv_stashsv|||
gv_try_downgrade|||
-handle_regex_sets|||
he_dup|||
hek_dup|||
-hfree_next_entry|||
hfreeentries|||
hsplit|||
hv_assert|||
-hv_auxinit|||
+hv_auxinit|||n
hv_backreferences_p|||
hv_clear_placeholders||5.009001|
hv_clear|||
@@ -1599,7 +1471,6 @@ 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|
@@ -1615,9 +1486,8 @@ hv_magic|||
hv_name_set||5.009003|
hv_notallowed|||
hv_placeholders_get||5.009003|
-hv_placeholders_p|||
+hv_placeholders_p||5.009003|
hv_placeholders_set||5.009003|
-hv_rand_set||5.017011|
hv_riter_p||5.009003|
hv_riter_set||5.009003|
hv_scalar||5.009001|
@@ -1636,7 +1506,6 @@ incpush_use_sep|||
incpush|||
ingroup|||
init_argv_symbols|||
-init_constants|||
init_dbargs|||
init_debugger|||
init_global_struct|||
@@ -1650,42 +1519,32 @@ 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_clone|||
+invlist_destroy|||
invlist_extend|||
-invlist_highest|||
-invlist_is_iterating|||
-invlist_iterfinish|||
-invlist_iterinit|||
-invlist_iternext|||
+invlist_intersection|||
+invlist_len|||
invlist_max|||
-invlist_previous_index|||
+invlist_set_array|||
invlist_set_len|||
-invlist_set_previous_index|||
+invlist_set_max|||
invlist_trim|||
+invlist_union|||
invoke_exception_hook|||
io_close|||
isALNUMC|5.006000||p
-isALNUM_lazy|||
-isALPHANUMERIC||5.017008|
isALPHA|||
-isASCII|5.006000|5.006000|p
+isASCII|5.006000||p
isBLANK|5.006001||p
-isCNTRL|5.006000|5.006000|p
+isCNTRL|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
@@ -1697,20 +1556,17 @@ isWORDCHAR||5.013006|
isXDIGIT|5.006000||p
is_an_int|||
is_ascii_string||5.011000|n
-is_cur_LC_category_utf8|||
+is_gv_magical_sv|||
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|
@@ -1731,12 +1587,19 @@ is_uni_upper_lc||5.006000|
is_uni_upper||5.006000|
is_uni_xdigit_lc||5.006000|
is_uni_xdigit||5.006000|
-is_utf8_alnumc||5.017007|
+is_utf8_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_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|
@@ -1804,14 +1667,12 @@ 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|||
@@ -1828,6 +1689,7 @@ magic_getuvar|||
magic_getvec|||
magic_get|||
magic_killbackrefs|||
+magic_len|||
magic_methcall1|||
magic_methcall|||v
magic_methpack|||
@@ -1837,6 +1699,7 @@ magic_regdatum_get|||
magic_regdatum_set|||
magic_scalarpack|||
magic_set_all_env|||
+magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
@@ -1866,7 +1729,6 @@ malloced_size|||n
malloc||5.007002|n
markstack_grow|||
matcher_matches_sv|||
-mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
@@ -1883,7 +1745,6 @@ mfree||5.007002|n
mg_clear|||
mg_copy|||
mg_dup|||
-mg_find_mglob|||
mg_findext||5.013008|
mg_find|||
mg_free_type||5.013006|
@@ -1895,10 +1756,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|||
@@ -1918,10 +1779,17 @@ 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|||
@@ -1933,11 +1801,31 @@ 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.019003|
-my_memcmp|||n
-my_memset||5.004000|n
+my_lstat||5.014000|
+my_memcmp||5.004000|n
+my_memset|||n
+my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
@@ -1946,10 +1834,12 @@ my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
-my_stat||5.019003|
+my_stat||5.014000|
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
@@ -1958,13 +1848,11 @@ newANONHASH|||
newANONLIST|||
newANONSUB|||
newASSIGNOP|||
-newATTRSUB_flags|||
newATTRSUB||5.006000|
newAVREF|||
newAV|||
newBINOP|||
newCONDOP|||
-newCONSTSUB_flags||5.015006|
newCONSTSUB|5.004050||p
newCVREF|||
newDEFSVOP|||
@@ -1975,7 +1863,6 @@ newGIVWHENOP|||
newGP|||
newGVOP|||
newGVREF|||
-newGVgen_flags||5.015004|
newGVgen|||
newHVREF|||
newHVhv||5.005000|
@@ -1987,7 +1874,7 @@ newLOOPEX|||
newLOOPOP|||
newMADPROP|||
newMADsv|||
-newMYSUB||5.017004|
+newMYSUB|||
newNULLLIST|||
newOP|||
newPADOP|||
@@ -2000,7 +1887,6 @@ newRV_noinc|5.004000||p
newRV|||
newSLICEOP|||
newSTATEOP|||
-newSTUB|||
newSUB|||
newSVOP|||
newSVREF|||
@@ -2008,7 +1894,6 @@ newSV_type|5.009005||p
newSVhek||5.009003|
newSViv|||
newSVnv|||
-newSVpadname||5.017004|
newSVpv_share||5.013006|
newSVpvf_nocontext|||vn
newSVpvf||5.004000|v
@@ -2029,7 +1914,6 @@ newUNOP|||
newWHENOP||5.009003|
newWHILEOP||5.013007|
newXS_flags||5.009004|
-newXS_len_flags|||
newXSproto||5.006000|
newXS||5.006000|
new_collate||5.006000|
@@ -2049,7 +1933,6 @@ no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
-not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
@@ -2064,9 +1947,7 @@ 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|
@@ -2075,13 +1956,9 @@ 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|||
-opslab_force_free|||
-opslab_free_nopad|||
-opslab_free|||
+opt_scalarhv|||
pMY_CXT_|5.007003||p
pMY_CXT|5.007003||p
pTHX_|5.006000||p
@@ -2092,53 +1969,43 @@ pack_rec|||
package_version|||
package|||
packlist||5.008001|
-pad_add_anon||5.008001|
-pad_add_name_pvn||5.015001|
-pad_add_name_pvs||5.015001|
-pad_add_name_pv||5.015001|
-pad_add_name_sv||5.015001|
-pad_alloc_name|||
+pad_add_anon|||
+pad_add_name_sv|||
+pad_add_name|||
pad_alloc|||
pad_block_start|||
pad_check_dup|||
-pad_compname_type||5.009003|
+pad_compname_type|||
pad_findlex|||
-pad_findmy_pvn||5.015001|
-pad_findmy_pvs||5.015001|
-pad_findmy_pv||5.015001|
-pad_findmy_sv||5.015001|
+pad_findmy||5.011002|
pad_fixup_inner_anons|||
pad_free|||
pad_leavemy|||
-pad_new||5.008001|
+pad_new|||
pad_peg|||n
pad_push|||
pad_reset|||
pad_setsv|||
pad_sv|||
pad_swipe|||
-pad_tidy||5.008001|
+pad_tidy|||
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_searchable|||n
+path_is_absolute|||n
peep|||
-pending_ident|||
+pending_Slabs_to_ro|||
perl_alloc_using|||n
perl_alloc|||n
perl_clone_using|||n
@@ -2165,7 +2032,6 @@ 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
@@ -2175,7 +2041,6 @@ 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
@@ -2185,15 +2050,14 @@ qsortsvu|||
re_compile||5.009005|
re_croak2|||
re_dup_guts|||
-re_intuit_start||5.019001|
+re_intuit_start||5.009005|
re_intuit_string||5.006000|
-re_op_compile|||
readpipe_override|||
realloc||5.007002|n
-reentrant_free||5.019003|
-reentrant_init||5.019003|
-reentrant_retry||5.019003|vn
-reentrant_size||5.019003|
+reentrant_free|||
+reentrant_init|||
+reentrant_retry|||vn
+reentrant_size|||
ref_array_or_hash|||
refcounted_he_chain_2hv|||
refcounted_he_fetch_pvn|||
@@ -2209,7 +2073,7 @@ refcounted_he_new_sv|||
refcounted_he_value|||
refkids|||
refto|||
-ref||5.019003|
+ref||5.014000|
reg_check_named_buff_matched|||
reg_named_buff_all||5.009005|
reg_named_buff_exists||5.009005|
@@ -2219,6 +2083,7 @@ 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|||
@@ -2237,7 +2102,6 @@ regcppop|||
regcppush|||
regcurly|||
regdump_extflags|||
-regdump_intflags|||
regdump||5.005000|
regdupe_internal|||
regexec_flags||5.005000|
@@ -2250,7 +2114,6 @@ reginitcolors||5.006000|
reginsert|||
regmatch|||
regnext||5.005000|
-regpatws|||n
regpiece|||
regpposixcc|||
regprop|||
@@ -2263,7 +2126,6 @@ regwhite|||n
reg|||
repeatcpy|||n
report_evil_fh|||
-report_redefined_cv|||
report_uninit|||
report_wrongway_fh|||
require_pv||5.006000|
@@ -2322,7 +2184,7 @@ save_iv||5.005000|
save_lines|||
save_list|||
save_long|||
-save_magic_flags|||
+save_magic|||
save_mortalizesv||5.007001|
save_nogv|||
save_op||5.005000|
@@ -2378,10 +2240,14 @@ 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|
@@ -2391,7 +2257,7 @@ simplify_sort|||
skipspace0|||
skipspace1|||
skipspace2|||
-skipspace_flags|||
+skipspace|||
softref2xv|||
sortcv_stacked|||
sortcv_xsub|||
@@ -2404,7 +2270,9 @@ stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
+stashpv_hvname_match||5.014000|
stdize_locale|||
+store_cop_label|||
strEQ|||
strGE|||
strGT|||
@@ -2478,21 +2346,14 @@ sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm_flags||5.013006|
sv_collxfrm|||
-sv_copypv_flags||5.017002|
-sv_copypv_nomg||5.017002|
-sv_copypv|||
+sv_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_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|||
@@ -2518,14 +2379,11 @@ 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.019003|5.004000|p
-sv_magicext_mglob|||
+sv_magic_portable|5.014000|5.004000|p
sv_magicext||5.007003|
sv_magic|||
-sv_mortalcopy_flags|||
sv_mortalcopy|||
sv_ncmp|||
sv_newmortal|||
@@ -2535,7 +2393,6 @@ 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|||
@@ -2556,14 +2413,11 @@ 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
@@ -2583,7 +2437,7 @@ sv_setpv|||
sv_setref_iv|||
sv_setref_nv|||
sv_setref_pvn|||
-sv_setref_pvs||5.019003|
+sv_setref_pvs||5.013006|
sv_setref_pv|||
sv_setref_uv||5.007001|
sv_setsv_cow|||
@@ -2616,7 +2470,6 @@ 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
@@ -2626,8 +2479,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|||
@@ -2638,22 +2491,9 @@ 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|||
-toTITLE_uni||5.007003|
-toTITLE_utf8||5.015007|
-toTITLE||5.019001|
-toUPPER_uni||5.007003|
-toUPPER_utf8||5.015007|
-toUPPER||5.004000|
+toUPPER|||
to_byte_substr|||
-to_lower_latin1|||
to_uni_fold||5.007003|
to_uni_lower_lc||5.006000|
to_uni_lower||5.007003|
@@ -2662,21 +2502,18 @@ to_uni_title||5.007003|
to_uni_upper_lc||5.006000|
to_uni_upper||5.007003|
to_utf8_case||5.007003|
-to_utf8_fold||5.015007|
-to_utf8_lower||5.015007|
+to_utf8_fold||5.007003|
+to_utf8_lower||5.007003|
to_utf8_substr|||
-to_utf8_title||5.015007|
-to_utf8_upper||5.015007|
+to_utf8_title||5.007003|
+to_utf8_upper||5.007003|
token_free|||
token_getmad|||
tokenize_use|||
tokeq|||
tokereport|||
-too_few_arguments_pv|||
-too_few_arguments_sv|||
-too_many_arguments_pv|||
-too_many_arguments_sv|||
-translate_substr_offsets|||
+too_few_arguments|||
+too_many_arguments|||
try_amagic_bin|||
try_amagic_un|||
uiv_2buf|||n
@@ -2701,9 +2538,7 @@ 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|
@@ -2712,9 +2547,6 @@ 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|
@@ -2739,15 +2571,10 @@ 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|||
-wrap_op_checker||5.015008|
+write_no_mem|||
write_to_stderr|||
xmldump_all_perl|||
xmldump_all|||
@@ -2762,8 +2589,6 @@ xmldump_sub|||
xmldump_vindent|||
xs_apiversion_bootcheck|||
xs_version_bootcheck|||
-yyerror_pvn|||
-yyerror_pv|||
yyerror|||
yylex|||
yyparse|||
@@ -3871,10 +3696,6 @@ __DATA__
# define IVSIZE 8
#endif
-#ifndef LONGSIZE
-# define LONGSIZE 8
-#endif
-
#ifndef PERL_QUAD_MIN
# define PERL_QUAD_MIN IV_MIN
#endif
@@ -3896,10 +3717,6 @@ __DATA__
# define IVTYPE long
#endif
-#ifndef LONGSIZE
-# define LONGSIZE 4
-#endif
-
#ifndef IV_MIN
# define IV_MIN PERL_LONG_MIN
#endif
@@ -4181,15 +3998,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
@@ -4302,13 +4119,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
@@ -4380,22 +4197,16 @@ 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) ((WIDEST_UTYPE) (c) <= 127)
+# define isASCII(c) ((U8) (c) <= 127)
#endif
#ifndef isCNTRL
-# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127)
+# define isCNTRL(c) ((U8) (c) < ' ' || (c) == 127)
#endif
#ifndef isGRAPH
@@ -4649,16 +4460,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
@@ -4695,7 +4506,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;
}
@@ -4735,40 +4546,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;
}
}
@@ -4860,35 +4671,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
@@ -4925,64 +4736,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
@@ -4992,26 +4803,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"
-# elif IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
+# define IVdf "ld"
+# define UVuf "lu"
+# define UVof "lo"
+# define UVxf "lx"
+# define UVXf "lX"
# else
-# error "cannot define IV/UV formats"
+# if IVSIZE == INTSIZE
+# define IVdf "d"
+# define UVuf "u"
+# define UVof "o"
+# define UVxf "x"
+# define UVXf "X"
+# endif
# endif
#endif
@@ -5031,26 +4842,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) \
@@ -5060,11 +4871,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) \
@@ -5074,11 +4885,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) \
@@ -5438,11 +5249,6 @@ 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( \
@@ -6386,8 +6192,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
@@ -6611,7 +6417,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;
@@ -6659,7 +6465,7 @@ DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
}
}
}
- }
+ }
}
}
}
@@ -6671,7 +6477,7 @@ DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
}
}
}
- }
+ }
}
}
numtype |= IS_NUMBER_IN_UV;
@@ -6824,22 +6630,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;
@@ -6847,10 +6653,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) {
@@ -6910,7 +6716,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.
@@ -6926,22 +6732,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;
@@ -6949,10 +6755,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) {
@@ -7014,22 +6820,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). */
@@ -7042,10 +6848,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) {
@@ -7087,7 +6893,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;
}
@@ -7291,7 +7097,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))
@@ -7301,9 +7107,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)) {
@@ -7317,43 +7123,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;
}
@@ -7390,7 +7196,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, "\"");
@@ -7406,12 +7212,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);
}
@@ -7440,7 +7246,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);
}