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