Bootstrap and install improvements
This commit is contained in:
11
bootstrap.pl
11
bootstrap.pl
@@ -4,6 +4,7 @@ use warnings;
|
||||
use autodie;
|
||||
|
||||
use Cwd;
|
||||
use Data::Dumper;
|
||||
use Stow;
|
||||
|
||||
|
||||
@@ -12,12 +13,14 @@ my $target = $ENV{'HOME'};
|
||||
print "Stowing $dir/files to $target\n";
|
||||
|
||||
my %stow_options = ( dir => $dir,
|
||||
target => $target);
|
||||
target => $target );
|
||||
my $stow = new Stow(%stow_options);
|
||||
|
||||
my @pkgs = ('files');
|
||||
$stow->plan_stow(@pkgs);
|
||||
|
||||
my %conflicts = $stow->get_conflicts;
|
||||
if (%conflicts) {
|
||||
my $dump = Dumper(%conflicts);
|
||||
die("Failed to stow, conflicts: $dump");
|
||||
}
|
||||
$stow->process_tasks();
|
||||
print "done\n";
|
||||
|
||||
|
||||
Reference in New Issue
Block a user