From 36ed8a802af5e21de89ed20bcd189d6f43c8fc7a Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Thu, 28 Feb 2019 07:02:44 -0600
Subject: [PATCH] Bug fix for file length

---
 ProDOS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ProDOS.pm b/ProDOS.pm
index 544d063..e31db38 100644
--- a/ProDOS.pm
+++ b/ProDOS.pm
@@ -1147,7 +1147,7 @@ sub read_file {
       last if $blkno++ == $blocks_used - 1;
     }
     # Truncate file to size.
-##FIXME
+    my $result = truncate $ofh, $eof;
   # Tree file, 257+ blocks
   } elsif ($storage_type == 3) {
     my @blks = get_master_ind_blk($pofile, $key_pointer, $debug);