From 40cb028975cf0a7ebf854e10eb6b354c6950e48f Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Tue, 1 Nov 2022 23:52:36 -0500
Subject: [PATCH] Fix oversight in find_directory

An empty "directory" element would cause a warning from perl due to the
first element in the @values array being undefined.
---
 gatekeeper.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 9d301d7..9a4427e 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1357,6 +1357,8 @@ sub find_directory {
     if scalar @values > 1;
   die "no directory directive specified"
     unless @values;
+  die "invalid directory element with no value"
+    unless $values[0];
 
   die "invalid directory $values[0]"
     unless $values[0] =~ m/^($RE_filename_relative)$/;
-- 
2.25.1