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 st...@apache.org on 2004/02/23 03:07:32 UTC
cvs commit: modperl-2.0/t/modules cgiupload2.t cgiupload.t
stas 2004/02/22 18:07:32
Modified: t/modules cgiupload2.t cgiupload.t
Log:
yet another correction due to moving A-T cwd out of t/
Revision Changes Path
1.2 +3 -1 modperl-2.0/t/modules/cgiupload2.t
Index: cgiupload2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload2.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- cgiupload2.t 7 Nov 2003 08:52:44 -0000 1.1
+++ cgiupload2.t 23 Feb 2004 02:07:32 -0000 1.2
@@ -6,6 +6,8 @@
use Apache::TestRequest;
use Apache::Build ();
+use File::Spec::Functions qw(catfile);
+
my $build = Apache::Build->build_config;
plan tests => 2, have have_lwp(),
have_min_module_version(CGI => 3.01);
@@ -22,7 +24,7 @@
}
}
-$filename ||= '../Makefile';
+$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile';
for (1,2) {
my $str = UPLOAD_BODY $location, filename => $filename;
1.10 +3 -1 modperl-2.0/t/modules/cgiupload.t
Index: cgiupload.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -u -r1.9 -r1.10
--- cgiupload.t 22 Nov 2003 21:37:14 -0000 1.9
+++ cgiupload.t 23 Feb 2004 02:07:32 -0000 1.10
@@ -6,6 +6,8 @@
use Apache::TestRequest;
use Apache::Build ();
+use File::Spec::Functions qw(catfile);
+
my $build = Apache::Build->build_config;
plan tests => 2, have have_lwp(), have have_min_module_version('CGI', 2.93),
{"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}};
@@ -22,7 +24,7 @@
}
}
-$filename ||= '../Makefile';
+$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile';
for (1,2) {
my $str = UPLOAD_BODY $location, filename => $filename;