Fixing this file so it is proper perl and turns arrangement_dir into a full

path.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@3692 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/sbin/CVSUpdate.pl b/lib/sbin/CVSUpdate.pl
index 60177f87..39784b7f 100644
--- a/lib/sbin/CVSUpdate.pl
+++ b/lib/sbin/CVSUpdate.pl
@@ -51,19 +51,22 @@ if (!$debug)
   close (CS);
 }
 
+$home = `pwd`;
+chomp ($home);
+
 ($arrangement_dir, $thornlist) = @ARGV;
 
+$arrangement_dir = "$home/$arrangement_dir";
+
 if ($thornlist =~ /^$/) {
    %info = &buildthorns($arrangement_dir,"thorns");
 } else {
    %info = &ReadThornlist($thornlist);
 }
 
-$home = `pwd`;
-chomp ($home);
 foreach $thorn (sort keys %info)
 {
-  if( ! -d "$thorn/CVS")
+  if( ! -d "$arrangement_dir/$thorn/CVS")
   {
     print "Ignoring $thorn - no CVS directory\n";
     next;
@@ -99,7 +102,7 @@ foreach $thorn (sort keys %info)
     }
   }
 }
-  chdir $home) || die "Cannot change back to Cactus home directory '$home'\n";
+  chdir $home || die "Cannot change back to Cactus home directory '$home'\n";
 
 
 exit;