randyk 2004/07/22 22:46:48
Modified: glue/perl/t/apreq upload.t
Log:
Submitted by: Markus Wichitill <mawic () gmx ! de>
Reviewed by: randyk
Use perl/glue/t/ as the directory for storing temporary upload
files, rather than glue/perl/, as when testing as root on *nix,
one has the proper permissions for the former, but not the latter.
Revision Changes Path
1.2 +2 -2 httpd-apreq-2/glue/perl/t/apreq/upload.t
Index: upload.t
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/upload.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- upload.t 12 Jul 2004 13:10:14 -0000 1.1
+++ upload.t 23 Jul 2004 05:46:48 -0000 1.2
@@ -23,7 +23,7 @@
my $url = ( ($name =~ /\.pod$/) ?
"getfiles-perl-pod/" : "/getfiles-binary-" ) . $name;
my $content = GET_BODY_ASSERT($url);
- my $path = File::Spec->catfile($cwd, $name);
+ my $path = File::Spec->catfile($cwd, 't', $name);
open my $fh, ">", $path or die "Cannot open $path: $!";
binmode $fh;
print $fh $content;
@@ -33,7 +33,7 @@
eval {require Digest::MD5;};
my $has_md5 = $@ ? 0 : 1;
-foreach my $file( map {File::Spec->catfile($cwd, $_)} @names) {
+foreach my $file( map {File::Spec->catfile($cwd, 't', $_)} @names) {
my $size = -s $file;
my $cs = $has_md5 ? cs($file) : 0;
my $basename = File::Basename::basename($file);
