my $mmn_major = $cfg->{httpd_info}{MODULE_MAGIC_NUMBER_MAJOR};
my $mmn_minor = $cfg->{httpd_info}{MODULE_MAGIC_NUMBER_MINOR};
for (my $modp = $top_module; $modp; $modp = $modp->next) {
my $name = $modp->name;
ok $name;
t_debug("Testing module: " . $modp->name);
ok t_cmp $modp->ap_api_major_version, $mmn_major;
# fails the next line
ok $modp->ap_api_minor_version <= $mmn_minor;
t_debug(sprintf "minor: api=%d, mmn_=%d",
$modp->ap_api_minor_version, $mmn_minor);
ok $modp->module_index >= 0;
my $cmds = $modp->cmds;
ok !defined($cmds) || ref($cmds) eq 'Apache2::Command';
}
# Testing module: TestDirective::perlloadmodule4 # expected: 20020903 # received: 20020903 ok 49 not ok 50 # minor: api=9, mmn_=7 ok 51 ok 52 ok 53
apache modules are just fine:
# Testing module: core.c # expected: 20020903 # received: 20020903 ok 289 ok 290 # minor: api=7, mmn_=7 ok 291 ok 292
gozer, what your smokes say? or is it still a planned thing to set up things for modperl?
-- __________________________________________________________________ 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
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
