Front page | perl.modperl.modules.svn |
Postings from August 2006
[svn:modperl-modules] r270 - Apache-Peek/trunk
From:
pgollucci@p6m7g8.com
Date:
August 6, 2006 18:57
Subject:
[svn:modperl-modules] r270 - Apache-Peek/trunk
Message ID:
20060807015652.F402BCBA4F@x12.develooper.com
Author: pgollucci@p6m7g8.com
Date: Sun Aug 6 18:56:51 2006
New Revision: 270
Modified:
Apache-Peek/trunk/ppport.h
Log:
regenerate to fix unix builds with perl 5.8.8+
Modified: Apache-Peek/trunk/ppport.h
==============================================================================
--- Apache-Peek/trunk/ppport.h (original)
+++ Apache-Peek/trunk/ppport.h Sun Aug 6 18:56:51 2006
@@ -4,14 +4,14 @@
/*
----------------------------------------------------------------------
- ppport.h -- Perl/Pollution/Portability Version 3.06
-
+ ppport.h -- Perl/Pollution/Portability Version 3.06_01
+
Automatically created by Devel::PPPort running under
- perl 5.008007 on Sat Jul 9 19:06:56 2005.
-
+ perl 5.008008 on Sun Aug 6 18:58:09 2006.
+
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
-
+
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
@@ -22,11 +22,13 @@
=head1 NAME
-ppport.h - Perl/Pollution/Portability version 3.06
+ppport.h - Perl/Pollution/Portability version 3.06_01
=head1 SYNOPSIS
- perl ppport.h [options] [files]
+ perl ppport.h [options] [source files]
+
+ Searches current directory for files if no [source files] are given
--help show short help
@@ -41,6 +43,7 @@
--nodiag don't show diagnostics
--nohints don't show hints
--nochanges don't suggest changes
+ --nofilter don't filter input files
--list-provided list provided API
--list-unsupported list unsupported API
@@ -49,7 +52,7 @@
=head1 COMPATIBILITY
This version of F<ppport.h> is designed to support operation with Perl
-installations back to 5.003, and has been tested up to 5.9.2.
+installations back to 5.003, and has been tested up to 5.9.3.
=head1 OPTIONS
@@ -113,6 +116,11 @@
Don't suggest any changes. Only give diagnostic output and hints
unless these are also deactivated.
+=head2 --nofilter
+
+Don't filter the list of input files. By default, files not looking
+like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.
+
=head2 --list-provided
Lists the API elements for which compatibility is provided by
@@ -180,23 +188,23 @@
Note that you mustn't have more than one global request for one
function in your project.
- Function Static Request Global Request
+ Function Static Request Global Request
-----------------------------------------------------------------------------------------
- eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
- grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
- grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL
- 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
- newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
- newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
- sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_GLOBAL
- sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL
- sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
+ eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
+ grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
+ grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL
+ 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
+ newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
+ newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
+ sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_GLOBAL
+ sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL
+ sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL
- sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL
+ sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL
sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_nocontext_GLOBAL
- vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL
+ vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL
To avoid namespace conflicts, you can change the namespace of the
explicitly exported functions using the C<DPPP_NAMESPACE> macro.
@@ -326,6 +334,7 @@
hints => 1,
changes => 1,
cplusplus => 0,
+ filter => 1,
);
my($ppport) = $0 =~ /([\w.]+)$/;
@@ -335,7 +344,7 @@
eval {
require Getopt::Long;
Getopt::Long::GetOptions(\%opt, qw(
- help quiet diag! hints! changes! cplusplus
+ help quiet diag! filter! hints! changes! cplusplus
patch=s copy=s diff=s compat-version=s
list-provided list-unsupported api-info=s
)) or usage();
@@ -354,7 +363,7 @@
die "Invalid version number format: '$opt{'compat-version'}'\n";
}
die "Only Perl 5 is supported\n" if $r != 5;
- die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $v >= 1000;
+ die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $s >= 1000;
$opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;
}
else {
@@ -367,32 +376,8 @@
my $rccs = quotemeta $ccs;
my $rcce = quotemeta $cce;
-my @files;
-
-if (@ARGV) {
- @files = map { glob $_ } @ARGV;
-}
-else {
- eval {
- require File::Find;
- File::Find::find(sub {
- $File::Find::name =~ /\.(xs|c|h|cc)$/i
- and push @files, $File::Find::name;
- }, '.');
- };
- if ($@) {
- @files = map { glob $_ } qw(*.xs *.c *.h *.cc);
- }
- my %filter = map { /(.*)\.xs$/ ? ("$1.c" => 1) : () } @files;
- @files = grep { !/\b\Q$ppport\E$/i && !exists $filter{$_} } @files;
-}
-
-unless (@files) {
- die "No input files given!\n";
-}
-
my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
- ? ( $1 => {
+ ? ( $1 => {
($2 ? ( base => $2 ) : ()),
($3 ? ( todo => $3 ) : ()),
(index($4, 'v') >= 0 ? ( varargs => 1 ) : ()),
@@ -491,6 +476,7 @@
PAD_BASE_SV|||
PAD_CLONE_VARS|||
PAD_COMPNAME_FLAGS|||
+PAD_COMPNAME_GEN_set|||
PAD_COMPNAME_GEN|||
PAD_COMPNAME_OURSTASH|||
PAD_COMPNAME_PV|||
@@ -503,7 +489,7 @@
PAD_SET_CUR|||
PAD_SVl|||
PAD_SV|||
-PERL_BCDVERSION|5.009002||p
+PERL_BCDVERSION|5.009003||p
PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
PERL_INT_MAX|5.004000||p
PERL_INT_MIN|5.004000||p
@@ -690,12 +676,15 @@
SvIOK|||
SvIVX|||
SvIV_nomg|5.009001||p
+SvIV_set|||
SvIVx|||
SvIV|||
SvIsCOW_shared_hash||5.008003|
SvIsCOW||5.008003|
+SvLEN_set|||
SvLEN|||
SvLOCK||5.007003|
+SvMAGIC_set||5.009003|
SvNIOK_off|||
SvNIOKp|||
SvNIOK|||
@@ -705,6 +694,7 @@
SvNOKp|||
SvNOK|||
SvNVX|||
+SvNV_set|||
SvNVx|||
SvNV|||
SvOK|||
@@ -720,6 +710,7 @@
SvPV_force|||
SvPV_nolen|5.006000||p
SvPV_nomg|5.007002||p
+SvPV_set|||
SvPVbyte_force||5.009002|
SvPVbyte_nolen||5.006000|
SvPVbytex_force||5.006000|
@@ -738,9 +729,11 @@
SvROK_off|||
SvROK_on|||
SvROK|||
+SvRV_set||5.009003|
SvRV|||
SvSETMAGIC|||
SvSHARE||5.007003|
+SvSTASH_set||5.009003|
SvSTASH|||
SvSetMagicSV_nosteal||5.004000|
SvSetMagicSV||5.004000|
@@ -761,6 +754,7 @@
SvUVXx|5.004000||p
SvUVX|5.004000||p
SvUV_nomg|5.009001||p
+SvUV_set||5.009003|
SvUVx|5.004000||p
SvUV|5.004000||p
SvVOK||5.008001|
@@ -824,6 +818,7 @@
asUV|||
atfork_lock||5.007003|n
atfork_unlock||5.007003|n
+av_arylen_p||5.009003|
av_clear|||
av_delete||5.006000|
av_exists||5.006000|
@@ -870,6 +865,47 @@
check_uni|||
checkcomma|||
checkposixcc|||
+ck_anoncode|||
+ck_bitop|||
+ck_concat|||
+ck_defined|||
+ck_delete|||
+ck_die|||
+ck_eof|||
+ck_eval|||
+ck_exec|||
+ck_exists|||
+ck_exit|||
+ck_ftst|||
+ck_fun|||
+ck_glob|||
+ck_grep|||
+ck_index|||
+ck_join|||
+ck_lengthconst|||
+ck_lfun|||
+ck_listiob|||
+ck_match|||
+ck_method|||
+ck_null|||
+ck_open|||
+ck_repeat|||
+ck_require|||
+ck_retarget|||
+ck_return|||
+ck_rfun|||
+ck_rvconst|||
+ck_sassign|||
+ck_select|||
+ck_shift|||
+ck_sort|||
+ck_spair|||
+ck_split|||
+ck_subr|||
+ck_substr|||
+ck_svconst|||
+ck_trunc|||
+ck_unpack|||
cl_and|||
cl_anything|||
cl_init_zero|||
@@ -893,6 +929,7 @@
cx_dump||5.005000|
cx_dup|||
cxinc|||
+dAXMARK||5.009003|
dAX|5.007002||p
dITEMS|5.007002||p
dMARK|||
@@ -922,18 +959,6 @@
deb||5.007003|v
del_he|||
del_sv|||
-del_xiv|||
-del_xnv|||
-del_xpvav|||
-del_xpvbm|||
-del_xpvcv|||
-del_xpvhv|||
-del_xpviv|||
-del_xpvlv|||
-del_xpvmg|||
-del_xpvnv|||
-del_xpv|||
-del_xrv|||
delimcpy||5.004000|
depcom|||
deprecate_old|||
@@ -997,7 +1022,6 @@
do_vop|||
docatch_body|||
docatch|||
-doencodes|||
doeval|||
dofile|||
dofindlabel|||
@@ -1053,6 +1077,7 @@
form||5.004000|v
fp_dup|||
fprintf_nocontext|||vn
+free_global_struct|||
free_tied_hv_pool|||
free_tmps|||
gen_constant_list|||
@@ -1112,15 +1137,19 @@
gv_stashpv|||
gv_stashsv|||
he_dup|||
+hek_dup|||
hfreeentries|||
hsplit|||
hv_assert||5.009001|
+hv_auxinit|||
hv_clear_placeholders||5.009001|
hv_clear|||
hv_delayfree_ent||5.004000|
hv_delete_common|||
hv_delete_ent||5.004000|
hv_delete|||
+hv_eiter_p||5.009003|
+hv_eiter_set||5.009003|
hv_exists_ent||5.004000|
hv_exists|||
hv_fetch_common|||
@@ -1137,7 +1166,13 @@
hv_ksplit||5.004000|
hv_magic_check|||
hv_magic|||
+hv_name_set||5.009003|
hv_notallowed|||
+hv_placeholders_get||5.009003|
+hv_placeholders_p||5.009003|
+hv_placeholders_set||5.009003|
+hv_riter_p||5.009003|
+hv_riter_set||5.009003|
hv_scalar||5.009001|
hv_store_ent||5.004000|
hv_store_flags||5.008000|
@@ -1152,6 +1187,7 @@
ingroup|||
init_argv_symbols|||
init_debugger|||
+init_global_struct|||
init_i18nl10n||5.006000|
init_i18nl14n||5.006000|
init_ids|||
@@ -1179,6 +1215,7 @@
is_gv_magical_sv|||
is_gv_magical|||
is_handle_constructor|||
+is_list_assignment|||
is_lvalue_sub||5.007001|
is_uni_alnum_lc||5.006000|
is_uni_alnumc_lc||5.006000|
@@ -1212,6 +1249,7 @@
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
+is_utf8_char_slow|||
is_utf8_char||5.006000|
is_utf8_cntrl||5.006000|
is_utf8_digit||5.006000|
@@ -1223,6 +1261,7 @@
is_utf8_print||5.006000|
is_utf8_punct||5.006000|
is_utf8_space||5.006000|
+is_utf8_string_loclen||5.009003|
is_utf8_string_loc||5.008001|
is_utf8_string||5.006001|
is_utf8_upper||5.006000|
@@ -1236,7 +1275,6 @@
lex_end|||
lex_start|||
linklist|||
-list_assignment|||
listkids|||
list|||
load_module_nocontext|||vn
@@ -1258,6 +1296,7 @@
magic_clearsig|||
magic_dump||5.006000|
magic_existspack|||
+magic_freearylen_p|||
magic_freeovrld|||
magic_freeregexp|||
magic_getarylen|||
@@ -1307,6 +1346,7 @@
magic_sizepack|||
magic_wipepack|||
magicname|||
+make_trie|||
malloced_size|||n
malloc||5.007002|n
markstack_grow|||
@@ -1326,6 +1366,7 @@
mg_free|||
mg_get|||
mg_length||5.005000|
+mg_localize|||
mg_magical|||
mg_set|||
mg_size||5.005000|
@@ -1334,20 +1375,6 @@
mode_from_discipline|||
modkids|||
mod|||
-more_he|||
-more_sv|||
-more_xiv|||
-more_xnv|||
-more_xpvav|||
-more_xpvbm|||
-more_xpvcv|||
-more_xpvhv|||
-more_xpviv|||
-more_xpvlv|||
-more_xpvmg|||
-more_xpvnv|||
-more_xpv|||
-more_xrv|||
moreswitches|||
mul128|||
mulexp10|||n
@@ -1445,6 +1472,7 @@
newSUB|||
newSVOP|||
newSVREF|||
+newSVhek||5.009003|
newSViv|||
newSVnv|||
newSVpvf_nocontext|||vn
@@ -1457,7 +1485,7 @@
newSVuv|5.006000||p
newSV|||
newUNOP|||
-newWHILEOP||5.004040|
+newWHILEOP||5.009003|
newXSproto||5.006000|
newXS||5.006000|
new_collate||5.006000|
@@ -1468,18 +1496,6 @@
new_numeric||5.006000|
new_stackinfo||5.005000|
new_version||5.009000|
-new_xiv|||
-new_xnv|||
-new_xpvav|||
-new_xpvbm|||
-new_xpvcv|||
-new_xpvhv|||
-new_xpviv|||
-new_xpvlv|||
-new_xpvmg|||
-new_xpvnv|||
-new_xpv|||
-new_xrv|||
next_symbol|||
nextargv|||
nextchar|||
@@ -1515,6 +1531,7 @@
pad_alloc|||
pad_block_start|||
pad_check_dup|||
+pad_compname_type|||
pad_findlex|||
pad_findmy|||
pad_fixup_inner_anons|||
@@ -1621,6 +1638,7 @@
run_body|||
runops_debug||5.005000|
runops_standard||5.005000|
+rvpv_dup|||
rxres_free|||
rxres_restore|||
rxres_save|||
@@ -1724,6 +1742,7 @@
stack_grow|||
start_glob|||
start_subparse||5.004000|
+stashpv_hvname_match||5.009003|
stdize_locale|||
strEQ|||
strGE|||
@@ -1944,6 +1963,7 @@
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
+varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
@@ -2062,6 +2082,44 @@
exit 0;
}
+my @files;
+my @srcext = qw( xs c h cc cpp );
+my $srcext = join '|', @srcext;
+
+if (@ARGV) {
+ my %seen;
+ @files = grep { -f && !exists $seen{$_} } map { glob $_ } @ARGV;
+}
+else {
+ eval {
+ require File::Find;
+ File::Find::find(sub {
+ $File::Find::name =~ /\.($srcext)$/i
+ and push @files, $File::Find::name;
+ }, '.');
+ };
+ if ($@) {
+ @files = map { glob "*.$_" } @srcext;
+ }
+}
+
+if (!@ARGV || $opt{filter}) {
+ my(@in, @out);
+ my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files;
+ for (@files) {
+ my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/\.($srcext)$/i;
+ push @{ $out ? \@out : \@in }, $_;
+ }
+ if (@ARGV && @out) {
+ warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out);
+ }
+ @files = @in;
+}
+
+unless (@files) {
+ die "No input files given!\n";
+}
+
my(%files, %global, %revreplace);
%revreplace = reverse %replace;
my $filename;
@@ -2596,7 +2654,7 @@
#define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION)
-/* It is very unlikely that anyone will try to use this with Perl 6
+/* It is very unlikely that anyone will try to use this with Perl 6
(or greater), but who knows.
*/
#if PERL_REVISION != 5
@@ -3032,14 +3090,16 @@
/* Replace: 0 */
#endif
-#ifdef HASATTRIBUTE
-# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
-# define PERL_UNUSED_DECL
+#ifndef PERL_UNUSED_DECL
+# ifdef HASATTRIBUTE
+# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
+# define PERL_UNUSED_DECL
+# else
+# define PERL_UNUSED_DECL __attribute__((unused))
+# endif
# else
-# define PERL_UNUSED_DECL __attribute__((unused))
+# define PERL_UNUSED_DECL
# endif
-#else
-# define PERL_UNUSED_DECL
#endif
#ifndef NOOP
# define NOOP (void)0
@@ -3080,7 +3140,7 @@
# if PTRSIZE == LONGSIZE
# define PTR2ul(p) (unsigned long)(p)
# else
-# define PTR2ul(p) INT2PTR(unsigned long,p)
+# define PTR2ul(p) INT2PTR(unsigned long,p)
# endif
#endif /* !INT2PTR */
@@ -3246,15 +3306,15 @@
#endif
#ifndef pTHX_
-# define pTHX_
+# define pTHX_
#endif
#ifndef aTHX
-# define aTHX
+# define aTHX
#endif
#ifndef aTHX_
-# define aTHX_
+# define aTHX_
#endif
#ifndef dTHXoa
# define dTHXoa(x) dTHXa(x)
@@ -3572,7 +3632,7 @@
#ifndef NVef
# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
+ defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
# define NVef PERL_PRIeldbl
# define NVff PERL_PRIfldbl
# define NVgf PERL_PRIgldbl
@@ -3602,7 +3662,7 @@
char *
DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv)
-{
+{
STRLEN n_a;
return sv_2pv(sv, &n_a);
}
@@ -3646,7 +3706,7 @@
char *
DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp)
-{
+{
sv_utf8_downgrade(sv,0);
return SvPV(sv,*lp);
}
@@ -4324,12 +4384,12 @@
{
#ifdef USE_LOCALE_NUMERIC
#ifdef PL_numeric_radix_sv
- if (PL_numeric_radix_sv && IN_LOCALE) {
+ if (PL_numeric_radix_sv && IN_LOCALE) {
STRLEN len;
char* radix = SvPV(PL_numeric_radix_sv, len);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
- return TRUE;
+ return TRUE;
}
}
#else
@@ -4340,11 +4400,11 @@
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
- if (radix && IN_LOCALE) {
+ if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
- return TRUE;
+ return TRUE;
}
}
#endif /* PERL_VERSION */
@@ -4657,7 +4717,7 @@
warn("Illegal binary digit '%c' ignored", *s);
break;
}
-
+
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
|| (!overflowed && value > 0xffffffff )
@@ -4759,7 +4819,7 @@
warn("Illegal hexadecimal digit '%c' ignored", *s);
break;
}
-
+
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
|| (!overflowed && value > 0xffffffff )
@@ -4852,7 +4912,7 @@
}
break;
}
-
+
if ( ( overflowed && value_nv > 4294967295.0)
#if UVSIZE > 4
|| (!overflowed && value > 0xffffffff )
-
[svn:modperl-modules] r270 - Apache-Peek/trunk
by pgollucci@p6m7g8.com