Michael A Nachbaur wrote:
--- TestServer.pm-orig 2004-05-12 00:41:21.172613400 -0700
+++ TestServer.pm 2004-05-12 00:41:24.507106480 -0700
@@ -55,6 +55,10 @@
$self->{version} = $self->{config}->httpd_version || '';
$self->{mpm} = $self->{config}->httpd_mpm || '';
($self->{rev}) = $self->{version} =~ m:^Apache/(\d)\.:;
+ ($self->{rev}) = $self->{version} =~ m:^Apache.*?/(\d)\.:
+ unless ($self->{rev});
+ ($self->{rev}) = $self->{version} =~ m:^.*?Apache.*?/(\d)\.:
+ unless ($self->{rev});
$self->{rev} ||= 2;
$self;
Thanks Michael, committed.
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
