diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-19 20:18:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-19 20:18:31 +0000 |
| commit | 690c5ca799dd4d5240d0c22f1812a7621dc83f55 (patch) | |
| tree | d9ca4c57d3acb630fbd76cdf98dce6bf9f618d7a /lib/Tie | |
| parent | df16a33111ef3b6d66f9b5d4565632665222cbf4 (diff) | |
| download | perl-690c5ca799dd4d5240d0c22f1812a7621dc83f55.tar.gz | |
Apparently this is needed for VMS (Craig Berry).
p4raw-id: //depot/perl@19827
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm index 253932407b..a1f40afe19 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -727,6 +727,7 @@ sub _downcopy { last if $writable eq ""; $self->_seekb($pos); $self->_write_record($writable); + last if $last_read_was_short && $data eq ""; $len -= $readsize if defined $len; $pos += $readsize; } |