Update install.pl
This commit is contained in:
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use autodie;
|
use autodie;
|
||||||
|
|
||||||
use Cwd;
|
use File::Basename;
|
||||||
use File::Path qw( make_path );
|
use File::Path qw( make_path );
|
||||||
|
|
||||||
# Prevent running as root
|
# Prevent running as root
|
||||||
@@ -12,7 +12,7 @@ if ($< == 0) {
|
|||||||
exit (1);
|
exit (1);
|
||||||
}
|
}
|
||||||
|
|
||||||
my $dir = getcwd;
|
my $dir = dirname(__FILE__);
|
||||||
|
|
||||||
my $log_target = $ENV{'LOG_TARGET'} // '';
|
my $log_target = $ENV{'LOG_TARGET'} // '';
|
||||||
my $log_path = '';
|
my $log_path = '';
|
||||||
@@ -40,7 +40,7 @@ sub execute {
|
|||||||
execute("sudo apt-get update -qqy && sudo apt-get install -qqy liblocal-lib-perl cpanminus stow");
|
execute("sudo apt-get update -qqy && sudo apt-get install -qqy liblocal-lib-perl cpanminus stow");
|
||||||
|
|
||||||
# Bootstrap files
|
# Bootstrap files
|
||||||
execute("make");
|
execute("make -C $dir");
|
||||||
|
|
||||||
# Read scripts to be installed
|
# Read scripts to be installed
|
||||||
my $install_dir = "$dir/install";
|
my $install_dir = "$dir/install";
|
||||||
|
|||||||
Reference in New Issue
Block a user