mirror of
https://github.com/softwarejanitor/ProDOS.git
synced 2024-06-08 20:29:26 +00:00
Bug fix
This commit is contained in:
parent
86495d0de8
commit
db860e06a1
|
@ -2322,8 +2322,8 @@ sub create_subdir {
|
||||||
my $j = 0;
|
my $j = 0;
|
||||||
for (my $i = $filename_start; $i < ($filename_start + 15); $i++) {
|
for (my $i = $filename_start; $i < ($filename_start + 15); $i++) {
|
||||||
#printf("%c", $bytes[$i]);
|
#printf("%c", $bytes[$i]);
|
||||||
if ($j < length($apple_filename)) {
|
if ($j < length($subdirname)) {
|
||||||
$bytes[$i] = ord(substr($apple_filename, $j++, 1));
|
$bytes[$i] = ord(substr($subdirname, $j++, 1));
|
||||||
} else {
|
} else {
|
||||||
$bytes[$i] = 0x00;
|
$bytes[$i] = 0x00;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user