From: Tomas Doran <bobtfish@bobtfish.net>
Date: Fri, 21 Oct 2011 22:56:05 +0000 (-0700)
Subject: Fix leaking temporary files in tests. RT#59166
X-Git-Tag: 1.36~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7ae8eabd45a66a7766172575eb7b87c1c78bd43;hp=f7cb00cba7691450951604832e1b4ac5759c5d65;p=catagits%2FCatalyst-Devel.git

Fix leaking temporary files in tests. RT#59166
---

diff --git a/Changes b/Changes
index 4632cb3..09c9b06 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 This file documents the revision history for Perl extension Catalyst-Devel.
 
+        - Fix leaking temporary files in tests. RT#59166
         - Fix generated Makefile.PL to always contain unix style paths,
           even on Win32. RT#65456
         - Fix tests generated for controllers generated with --mechanize
diff --git a/t/back_compat.t b/t/back_compat.t
index 4e23b7d..0937bab 100644
--- a/t/back_compat.t
+++ b/t/back_compat.t
@@ -25,7 +25,7 @@ package MyTestHelper;
 use Test::More;
 use File::Temp qw/tempfile/;
 
-my ($fh, $fn) = tempfile;
+my ($fh, $fn) = tempfile( UNLINK => 1 );
 close $fh;
 $helper->render_file('example1',  $fn, { test_var => 'test_val' });
 open $fh, $fn or die $@;