dougm 02/05/13 09:13:06 Modified: t/response/TestAPI module.pm Log: mod_perl.c will not always be the top_module (may cause api/module #3 to fail) Revision Changes Path 1.5 +4 -2 modperl-2.0/t/response/TestAPI/module.pm Index: module.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/module.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- module.pm 11 Apr 2002 11:08:43 -0000 1.4 +++ module.pm 13 May 2002 16:13:06 -0000 1.5 @@ -1,3 +1,4 @@ + package TestAPI::module; use strict; @@ -32,9 +33,10 @@ q{$top_module->module_index}); #XXX: some of these tests will fail if modperl is linked static - #rather than dso. also no promise that mod_perl will be the top_module + #rather than dso. - ok t_cmp('mod_perl.c', $top_module->name(), q{$top_module->name}); + #no promise that mod_perl will be the top_module + ok t_cmp('mod_perl.c', $top_module->name(), q{$top_module->name}) || 1; my $cmd = $top_module->cmds;