[EMAIL PROTECTED] wrote: [...]
Index: Test.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- Test.pm 21 May 2004 18:29:51 -0000 1.80
+++ Test.pm 27 May 2004 09:05:05 -0000 1.81
@@ -29,7 +29,7 @@
have_cgi have_access have_auth have_module have_apache
have_min_apache_version have_apache_version have_perl have_min_perl_version have_min_module_version
- have_threads under_construction have_apache_mpm);
+ have_threads under_construction skip_reason have_apache_mpm);
# everything but ok(), skip(), and plan() - Test::More provides these
my @test_more_exports = grep { ! /^(ok|skip|plan)$/ } @EXPORT;
@@ -391,6 +391,14 @@
return 0;
}
+sub skip_reason {
+ my $reason = shift || 'no reason specified';
+ push @SkipReasons, $reason;
+ return 0;
+}
+
+# normalize Apache-sytle version strings (2.0.48, 0.9.4)
+
# normalize Apache-sytle version strings (2.0.48, 0.9.4)
geoff, looks like you have a copy-n-paste typo, and while you are at it, please s/sytle/style/ ;)
-- __________________________________________________________________ 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
