Update build system for the removal of . from @INC.

This commit is contained in:
Peter Powell 2016-11-08 09:28:29 +00:00
parent b841e4bb85
commit 1d45a7264c
3 changed files with 6 additions and 1 deletions

2
configure vendored
View File

@ -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;

View File

@ -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>);

View File

@ -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;