> -    $file ||= 'SKIP';
> +    $file ||= catfile Apache::Test::vars('serverroot'), 'SKIP';

oops.  forgot to add the class up top.  guess I'm not quite with it today yet :)

--Geoff
Index: lib/Apache/TestHarness.pm
===================================================================
RCS file: 
/home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm,v
retrieving revision 1.13
diff -u -r1.13 TestHarness.pm
--- lib/Apache/TestHarness.pm   31 Jan 2004 01:12:17 -0000      1.13
+++ lib/Apache/TestHarness.pm   23 Feb 2004 17:51:28 -0000
@@ -4,6 +4,7 @@
 use warnings FATAL => 'all';
 
 use Test::Harness ();
+use Apache::Test ();
 use Apache::TestSort ();
 use Apache::TestTrace;
 use File::Spec::Functions qw(catfile catdir);
@@ -23,7 +24,7 @@
 #skip tests listed in t/SKIP
 sub skip {
     my($self, $file) = @_;
-    $file ||= 'SKIP';
+    $file ||= catfile Apache::Test::vars('serverroot'), 'SKIP';
 
     return unless -e $file;
 

Reply via email to