Change 19827 by [EMAIL PROTECTED] on 2003/06/19 20:18:31
Apparently this is needed for VMS (Craig Berry).
Affected files ...
... //depot/perl/lib/Tie/File.pm#29 edit
Differences ...
==== //depot/perl/lib/Tie/File.pm#29 (text) ====
Index: perl/lib/Tie/File.pm
--- perl/lib/Tie/File.pm#28~19813~ Wed Jun 18 10:31:50 2003
+++ perl/lib/Tie/File.pm Thu Jun 19 13:18:31 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.
