Fix Perl tools not using the correct directory name in 'use lib'.

diff --git a/tools/genssl b/tools/genssl
index 9c6cc3804ec2e1c65e696c4c6876832779fa3e50..6061f2e340e6b517ba44f6e2b8641e85dc800f8b 100755 (executable)
--- a/tools/genssl
+++ b/tools/genssl
@@ -34,7 +34,7 @@ use File::Temp();
 
 sub prompt($$) {
        my ($question, $default) = @_;
-       return prompt_string(1, $question, $default) if eval 'use FindBin;use lib $FindBin::RealDir;use make::console; 1';
+       return prompt_string(1, $question, $default) if eval 'use File::Basename; use FindBin; use lib dirname($FindBin::RealDir); use make::console; 1';
        say $question;
        print "[$default] => ";
        chomp(my $answer = <STDIN>);

diff --git a/tools/mkheaders b/tools/mkheaders
index a8763e9d704c6a854a82ad7aa3ebf73a206ca613..4b1f370f3eada005a79cb460f7d79de4836581a9 100755 (executable)
--- a/tools/mkheaders
+++ b/tools/mkheaders
@@ -30,12 +30,13 @@ use feature ':5.10';
 use strict;
 use warnings FATAL => qw(all);
 
-use File::Util ();
-use FindBin    qw($RealDir);
-use List::Util qw(uniq);
-use POSIX      qw(strftime);
+use File::Basename qw(dirname);
+use File::Util     ();
+use FindBin        qw($RealDir);
+use List::Util     qw(uniq);
+use POSIX          qw(strftime);
 
-use lib $RealDir;
+use lib dirname $RealDir;
 use make::console;
 
 my @ignored_revisions = (

diff --git a/tools/test-build b/tools/test-build
index 773ddee64c13b1776720dfd18dbf02ba28b5c246..978b60bc1c1cbfd0527a91e9ab75e823eccc86ac 100755 (executable)
--- a/tools/test-build
+++ b/tools/test-build
@@ -30,9 +30,10 @@ use feature ':5.10';
 use strict;
 use warnings FATAL => qw(all);
 
-use FindBin qw($RealDir);
+use File::Basename qw(dirname);
+use FindBin        qw($RealDir);
 
-use lib $RealDir;
+use lib dirname $RealDir;
 use make::common;
 use make::configure;