You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/05/13 18:13:06 UTC
cvs commit: modperl-2.0/t/response/TestAPI module.pm
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;