Bug fix for file length

2019-02-28 07:02:44 -06:00 · 2019-02-28 07:02:44 -06:00 · 36ed8a802a
parent e0adc9c638
commit 36ed8a802a
1 changed files with 1 additions and 1 deletions
--- 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);