From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 Apr 2002 18:37:32 +0000 (+0000)
Subject: Minor Tie::File test patch, from mjd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41398221880617e9d45dc32b0700dbe7db16e158;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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?