[Catalyst-commits] r10634 - Catalyst-Devel/1.00/branches/helper_refactor/t

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-06-23 22:49:55 +0000 (Tue, 23 Jun 2009)
New Revision: 10634

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/t/generated_app.t
Log:
added kmx's patch, still fails


Modified: Catalyst-Devel/1.00/branches/helper_refactor/t/generated_app.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/t/generated_app.t	2009-06-23 22:35:53 UTC (rev 10633)
+++ Catalyst-Devel/1.00/branches/helper_refactor/t/generated_app.t	2009-06-23 22:49:55 UTC (rev 10634)
@@ -64,11 +64,10 @@
 my $childpid = fork();
 
 my $port = 3333; # or call some random generator
+my $tmpfile = tmpnam(); # do not redirect to /dev/null as it will not work on Win32
 
 if ($childpid == 0) {
-  my $tmpfile = tmpnam(); # do not redirect to /dev/null as it will not work on Win32
   system("$^X $server_path -p $port > $tmpfile 2>&1");
-  unlink $tmpfile;
   exit;
 }
 
@@ -77,5 +76,5 @@
 $mech->get_ok( "http://localhost:" . $port );
 
 kill 'KILL', $childpid;
+unlink $tmpfile;
 
-