projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
574c802
)
Win32 tweak from mjd.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 22 Mar 2002 04:09:19 +0000
(
04:09
+0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 22 Mar 2002 04:09:19 +0000
(
04:09
+0000)
p4raw-id: //depot/perl@15408
lib/Tie/File.pm
patch
|
blob
|
history
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;