Minor Tie::File test patch, from mjd.

p4raw-id: //depot/perl@15752

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?