From 9dcf8298f1295b7266a33eabebc93dde11c65285 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Wed, 2 Nov 2022 22:48:48 -0500
Subject: [PATCH] Factor directory_package_name out of
 directory_email_addresses

---
 gatekeeper.pl | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index b280f0f..517c254 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -932,6 +932,18 @@ sub verify_clearsigned_message {
 # - Package configuration access
 #
 
+=item $package_name = directory_package_name ( $directory )
+
+Extract the package name implied in DIRECTORY, which is the first component
+of the file name.
+
+=cut
+
+sub directory_package_name {
+  my @directory = File::Spec::Unix->splitdir(shift);
+  return $directory[0];
+}
+
 =item @files = directory_configuration_files ( $file, $directory )
 
 Return list of FILEs applicable to DIRECTORY.  The rule used is that each
@@ -988,8 +1000,7 @@ sub directory_email_addresses {
 
   local *_;
 
-  my @directory = File::Spec::Unix->splitdir($directory);
-  my $package_name = $directory[0];
+  my $package_name = directory_package_name($directory);
 
   my @email_files = directory_configuration_files('email', $directory);
 
-- 
2.25.1