00dani/stow
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

small tidying

Browse source
This commit is contained in:
adam 2006-02-15 13:04:09 +00:00 committed by Adam Spiers
parent b623fb6de6
commit a37e8f00ed
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Stow.pm
View file

@ -356,25 +356,30 @@ sub StowContents {
sub StowDir {
my($dir, $stow) = @_;
my(@dir) = split(/\/+/, $dir);
my($collection) = shift(@dir);
my($subdir) = &JoinPaths('/', @dir);
my($linktarget, $stowsubdir);
my @dir = split(/\/+/, $dir);
my $collection = shift(@dir);
my $subdir = &JoinPaths('/', @dir);
warn "Stowing directory $dir\n" if ($opts{verbose} > 1);
my $subdirPath = &JoinPaths($opts{target}, $subdir);
if (-l $subdirPath) {
($linktarget = readlink($subdirPath))
|| die "$RealScript: Could not read link $subdirPath ($!)\n";
# We found a link; now let's see if we should remove it.
my $linktarget = readlink($subdirPath);
$linktarget or die "$RealScript: Could not read link $subdirPath ($!)\n";
# Does the link point to somewhere within the stow directory?
my $stowsubdir = &FindStowMember(
&JoinPaths($opts{target}, @dir[0..($#dir - 1)]),
$linktarget
$linktarget,
);
unless ($stowsubdir) {
# No, so we can't touch it.
&Conflict($dir, $subdir, 1);
return;
}
# Yes it does.
if (-e &JoinPaths($opts{stow}, $stowsubdir)) {
if ($stowsubdir eq $dir) {
warn sprintf("%s already points to %s\n",
@ -415,7 +420,6 @@ sub StowNondir {
my(@file) = split(/\/+/, $file);
my($collection) = shift(@file);
my($subfile) = &JoinPaths(@file);
my($linktarget, $stowsubfile);
my $subfilePath = &JoinPaths($opts{target}, $subfile);
if (-l $subfilePath) {