X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fgenerated_app.t;fp=t%2Fgenerated_app.t;h=0f609493d5a18456366a0135e44fa8edb606f54e;hb=816be347c5fb7fef20df3f71bc40babc7db69b98;hp=b350c18662b44b94cd2feb9a3278a053e6de4329;hpb=99618c492714b400fe9d4c3a52e49c5907736ea1;p=catagits%2FCatalyst-Devel.git

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;