Skip to content

Commit

Permalink
unstub
Browse files Browse the repository at this point in the history
  • Loading branch information
geekosaur committed Jan 5, 2016
1 parent 4cc09c9 commit 6ff51ea
Showing 1 changed file with 3 additions and 5 deletions.
8 changes: 3 additions & 5 deletions links.pl
Original file line number Diff line number Diff line change
Expand Up @@ -50,11 +50,9 @@
if (-e "$ENV{HOME}/$bf") {
die "can't back up $f to $bf";
}
warn "managing $f; backup at $ENV{HOME}/$bf";
local($\) = $/;
local($!) = '$!'; # hack
print qq{ rename "$ENV{HOME}/$f", "$ENV{HOME}/$bf" or die "rename: $!"};
print qq{ symlink "$dir$f", "$ENV{HOME}/$f" or die "symlink: $!"};
warn "managing $f; backup at $ENV{HOME}/$bf\n";
rename "$ENV{HOME}/$f", "$ENV{HOME}/$bf" or die "rename: $!";
symlink "$dir$f", "$ENV{HOME}/$f" or die "symlink: $!";
} else {
print "$f is unmanaged\n";
}
Expand Down

0 comments on commit 6ff51ea

Please sign in to comment.