From 921041f2a8e54734f9cc22bc7e0b28f16cb603f2 Mon Sep 17 00:00:00 2001
From: adam <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";