From: Devin Austin <dhoss@cpan.org>
Date: Tue, 23 Jun 2009 22:49:55 +0000 (+0000)
Subject: added kmx's patch, still fails
X-Git-Tag: 1.21_01~1^2~65
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Devel.git;a=commitdiff_plain;h=816be347c5fb7fef20df3f71bc40babc7db69b98

added kmx's patch, still fails
---

diff --git a/t/generated_app.t b/t/generated_app.t
index b350c18..0f60949 100644
--- a/t/generated_app.t
+++ b/t/generated_app.t
@@ -64,11 +64,10 @@ my $server_path   = File::Spec->catfile('script', 'testapp_server.pl');
 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 @@ my $mech = Test::WWW::Mechanize->new;
 $mech->get_ok( "http://localhost:" . $port );
 
 kill 'KILL', $childpid;
-
+unlink $tmpfile;