Apparently this is needed for VMS (Craig Berry).

p4raw-id: //depot/perl@19827

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index 2539324..a1f40af 100644 (file)
--- 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;
   }