X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTie%2FFile%2Ft%2F24_cache_loop.t;h=20ccffae02b7c15fbec1a6340502e0317d11ae5a;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=537856d4f61e01e0ae37ac38961c350df64c0b88;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Tie/File/t/24_cache_loop.t b/lib/Tie/File/t/24_cache_loop.t
index 537856d..20ccffa 100644
--- 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?