naomi/dots
1
0
Fork 0
mirror of https://github.com/NaomiAmethyst/dots.git synced 2025-09-18 21:39:54 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of ssh://majnematic.com/davesdots

Browse source
This commit is contained in:
David Majnemer 2010-07-09 11:10:06 -07:00
commit 26b7289812
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
install.pl
View file

@ -84,6 +84,13 @@ my %links = (
gdbinit => '.gdbinit',
);
my $contained = (substr $scriptdir, 0, length($home)) eq $home;
my $prefix = undef;
if ($contained) {
$prefix = substr $scriptdir, length($home);
($prefix) = $prefix =~ m{^\/? (.+) [^/]+ $}x;
}
my $i = 0; # Keep track of how many links we added
for my $file (keys %links) {
# See if this file resides in a directory, and create it if needed.
@ -106,6 +113,15 @@ for my $file (keys %links) {
unlink($dest) || warn "Couldn't unlink '$dest': $!\n";
}
if ($contained) {
chdir $home;
$dest = "$links{$file}";
$src = "$prefix$file";
if ($path) {
$src = "../$src";
}
}
symlink($src => $dest) ? $i++ : warn "Couldn't link '$src' to '$dest': $!\n";
}