From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 19 Jun 2003 20:18:31 +0000 (+0000)
Subject: Apparently this is needed for VMS (Craig Berry).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=690c5ca799dd4d5240d0c22f1812a7621dc83f55;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
   }