diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-22 04:09:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-22 04:09:19 +0000 |
| commit | a6b9a15308fcb171e225c1d3fcbcdd25cdd852bc (patch) | |
| tree | a4208c15e9f212d0bc8e44e67b3bdc4d49456c08 /lib/Tie | |
| parent | 574c8022b1fdc7312bf9a5af037c8f777b60b6db (diff) | |
| download | perl-a6b9a15308fcb171e225c1d3fcbcdd25cdd852bc.tar.gz | |
Win32 tweak from mjd.
p4raw-id: //depot/perl@15408
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm index 92d16ce9a1..4f9b2f2d56 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -849,11 +849,12 @@ sub _check_integrity { $good = 0; } + local *_; local *F = $self->{fh}; seek F, 0, SEEK_SET; local $/ = $self->{recsep}; my $rsl = $self->{recseplen}; - $. = 0; + local $. = 0; while (<F>) { my $n = $. - 1; |