my $src = Apache::src->new;
my $v = $src->httpd_version;
returns the server version. And:
my $dir = $src->dir;
-d $dir or die "can't stat $dir $!\n";
returns the top level directory where source files are located and
then tests whether it can read it.
The main( ) method will return the location of
httpd.h:
-e join "/", $src->main, "httpd.h" or die "can't stat httpd.h\n";
Other methods are available from this module.
Supplied with the mod_perl distribution. See the module manpage for
more information.