dougm 01/10/07 12:22:49
Modified: lib/ModPerl TypeMap.pm
xs/Apache/Filter Apache__Filter.h
xs/maps apache_functions.map apr_functions.map
Log:
remove ModPerl::TypeMap::first_class guessing based on return_type
Revision Changes Path
1.11 +0 -2 modperl-2.0/lib/ModPerl/TypeMap.pm
Index: TypeMap.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/TypeMap.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- TypeMap.pm 2001/09/15 18:17:31 1.10
+++ TypeMap.pm 2001/10/07 19:22:49 1.11
@@ -266,8 +266,6 @@
sub first_class {
my($self, $func) = @_;
- return $func->{return_type} if $func->{return_type} =~ /::/;
-
for my $e (@{ $func->{args} }) {
next unless $e->{type} =~ /::/;
#there are alot of util functions that take an APR::Pool
1.15 +3 -0 modperl-2.0/xs/Apache/Filter/Apache__Filter.h
Index: Apache__Filter.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/Filter/Apache__Filter.h,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Apache__Filter.h 2001/08/30 01:08:24 1.14
+++ Apache__Filter.h 2001/10/07 19:22:49 1.15
@@ -1,6 +1,9 @@
#define mpxs_Apache__RequestRec_add_output_filter(r, name, ctx) \
ap_add_output_filter(name, ctx, r, NULL)
+#define mpxs_Apache__RequestRec_add_input_filter(r, name, ctx) \
+ap_add_output_filter(name, ctx, r, NULL)
+
#define mp_xs_sv2_modperl_filter(sv) \
((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
|| (Perl_croak(aTHX_ "argument is not a blessed reference"),0) ? \
1.32 +3 -1 modperl-2.0/xs/maps/apache_functions.map
Index: apache_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apache_functions.map,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- apache_functions.map 2001/10/06 01:03:27 1.31
+++ apache_functions.map 2001/10/07 19:22:49 1.32
@@ -193,10 +193,12 @@
MODULE=Apache::Filter PACKAGE=Apache::RequestRec
ap_filter_t *:DEFINE_add_output_filter | | \
request_rec *:r, const char *:name, void *:ctx
+ap_filter_t *:DEFINE_add_input_filter | | \
+ request_rec *:r, const char *:name, void *:ctx
PACKAGE=guess
~ap_add_output_filter
- ap_add_input_filter
+~ap_add_input_filter
ap_get_brigade | mpxs_ | \
filter, bucket, mode=AP_MODE_NONBLOCKING, SV *:readbytes=Nullsv
ap_pass_brigade
1.24 +1 -1 modperl-2.0/xs/maps/apr_functions.map
Index: apr_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- apr_functions.map 2001/09/28 17:20:32 1.23
+++ apr_functions.map 2001/10/07 19:22:49 1.24
@@ -454,7 +454,7 @@
apr_getnameinfo
-apr_getservbyname
apr_parse_addr_port
-PACKAGE=guess
+PACKAGE=APR::IpSubnet
apr_ipsubnet_t *:apr_ipsubnet_create | mpxs_ | \
SV *:CLASS, p, ipstr, mask_or_numbits=NULL | new
apr_ipsubnet_test
