From 744ef08f7a0cf217b22effff01fb1d9f7f244aea Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Wed, 14 Jan 2015 16:49:58 +0000 Subject: [PATCH] Update Devel-PPPort to CPAN version 3.27 [DELTA] 3.27 - 2015-01-13 * Regen base and todo files. * Fix isASCII and isCNTRL for <5.6.0 * Other minor fixups. (Thanks to mhx for all of the work on this release) --- Porting/Maintainers.pl | 2 +- cpan/Devel-PPPort/PPPort_pm.PL | 2 +- cpan/Devel-PPPort/devel/mktodo | 2 +- cpan/Devel-PPPort/devel/regenerate | 2 +- cpan/Devel-PPPort/parts/apicheck.pl | 7 + cpan/Devel-PPPort/parts/apidoc.fnc | 23 +- cpan/Devel-PPPort/parts/base/5004000 | 48 +-- cpan/Devel-PPPort/parts/base/5004050 | 2 - cpan/Devel-PPPort/parts/base/5005000 | 1 - cpan/Devel-PPPort/parts/base/5006000 | 6 +- cpan/Devel-PPPort/parts/base/5007001 | 4 + cpan/Devel-PPPort/parts/base/5010000 | 2 - cpan/Devel-PPPort/parts/base/5010001 | 2 + cpan/Devel-PPPort/parts/base/5011000 | 1 - cpan/Devel-PPPort/parts/base/5013004 | 1 - cpan/Devel-PPPort/parts/base/5013011 | 1 - cpan/Devel-PPPort/parts/base/5014000 | 1 + cpan/Devel-PPPort/parts/base/5015006 | 4 - cpan/Devel-PPPort/parts/base/5015009 | 1 + cpan/Devel-PPPort/parts/base/5017011 | 1 - cpan/Devel-PPPort/parts/base/5018000 | 1 + cpan/Devel-PPPort/parts/base/5019002 | 22 - cpan/Devel-PPPort/parts/base/5019003 | 36 -- cpan/Devel-PPPort/parts/embed.fnc | 778 ++++++++++++++++++++--------------- cpan/Devel-PPPort/parts/inc/magic | 6 +- cpan/Devel-PPPort/parts/inc/misc | 6 +- cpan/Devel-PPPort/parts/inc/ppphdoc | 2 +- cpan/Devel-PPPort/parts/todo/5004000 | 30 +- cpan/Devel-PPPort/parts/todo/5004050 | 2 - cpan/Devel-PPPort/parts/todo/5005000 | 1 - cpan/Devel-PPPort/parts/todo/5006000 | 5 +- cpan/Devel-PPPort/parts/todo/5007001 | 5 +- cpan/Devel-PPPort/parts/todo/5008000 | 1 + cpan/Devel-PPPort/parts/todo/5009005 | 1 - cpan/Devel-PPPort/parts/todo/5010000 | 2 - cpan/Devel-PPPort/parts/todo/5010001 | 1 - cpan/Devel-PPPort/parts/todo/5011000 | 1 - cpan/Devel-PPPort/parts/todo/5013004 | 1 - cpan/Devel-PPPort/parts/todo/5013005 | 1 - cpan/Devel-PPPort/parts/todo/5013008 | 2 - cpan/Devel-PPPort/parts/todo/5013011 | 1 - cpan/Devel-PPPort/parts/todo/5014000 | 1 + cpan/Devel-PPPort/parts/todo/5015006 | 4 - cpan/Devel-PPPort/parts/todo/5015009 | 1 + cpan/Devel-PPPort/parts/todo/5017011 | 1 - cpan/Devel-PPPort/parts/todo/5018000 | 1 + cpan/Devel-PPPort/parts/todo/5019003 | 35 -- cpan/Devel-PPPort/soak | 2 +- 48 files changed, 525 insertions(+), 538 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 21284a5..300aaa4 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -334,7 +334,7 @@ use File::Glob qw(:case); }, 'Devel::PPPort' => { - 'DISTRIBUTION' => 'WOLFSAGE/Devel-PPPort-3.26.tar.gz', + 'DISTRIBUTION' => 'WOLFSAGE/Devel-PPPort-3.27.tar.gz', # RJBS has asked MHX to have UPSTREAM be 'blead' # (i.e. move this from cpan/ to dist/) 'FILES' => q[cpan/Devel-PPPort], diff --git a/cpan/Devel-PPPort/PPPort_pm.PL b/cpan/Devel-PPPort/PPPort_pm.PL index 7eb0da7..76881ff 100644 --- a/cpan/Devel-PPPort/PPPort_pm.PL +++ b/cpan/Devel-PPPort/PPPort_pm.PL @@ -539,7 +539,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = '3.26'; +$VERSION = '3.27'; sub _init_data { diff --git a/cpan/Devel-PPPort/devel/mktodo b/cpan/Devel-PPPort/devel/mktodo index ff42bd7..c5c2a9b 100644 --- a/cpan/Devel-PPPort/devel/mktodo +++ b/cpan/Devel-PPPort/devel/mktodo @@ -35,7 +35,7 @@ my $outdir = 'parts/todo'; my @perls = sort { $b->{version} <=> $a->{version} } map { { version => `$_ -e 'printf "%.6f", \$]'`, path => $_ } } - ($opt{blead}, glob "$opt{install}/*/bin/perl5.*"); + ($opt{blead}, grep !/-RC\d+/, glob "$opt{install}/*/bin/perl5.*"); if (exists $opt{'blead-version'}) { $perls[0]{version} = $opt{'blead-version'}; diff --git a/cpan/Devel-PPPort/devel/regenerate b/cpan/Devel-PPPort/devel/regenerate index 41a65ac..dad5338 100644 --- a/cpan/Devel-PPPort/devel/regenerate +++ b/cpan/Devel-PPPort/devel/regenerate @@ -72,7 +72,7 @@ for my $dir (qw( base todo )) { print "\nBacking up $cur in $old.\n"; for my $src (@{$files{$dir}}) { my $dst = $src; - $dst =~ s/\E$cur/$old/ or die "Ooops!"; + $dst =~ s/\Q$cur/$old/ or die "Ooops!"; move($src, $dst) or die "Moving $src to $dst failed: $!\n"; } } diff --git a/cpan/Devel-PPPort/parts/apicheck.pl b/cpan/Devel-PPPort/parts/apicheck.pl index bea9bac..cb59f4b 100644 --- a/cpan/Devel-PPPort/parts/apicheck.pl +++ b/cpan/Devel-PPPort/parts/apicheck.pl @@ -137,6 +137,7 @@ print OUT <mg_moremagic) { @@ -420,7 +420,7 @@ as_string(self) if ((mg = mg_findext((SV*)obj, PERL_MAGIC_ext, &null_mg_vtbl))) { XPUSHs(sv_2mortal(newSVpv(mg->mg_ptr, strlen(mg->mg_ptr)))); } else { - XPUSHs(sv_2mortal(newSVpvs("Sorry, your princess is in another castle."))); + XPUSHs(sv_2mortal(newSVpvs("Sorry, your princess is in another castle."))); } void diff --git a/cpan/Devel-PPPort/parts/inc/misc b/cpan/Devel-PPPort/parts/inc/misc index e70f7f5..c39acd0 100644 --- a/cpan/Devel-PPPort/parts/inc/misc +++ b/cpan/Devel-PPPort/parts/inc/misc @@ -272,7 +272,11 @@ __UNDEFINED__ isXDIGIT(c) isxdigit(c) # endif #ifdef HAS_QUAD -# define WIDEST_UTYPE U64TYPE +# ifdef U64TYPE +# define WIDEST_UTYPE U64TYPE +# else +# define WIDEST_UTYPE Quad_t +# endif #else # define WIDEST_UTYPE U32 #endif diff --git a/cpan/Devel-PPPort/parts/inc/ppphdoc b/cpan/Devel-PPPort/parts/inc/ppphdoc index 06feb79..09e987a 100644 --- a/cpan/Devel-PPPort/parts/inc/ppphdoc +++ b/cpan/Devel-PPPort/parts/inc/ppphdoc @@ -83,7 +83,7 @@ to be installed on your system. If this option is given, a copy of each file will be saved with the given suffix that contains the suggested changes. This does not require any external programs. Note that this does not -automagially add a dot between the original filename and the +automagically add a dot between the original filename and the suffix. If you want the dot, you have to include it in the option argument. diff --git a/cpan/Devel-PPPort/parts/todo/5004000 b/cpan/Devel-PPPort/parts/todo/5004000 index a273e43..0fa079e 100644 --- a/cpan/Devel-PPPort/parts/todo/5004000 +++ b/cpan/Devel-PPPort/parts/todo/5004000 @@ -1,46 +1,27 @@ 5.004000 GIMME_V # E G_VOID # E -HEf_SVKEY # E -HeHASH # U -HeKEY # U -HeKLEN # U -HePV # U -HeSVKEY # U -HeSVKEY_force # U +HePV # A HeSVKEY_set # U -HeVAL # U SvSetMagicSV # U SvSetMagicSV_nosteal # U SvSetSV_nosteal # U SvTAINTED # U SvTAINTED_off # U SvTAINTED_on # U -XCPT_TRY_END # U -XCPT_TRY_START # U +block_end # E (Perl_block_end) block_gimme # U +block_start # E (Perl_block_start) call_list # U -cv_const_sv # U delimcpy # U -do_open # E (Perl_do_open) form # U gv_autoload4 # U -gv_efullname3 # U gv_fetchmethod_autoload # U -gv_fullname3 # U hv_delayfree_ent # U -hv_delete_ent # U -hv_exists_ent # U -hv_fetch_ent # U hv_free_ent # U -hv_iterkeysv # U -hv_ksplit # U -hv_store_ent # U ibcmp_locale # U +intro_my # U my_failure_exit # U -my_memset # U -my_pclose # E (Perl_my_pclose) -my_popen # E (Perl_my_popen) newSVpvf # U rsignal # E rsignal_state # E @@ -52,7 +33,6 @@ sv_catpvf # U sv_catpvf_mg # U sv_cmp_locale # U sv_derived_from # U -sv_gets # E (Perl_sv_gets) sv_magic_portable # U sv_setpvf # U sv_setpvf_mg # U @@ -66,7 +46,5 @@ sv_vsetpvf # U sv_vsetpvf_mg # U sv_vsetpvfn # U toLOWER_LC # U -toUPPER # U -unsharepvn # U vnewSVpvf # U warner # U diff --git a/cpan/Devel-PPPort/parts/todo/5004050 b/cpan/Devel-PPPort/parts/todo/5004050 index 4db6191..57937e8 100644 --- a/cpan/Devel-PPPort/parts/todo/5004050 +++ b/cpan/Devel-PPPort/parts/todo/5004050 @@ -1,7 +1,5 @@ 5.004050 -Copy # U CopyD # E -Move # U MoveD # E do_binmode # U save_aelem # U diff --git a/cpan/Devel-PPPort/parts/todo/5005000 b/cpan/Devel-PPPort/parts/todo/5005000 index 9909762..e27a06d 100644 --- a/cpan/Devel-PPPort/parts/todo/5005000 +++ b/cpan/Devel-PPPort/parts/todo/5005000 @@ -20,7 +20,6 @@ runops_debug # U runops_standard # U save_iv # U (save_iv) save_op # U -screaminstr # E (Perl_screaminstr) sv_iv # U sv_nv # U sv_peek # U diff --git a/cpan/Devel-PPPort/parts/todo/5006000 b/cpan/Devel-PPPort/parts/todo/5006000 index ec708fc..17d829f 100644 --- a/cpan/Devel-PPPort/parts/todo/5006000 +++ b/cpan/Devel-PPPort/parts/todo/5006000 @@ -1,4 +1,5 @@ 5.006000 +PERL_SYS_INIT3 # U PL_check # E SvIOK_UV # U SvIOK_notUV # U @@ -19,6 +20,7 @@ SvUTF8_on # U av_delete # U av_exists # U call_atexit # E +caller_cx # U cast_i32 # U (cast_i32) cast_iv # U (cast_iv) cast_ulong # U @@ -43,8 +45,6 @@ get_ppaddr # E gv_dump # U init_i18nl10n # U (perl_init_i18nl10n) init_i18nl14n # U (perl_init_i18nl14n) -isASCII # E -isCNTRL # E is_uni_alnum # U is_uni_alnum_lc # U is_uni_alpha # U @@ -137,7 +137,6 @@ sv_utf8_decode # U sv_utf8_downgrade # U sv_utf8_encode # U swash_init # U -tmps_grow # U to_uni_lower_lc # U to_uni_title_lc # U to_uni_upper_lc # U diff --git a/cpan/Devel-PPPort/parts/todo/5007001 b/cpan/Devel-PPPort/parts/todo/5007001 index 4e9e2d0..cee6dec 100644 --- a/cpan/Devel-PPPort/parts/todo/5007001 +++ b/cpan/Devel-PPPort/parts/todo/5007001 @@ -1,6 +1,7 @@ 5.007001 +ASCII_TO_NEED # U +NATIVE_TO_NEED # U POPpbytex # E -XCPT_RETHROW # U bytes_from_utf8 # U despatch_signals # U do_openn # U @@ -16,5 +17,7 @@ sv_utf8_upgrade # E (Perl_sv_utf8_upgrade) utf8_length # U utf8_to_uvchr # U utf8_to_uvuni # U +utf8n_to_uvchr # U utf8n_to_uvuni # U +uvchr_to_utf8 # U uvuni_to_utf8 # U diff --git a/cpan/Devel-PPPort/parts/todo/5008000 b/cpan/Devel-PPPort/parts/todo/5008000 index a22b04e..3a4d23e 100644 --- a/cpan/Devel-PPPort/parts/todo/5008000 +++ b/cpan/Devel-PPPort/parts/todo/5008000 @@ -1,4 +1,5 @@ 5.008000 +HeUTF8 # U hv_iternext_flags # U hv_store_flags # U is_utf8_idcont # U diff --git a/cpan/Devel-PPPort/parts/todo/5009005 b/cpan/Devel-PPPort/parts/todo/5009005 index 1935e23..497ee91 100644 --- a/cpan/Devel-PPPort/parts/todo/5009005 +++ b/cpan/Devel-PPPort/parts/todo/5009005 @@ -1,5 +1,4 @@ 5.009005 -PL_parser # E Perl_signbit # U SvRX # U SvRXOK # U diff --git a/cpan/Devel-PPPort/parts/todo/5010000 b/cpan/Devel-PPPort/parts/todo/5010000 index fdee1eb..737f374 100644 --- a/cpan/Devel-PPPort/parts/todo/5010000 +++ b/cpan/Devel-PPPort/parts/todo/5010000 @@ -1,6 +1,4 @@ 5.010000 -PERL_SYS_INIT # U -PERL_SYS_INIT3 # U hv_common # U hv_common_key_len # U sv_destroyable # U diff --git a/cpan/Devel-PPPort/parts/todo/5010001 b/cpan/Devel-PPPort/parts/todo/5010001 index 9b95518..4ec5eee 100644 --- a/cpan/Devel-PPPort/parts/todo/5010001 +++ b/cpan/Devel-PPPort/parts/todo/5010001 @@ -1,5 +1,4 @@ 5.010001 -HeUTF8 # U croak_xs_usage # U mro_get_from_name # U mro_get_private_data # U diff --git a/cpan/Devel-PPPort/parts/todo/5011000 b/cpan/Devel-PPPort/parts/todo/5011000 index 805d8b1..92ac2b0 100644 --- a/cpan/Devel-PPPort/parts/todo/5011000 +++ b/cpan/Devel-PPPort/parts/todo/5011000 @@ -4,7 +4,6 @@ PL_opfreehook # E SVt_REGEXP # E SvOOK_offset # U av_iter_p # U -gv_add_by_type # U is_ascii_string # U pregfree2 # U save_adelete # U diff --git a/cpan/Devel-PPPort/parts/todo/5013004 b/cpan/Devel-PPPort/parts/todo/5013004 index 20b0810..8aac89e 100644 --- a/cpan/Devel-PPPort/parts/todo/5013004 +++ b/cpan/Devel-PPPort/parts/todo/5013004 @@ -1,2 +1 @@ 5.013004 -XS_APIVERSION_BOOTCHECK # E diff --git a/cpan/Devel-PPPort/parts/todo/5013005 b/cpan/Devel-PPPort/parts/todo/5013005 index 88c7c7b..e9cd3e8 100644 --- a/cpan/Devel-PPPort/parts/todo/5013005 +++ b/cpan/Devel-PPPort/parts/todo/5013005 @@ -1,6 +1,5 @@ 5.013005 PL_rpeepp # E -caller_cx # U isOCTAL # U lex_stuff_pvs # U parse_fullstmt # U diff --git a/cpan/Devel-PPPort/parts/todo/5013008 b/cpan/Devel-PPPort/parts/todo/5013008 index 5c315d6..8e95c5d 100644 --- a/cpan/Devel-PPPort/parts/todo/5013008 +++ b/cpan/Devel-PPPort/parts/todo/5013008 @@ -1,8 +1,6 @@ 5.013008 foldEQ_latin1 # U -mg_findext # U parse_arithexpr # U parse_fullexpr # U parse_listexpr # U parse_termexpr # U -sv_unmagicext # U diff --git a/cpan/Devel-PPPort/parts/todo/5013011 b/cpan/Devel-PPPort/parts/todo/5013011 index dce5830..a33715f 100644 --- a/cpan/Devel-PPPort/parts/todo/5013011 +++ b/cpan/Devel-PPPort/parts/todo/5013011 @@ -1,2 +1 @@ 5.013011 -_to_uni_fold_flags # U diff --git a/cpan/Devel-PPPort/parts/todo/5014000 b/cpan/Devel-PPPort/parts/todo/5014000 index cfe7822..3f837ef 100644 --- a/cpan/Devel-PPPort/parts/todo/5014000 +++ b/cpan/Devel-PPPort/parts/todo/5014000 @@ -1 +1,2 @@ 5.014000 +_to_uni_fold_flags # U diff --git a/cpan/Devel-PPPort/parts/todo/5015006 b/cpan/Devel-PPPort/parts/todo/5015006 index 6e7f923..4fb3c7c 100644 --- a/cpan/Devel-PPPort/parts/todo/5015006 +++ b/cpan/Devel-PPPort/parts/todo/5015006 @@ -1,6 +1,2 @@ 5.015006 -_to_utf8_fold_flags # A -_to_utf8_lower_flags # U -_to_utf8_title_flags # U -_to_utf8_upper_flags # U newCONSTSUB_flags # A diff --git a/cpan/Devel-PPPort/parts/todo/5015009 b/cpan/Devel-PPPort/parts/todo/5015009 index 0836f1f..30537f0 100644 --- a/cpan/Devel-PPPort/parts/todo/5015009 +++ b/cpan/Devel-PPPort/parts/todo/5015009 @@ -1,4 +1,5 @@ 5.015009 utf8_to_uvchr_buf # U utf8_to_uvuni_buf # U +valid_utf8_to_uvchr # U valid_utf8_to_uvuni # U diff --git a/cpan/Devel-PPPort/parts/todo/5017011 b/cpan/Devel-PPPort/parts/todo/5017011 index 1199629..5fcf051 100644 --- a/cpan/Devel-PPPort/parts/todo/5017011 +++ b/cpan/Devel-PPPort/parts/todo/5017011 @@ -1,2 +1 @@ 5.017011 -hv_rand_set # U diff --git a/cpan/Devel-PPPort/parts/todo/5018000 b/cpan/Devel-PPPort/parts/todo/5018000 index 7edf9ef..17729d0 100644 --- a/cpan/Devel-PPPort/parts/todo/5018000 +++ b/cpan/Devel-PPPort/parts/todo/5018000 @@ -1 +1,2 @@ 5.018000 +hv_rand_set # U diff --git a/cpan/Devel-PPPort/parts/todo/5019003 b/cpan/Devel-PPPort/parts/todo/5019003 index 7b5fa37..488ef60 100644 --- a/cpan/Devel-PPPort/parts/todo/5019003 +++ b/cpan/Devel-PPPort/parts/todo/5019003 @@ -1,38 +1,3 @@ 5.019003 -BhkDISABLE # E -BhkENABLE # E -BhkENTRY_set # E -MULTICALL # E -PERL_SYS_TERM # E -POP_MULTICALL # E -PUSH_MULTICALL # E -PadARRAY # E -PadMAX # E -PadlistARRAY # E -PadlistMAX # E -PadlistNAMES # E -PadlistNAMESARRAY # E -PadlistNAMESMAX # E -PadnameLEN # E -PadnamePV # E -PadnameSV # E -PadnameUTF8 # E -PadnamelistARRAY # E -PadnamelistMAX # E -XS_EXTERNAL # E -XS_INTERNAL # E -XopDISABLE # E -XopENABLE # E -XopENTRY # E -XopENTRY_set # E -cophh_new_empty # E croak_memory_wrap # U (Perl_croak_memory_wrap) -my_lstat # U (Perl_my_lstat) -my_stat # U (Perl_my_stat) -reentrant_free # U -reentrant_init # U -reentrant_retry # U -reentrant_size # U -ref # U (Perl_ref) sv_pos_b2u_flags # U -sv_setref_pvs # A diff --git a/cpan/Devel-PPPort/soak b/cpan/Devel-PPPort/soak index 9e8a244..d94b255 100644 --- a/cpan/Devel-PPPort/soak +++ b/cpan/Devel-PPPort/soak @@ -27,7 +27,7 @@ use File::Find; use List::Util qw(max); use Config; -my $VERSION = '3.26'; +my $VERSION = '3.27'; $| = 1; my %OPT = ( -- 1.8.3.1