From 921041f2a8e54734f9cc22bc7e0b28f16cb603f2 Mon Sep 17 00:00:00 2001 From: adam Date: Mon, 2 Jan 2006 00:44:47 +0000 Subject: [PATCH] *** empty log message *** --- Stow.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Stow.pm b/Stow.pm index 45c8a34..1e267bc 100755 --- a/Stow.pm +++ b/Stow.pm @@ -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";