diff options
author | Peter Powell <petpow@saberuk.com> | 2016-11-08 09:28:29 +0000 |
---|---|---|
committer | Peter Powell <petpow@saberuk.com> | 2016-11-08 09:31:56 +0000 |
commit | 1d45a7264c01669a046e803d206dd3553fbc5c55 (patch) | |
tree | 6e0c570d976dc420158fd9f6fdeb0c2e6c675ffa | |
parent | b841e4bb855f43533601171fb405c74f04b4ea71 (diff) |
Update build system for the removal of . from @INC.
-rwxr-xr-x | configure | 2 | ||||
-rwxr-xr-x | tools/genssl | 2 | ||||
-rwxr-xr-x | tools/test-build | 3 |
3 files changed, 6 insertions, 1 deletions
@@ -37,9 +37,11 @@ use warnings FATAL => qw(all); use File::Basename qw(basename); use File::Copy (); use File::Spec::Functions qw(rel2abs); +use FindBin qw($RealDir); use Getopt::Long qw(GetOptions); use POSIX qw(getgid getuid); +use lib $RealDir; use make::common; use make::configure; use make::console; diff --git a/tools/genssl b/tools/genssl index c88f9534f..b824f4ebe 100755 --- a/tools/genssl +++ b/tools/genssl @@ -36,7 +36,7 @@ use File::Temp(); sub prompt($$) { my ($question, $default) = @_; - return prompt_string(1, $question, $default) if eval 'use make::console; 1'; + return prompt_string(1, $question, $default) if eval 'use FindBin;use lib $FindBin::RealDir;use make::console; 1'; say $question; print "[$default] => "; chomp(my $answer = <STDIN>); diff --git a/tools/test-build b/tools/test-build index 17c98042b..2b9ee4ee2 100755 --- a/tools/test-build +++ b/tools/test-build @@ -30,6 +30,9 @@ use feature ':5.10'; use strict; use warnings FATAL => qw(all); +use FindBin qw($RealDir); + +use lib $RealDir; use make::common; use make::configure; |