Fix bug in find_directory

Contrary to documentation, the return value was tainted.

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 41229d29f057e5a778c593d549e6fb099f5c30b5..6d91cb3bd9a96bd421df5f667c24e804488d9d0b 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1346,7 +1346,7 @@ sub find_directory {
   die "invalid directory $values[0]"
     unless $values[0] =~ m/^($RE_filename_relative)$/;
 
-  return $values[0];
+  return $1;
 }
 
 =item $package = find_package ( $directive )