Factor directory_package_name out of directory_email_addresses

diff --git a/gatekeeper.pl b/gatekeeper.pl
index b280f0f47104ac3cac97014d909654e9c7d859ce..517c254adfe6a0f2e6c7b29502dada36f9c3b04c 100755 (executable)
--- 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);