Integrate mainline

[p5sagit/p5-mst-13.2.git] / lib / Tie / File / t / 24_cache_loop.t

diff --git a/lib/Tie/File/t/24_cache_loop.t b/lib/Tie/File/t/24_cache_loop.t
index 537856d..20ccffa 100644 (file)
--- a/lib/Tie/File/t/24_cache_loop.t
+++ b/lib/Tie/File/t/24_cache_loop.t
@@ -4,11 +4,11 @@
 #
 
 use Config;
+my $file = "tf$$.txt";
 unless ($Config{d_alarm}) {
   print "1..0\n"; exit;
 }
 
-my $file = "tf$$.txt";
 $: = Tie::File::_default_recsep();
 my $data = join $:, "record0" .. "record9", "";
 my $V = $ENV{INTEGRITY};        # Verbose integrity checking?