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

1 files changed, 6 insertions, 5 deletions

diff --git a/tools/mkheaders b/tools/mkheaders
index a8763e9d7..4b1f370f3 100755
--- 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 = (