From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sun, 16 Oct 2022 01:10:20 +0000 (-0500)
Subject: Use value from splitting directory line to obtain package name
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=f11d05a727c3d1f2722717c1ac1723aee7eeb9a3;p=gatekeeper.git

Use value from splitting directory line to obtain package name
---

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) {