On Thu, 6 Sep 2001, Doug MacEachern wrote:
> On Thu, 6 Sep 2001, Stas Bekman wrote:
>
> > OK, can somebody test this patch? the latest httpd source fails to get
> > parsed for me (via 'make source_scan'), so I cannot verify my patch.
>
> whats the error?
/home/stas/perl-bleed/bin/perl util/source_scan.pl
=> I was always getting the following.
panic: not expecting 'tcpi_rcv_wscale' after array bounds in '
u_int8_t tcpi_snd_wscale : 4, tcpi_rcv_wscale : 4;'
=> below is the new error, since the new httpd src update
Expecting parenth after identifier in `static __inline__ apr_uuid_t
*mpxs_apr_uuid_get( PerlInterpreter *my_perl, SV *CLASS)'
after `static __inline__ apr_uuid_t ' at /home/stas/perl-bleed/lib/5.7.1/C/Scan.pm
line 783.
C::Scan::do_declaration('static __inline__ apr_uuid_t *mpxs_apr_uuid_get(
PerlInterpreter *my_perl, SV *CLASS)','HASH(0x8604554)','HASH(0x860ee9c)') called at
/home/stas/perl-bleed/lib/5.7.1/C/Scan.pm line 738
C::Scan::do_declarations('ARRAY(0x8604560)','HASH(0x8604554)','HASH(0x860ee9c)')
called at /home/stas/perl-bleed/lib/site_perl/5.7.1/Data/Flow.pm line 69
Data::Flow::request('Apache::ParseSource::Scan=ARRAY(0x8be8ff4)','parsed_fdecls')
called at /home/stas/perl-bleed/lib/site_perl/5.7.1/Data/Flow.pm line 39
Data::Flow::get('Apache::ParseSource::Scan=ARRAY(0x8be8ff4)','parsed_fdecls')
called at lib/Apache/ParseSource.pm line 49
Apache::ParseSource::Scan::get('Apache::ParseSource::Scan=ARRAY(0x8be8ff4)','parsed_fdecls')
called at lib/Apache/ParseSource.pm line 291
Apache::ParseSource::get_functions('ModPerl::ParseSource=HASH(0x8c31b28)')
called at lib/Apache/ParseSource.pm line 381
Apache::ParseSource::write_functions_pm('ModPerl::ParseSource=HASH(0x8c31b28)','FunctionTable.pm','ModPerl::FunctionTable')
called at lib/ModPerl/ParseSource.pm line 40
ModPerl::ParseSource::write_functions_pm('ModPerl::ParseSource=HASH(0x8c31b28)')
called at util/source_scan.pl line 26
make: *** [source_scan] Error 255
> > + (my $old = $old_content) =~ s/\w{3} \w{3} \d+ \d+:\d+:\d+ \d{4}//;
> > + (my $new = $new_content) =~ s/\w{3} \w{3} \d+ \d+:\d+:\d+ \d{4}//;
>
> doesn't work,
must be a wrong pattern, I didn't test it :(
> but this does:
> my $table_header = qr{^\#\s!.*};
> (my $old = $old_content) =~ s/$table_header//mg;
> (my $new = $new_content) =~ s/$table_header//mg;
>
> i would rather rip out the entire header anyhow, since $VERSION might
> change, we might add other stuff, etc.
since I cannot test please commit if it works for you, thanks.
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
