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 (file)
--- 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;