[svn:parrot] r10779 - trunk/t/configure

[particle]

Author: particle
Date: Thu Dec 29 17:17:01 2005
New Revision: 10779

Modified:
   trunk/t/configure/step.t
Log:
t: modify use of temp files in some Parrot::Configure::Step tests to work on 
windows

Modified: trunk/t/configure/step.t
==============================================================================
--- trunk/t/configure/step.t    (original)
+++ trunk/t/configure/step.t    Thu Dec 29 17:17:01 2005
@@ -106,7 +106,10 @@ SKIP: {
 # check_progs()
 
 {
-    my $tmpfile = File::Temp->new(UNLINK => 1);
+    my %tf_params = ( UNLINK => 1, );
+    $tf_params{SUFFIX} = '.exe' if 'MSWin32' eq $^O;
+    my $tmpfile = File::Temp->new(%tf_params);
+
     local $ENV{PATH} = dirname("$tmpfile");
     chmod 0777, "$tmpfile";
     my $prog = basename("$tmpfile");
@@ -116,7 +119,10 @@ SKIP: {
 }
 
 {
-    my $tmpfile = File::Temp->new(UNLINK => 1);
+    my %tf_params = ( UNLINK => 1, );
+    $tf_params{SUFFIX} = '.exe' if 'MSWin32' eq $^O;
+    my $tmpfile = File::Temp->new(%tf_params);
+
     local $ENV{PATH} = dirname("$tmpfile");
     chmod 0777, "$tmpfile";
     my $prog = basename("$tmpfile");