27 lines
501 B
Perl
Executable File
27 lines
501 B
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use autodie;
|
|
|
|
use Cwd;
|
|
use Data::Dumper;
|
|
use Stow;
|
|
|
|
|
|
my $dir = getcwd;
|
|
my $target = $ENV{'HOME'};
|
|
print "Stowing $dir/files to $target\n";
|
|
|
|
my %stow_options = ( dir => $dir,
|
|
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();
|