Bootstrap using stow
This commit is contained in:
19
bootstrap.pl
Executable file
19
bootstrap.pl
Executable file
@@ -0,0 +1,19 @@
|
||||
#!/usr/bin/env perl
|
||||
use strict;
|
||||
use warnings;
|
||||
use autodie;
|
||||
|
||||
use Cwd;
|
||||
use Stow;
|
||||
|
||||
|
||||
# Stow files
|
||||
my $dir = getcwd;
|
||||
my %stow_options = (
|
||||
dir => "$dir/files",
|
||||
target => "$ENV{'HOME'}"
|
||||
);
|
||||
my $stow = new Stow(%stow_options);
|
||||
my %conflicts = $stow->get_conflicts;
|
||||
$stow->process_tasks() unless %conflicts;
|
||||
|
||||
Reference in New Issue
Block a user