Apple-2-Tools
/
ProDOS-perl
mirror of https://github.com/softwarejanitor/ProDOS.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed bug in write file

This commit is contained in:
Leeland Heins 2019-03-08 14:45:28 -06:00 committed by GitHub
parent 004ba307a4
commit 0d614832b3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ProDOS.pm
View File

@ -2005,7 +2005,11 @@ sub write_file {
my $free_count = scalar @free_blocks;
# Need to make sure the file doesn't already exist.
##FIXME
my ($storage_type, $file_type, $key_pointer, $blocks_used, $eof, $header_pointer, $i) = find_file($pofile, $filename, $debug);
if ($storage_type != 0) {
print "File exists\n";
return 0;
}
if ($free_count < $numblocks) {
print "Not enough space on volume, $free_count free blocks, need $numblocks\n";