diff options
Diffstat (limited to 'lib/sbin/CVSUpdate.pl')
-rw-r--r-- | lib/sbin/CVSUpdate.pl | 11 |
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; |