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;