svn commit: r532621 - /httpd/apreq/trunk/glue/perl/t/apreq/upload.t

[ra...@apache.org]

Author: randyk
Date: Wed Apr 25 22:34:25 2007
New Revision: 532621

URL: http://svn.apache.org/viewvc?view=rev&rev=532621
Log:
For some reason, using the perl binary for uploads on Win32 appears to cause seemingly random stray temp files to be left [reported by Steve Hay]

Modified:
    httpd/apreq/trunk/glue/perl/t/apreq/upload.t

Modified: httpd/apreq/trunk/glue/perl/t/apreq/upload.t
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/apreq/upload.t?view=diff&rev=532621&r1=532620&r2=532621
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/apreq/upload.t (original)
+++ httpd/apreq/trunk/glue/perl/t/apreq/upload.t Wed Apr 25 22:34:25 2007
@@ -6,15 +6,23 @@
 use Apache::TestRequest qw(UPLOAD_BODY GET_BODY_ASSERT);
 use Cwd;
 require File::Basename;
+use Apache::TestConfig;
+use constant WIN32 => Apache::TestConfig::WIN32;
 
 my $cwd = getcwd();
 
 my $module = 'TestApReq::upload';
 my $location = Apache::TestRequest::module2url($module);
 
-my %types = (perl => 'application/octet-stream',
-             httpd => 'application/octet-stream',
-            );
+my %types = (httpd => 'application/octet-stream');
+
+# for some reason, using the perl binary for uploads
+# on Win32 appears to cause seemingly random stray
+# temp files to be left.
+unless (WIN32) {
+    $types{perl} = 'application/octet-stream';
+}
+
 my $vars = Apache::Test::vars;
 my $perlpod = $vars->{perlpod};
 if (-d $perlpod) {