From db860e06a161135119eb84012952ae500aae3605 Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Thu, 7 Mar 2019 10:24:11 -0600
Subject: [PATCH] Bug fix

---
 ProDOS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ProDOS.pm b/ProDOS.pm
index 321f879..1270e76 100644
--- a/ProDOS.pm
+++ b/ProDOS.pm
@@ -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;
       }