From 84556303e1f4d356714df0a16414190c21d7aeed Mon Sep 17 00:00:00 2001 From: Leeland Heins Date: Wed, 16 Jan 2019 13:47:10 -0600 Subject: [PATCH] Bug fix for ProDOS freemap --- ProDOS.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ProDOS.pm b/ProDOS.pm index 7777834..ff6f3a1 100644 --- a/ProDOS.pm +++ b/ProDOS.pm @@ -1091,9 +1091,9 @@ sub get_vol_bit_map { foreach my $blk (@blks) { #print sprintf("%02x ", $blk); push @blocks, $blk; - last if $trk++ > $num_tracks; + last if $trk++ >= $num_tracks; } - print "\n"; + #print "\n"; } }