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

*** empty log message ***

Browse source
This commit is contained in:
adam 2006-01-02 00:44:47 +00:00 committed by Adam Spiers
parent 3cd2580cfe
commit 921041f2a8
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Stow.pm
View file

@ -129,11 +129,11 @@ sub JoinPaths {
} }
# This removes stow-controlled symlinks from $targetdir for the # This removes stow-controlled symlinks from $targetdir for the
# packages in the %$to_unstow hash, and is called recursively to # packages in the %$PkgsToUnstow hash, and is called recursively to
# process subdirectories. # process subdirectories.
sub Unstow { sub Unstow {
my($targetdir, $stow, $to_unstow) = @_; my($targetdir, $stow, $PkgsToUnstow) = @_;
# Note $targetdir is relative to the top of the target hierarchy, # Note $targetdir is relative to the top of the target hierarchy,
# i.e. $opts{target}. # i.e. $opts{target}.
# #
@ -193,7 +193,7 @@ sub Unstow {
# collections we are unstowing? # collections we are unstowing?
my @stowmember = split(/\/+/, $stowmember); my @stowmember = split(/\/+/, $stowmember);
my $collection = shift(@stowmember); my $collection = shift(@stowmember);
if ($to_unstow->{$collection}) { if ($PkgsToUnstow->{$collection}) {
# Yep, so get rid of it. # Yep, so get rid of it.
&DoUnlink($contentPath); &DoUnlink($contentPath);
} else { } else {
@ -225,7 +225,7 @@ sub Unstow {
my ($subpure, $subother) = &Unstow( my ($subpure, $subother) = &Unstow(
&JoinPaths($targetdir, $content), &JoinPaths($targetdir, $content),
&JoinPaths('..', $stow), &JoinPaths('..', $stow),
$to_unstow, $PkgsToUnstow,
); );
if ($subpure) { if ($subpure) {
push @puresubdirs, "$content/$subother"; push @puresubdirs, "$content/$subother";