From bb3954f23b911d7610bce52f3fdeef8873090f9c Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 29 Oct 2022 21:04:48 -0500
Subject: [PATCH] Fix bug in find_directory

Contrary to documentation, the return value was tainted.
---
 gatekeeper.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 41229d2..6d91cb3 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1346,7 +1346,7 @@ sub find_directory {
   die "invalid directory $values[0]"
     unless $values[0] =~ m/^($RE_filename_relative)$/;
 
-  return $values[0];
+  return $1;
 }
 
 =item $package = find_package ( $directive )
-- 
2.25.1