dougm 01/06/29 12:10:31
Modified: lib/Apache ParseSource.pm
xs/tables/current/Apache FunctionTable.pm
Log:
work around C::Scan confusion over ap_run_error_log
Revision Changes Path
1.20 +8 -0 modperl-2.0/lib/Apache/ParseSource.pm
Index: ParseSource.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- ParseSource.pm 2001/06/28 23:24:17 1.19
+++ ParseSource.pm 2001/06/29 19:10:21 1.20
@@ -302,6 +302,14 @@
$rtype =~ s/^$_\s+//;
}
+ #XXX: working around C::Scan confusion here
+ #macro defines ap_run_error_log causes
+ #cpp filename:linenumber to be included as part of the type
+ for (@$args) {
+ next unless $_->[0];
+ $_->[0] =~ s/^\#.*?\"\s+//;
+ }
+
my $func = {
name => $name,
return_type => $rtype,
1.11 +4 -7 modperl-2.0/xs/tables/current/Apache/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/Apache/FunctionTable.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- FunctionTable.pm 2001/06/28 17:32:48 1.10
+++ FunctionTable.pm 2001/06/29 19:10:28 1.11
@@ -2,7 +2,7 @@
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# ! WARNING: generated by Apache::ParseSource/0.02
-# ! Thu Jun 28 10:21:05 2001
+# ! Fri Jun 29 11:44:12 2001
# ! do NOT edit, any changes will be lost !
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -3379,8 +3379,7 @@
'name' => 'level'
},
{
- 'type' => '# 281 "/home/dougm/ap/threaded/include/http_log.h"
- apr_status_t status',
+ 'type' => 'apr_status_t status',
'name' => 'arg3'
},
{
@@ -3388,8 +3387,7 @@
'name' => 's'
},
{
- 'type' => '# 281 "/home/dougm/ap/threaded/include/http_log.h"
- const request_rec *r',
+ 'type' => 'const request_rec *r',
'name' => 'arg5'
},
{
@@ -3397,8 +3395,7 @@
'name' => 'pool'
},
{
- 'type' => '# 281 "/home/dougm/ap/threaded/include/http_log.h"
- const char *errstr',
+ 'type' => 'const char *errstr',
'name' => 'arg7'
}
]
