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

Bug fix

This commit is contained in:
Leeland Heins 2019-03-07 10:24:11 -06:00 committed by GitHub
parent 86495d0de8
commit db860e06a1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ProDOS.pm
View File

@ -2322,8 +2322,8 @@ sub create_subdir {
my $j = 0;
for (my $i = $filename_start; $i < ($filename_start + 15); $i++) {
#printf("%c", $bytes[$i]);
if ($j < length($apple_filename)) {
$bytes[$i] = ord(substr($apple_filename, $j++, 1));
if ($j < length($subdirname)) {
$bytes[$i] = ord(substr($subdirname, $j++, 1));
} else {
$bytes[$i] = 0x00;
}