From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Mar 2002 04:09:19 +0000 (+0000)
Subject: Win32 tweak from mjd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6b9a15308fcb171e225c1d3fcbcdd25cdd852bc;p=p5sagit%2Fp5-mst-13.2.git

Win32 tweak from mjd.

p4raw-id: //depot/perl@15408
---

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index 92d16ce..4f9b2f2 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;