From d0d7c581a36c4148ee6235c8bf881b1823e996ed Mon Sep 17 00:00:00 2001
From: Ben Bullock <benkasminbullock@gmail.com>
Date: Sun, 18 Feb 2024 10:31:06 +0900
Subject: [PATCH] Fix a skipped character due to error in Perl script

---
 kvg-index.json | 3 +++
 make-index.pl  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/kvg-index.json b/kvg-index.json
index eec0774b4..110581bd6 100644
--- a/kvg-index.json
+++ b/kvg-index.json
@@ -8,6 +8,9 @@
 	".":[
 		"0002e.svg"
 	],
+	"0":[
+		"00030.svg"
+	],
 	"1":[
 		"00031.svg"
 	],
diff --git a/make-index.pl b/make-index.pl
index a4e7ed72e..768c9b176 100755
--- a/make-index.pl
+++ b/make-index.pl
@@ -14,7 +14,7 @@ my %index;
 my @files = <$Bin/kanji/*.svg>;
 for my $file (@files) {
     my ($kanji, $ex) = file_to_kanji ($file);
-    if (! $kanji) {
+    if (! defined $kanji) {
 	next;
     }
     my $tfile = $file;