20 lines
302 B
Perl
Executable File
20 lines
302 B
Perl
Executable File
#!/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;
|
|
|