From f11d05a727c3d1f2722717c1ac1723aee7eeb9a3 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 15 Oct 2022 20:10:20 -0500
Subject: [PATCH] Use value from splitting directory line to obtain package
 name

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

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 5e2d2e0..754c342 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1123,8 +1123,8 @@ sub parse_directory_line {
     if (exists $info{"directory"} and not $do_not_fail);
 
 
-  $info{"directory"} = $val;  # ok.
-  ($info{"package"} = $val) =~ s,/.*$,,;  # top-level name, no subdir
+  $info{"directory"} = $val;	# ok.
+  $info{"package"} = $dirs[0];	# top-level name, no subdir
   # Set email addresses
   my @a = email_addresses($info{package});
   foreach my $address (@a) {
-- 
2.25.1