Change 19828 by [EMAIL PROTECTED] on 2003/06/19 20:23:43
Integrate:
[ 19827]
Apparently this is needed for VMS (Craig Berry).
Affected files ...
... //depot/maint-5.8/perl/lib/Tie/File.pm#5 integrate
Differences ...
==== //depot/maint-5.8/perl/lib/Tie/File.pm#5 (text) ====
Index: perl/lib/Tie/File.pm
--- perl/lib/Tie/File.pm#4~19817~ Wed Jun 18 22:24:45 2003
+++ perl/lib/Tie/File.pm Thu Jun 19 13:23:43 2003
@@ -727,6 +727,7 @@
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;
}
End of Patch.
