diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-05 18:37:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-05 18:37:32 +0000 |
| commit | 41398221880617e9d45dc32b0700dbe7db16e158 (patch) | |
| tree | b8b597cc98be7f557fc69c986a384bea0fb8aa1b /lib/Tie | |
| parent | 9b856ef5dc0e92914bdb88a9e90c20756e7dc924 (diff) | |
| download | perl-41398221880617e9d45dc32b0700dbe7db16e158.tar.gz | |
Minor Tie::File test patch, from mjd.
p4raw-id: //depot/perl@15752
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/24_cache_loop.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/File/t/24_cache_loop.t b/lib/Tie/File/t/24_cache_loop.t index 537856d4f6..20ccffae02 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? |