Use value from splitting directory line to obtain package name

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 5e2d2e05d9d953b0f8b3a9d9820ec76cdfd36831..754c342d59fe84bfd7da877e000b9d66990d5d85 100755 (executable)
--- 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) {