randyk 2004/07/23 22:28:02
Modified: glue/perl/t/apreq cgi.t
Log:
remove some previous debugging steps.
Revision Changes Path
1.8 +2 -2 httpd-apreq-2/glue/perl/t/apreq/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/cgi.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- cgi.t 24 Jul 2004 05:18:34 -0000 1.7
+++ cgi.t 24 Jul 2004 05:28:02 -0000 1.8
@@ -292,7 +292,7 @@
else {
die "unknown method: $method";
}
- my $temp_file = File::Spec->catfile($temp_dir, "$basename$$");
+ my $temp_file = File::Spec->catfile($temp_dir, $basename);
unlink $temp_file if -f $temp_file;
open my $wfh, ">", $temp_file or die "Can't open $temp_file: $!";
binmode $wfh;
@@ -309,7 +309,7 @@
filename: $basename
md5: $cs
END
-# unlink $temp_file if -f $temp_file;
+ unlink $temp_file if -f $temp_file;
}
else {
