add tpm and lists file after they are created

git-svn-id: svn://tug.org/texlive/trunk@1574 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 14 insertions, 7 deletions

diff --git a/Build/cdbuild/place b/Build/cdbuild/place
index 55fb9eacfb5..4ecf8babf76 100755
--- a/Build/cdbuild/place
+++ b/Build/cdbuild/place
@@ -76,11 +76,6 @@ foreach $file (keys %New) {
 
 my $tpmdir = "$M/$Root/tpm";
 
-if ($newpackage) {
-  &add_file ($listsfile);
-  &add_file ("$tpmdir/$package.tpm");
-}
-
 xchdir ($mydir);
 &my_system ("mv $package $package.done");
 
@@ -92,7 +87,7 @@ if ($Root eq 'texmf-doc') {
   die "cannot handle Root=$Root";
 }
 
-chomp (my $tools = `cd $M/../Build/tools && pwd`);
+chomp (my $tools = `cd $mydir/../tools && pwd`);
 
 $SETUP = "$tools/tpm-factory.pl --master=$M --tpm_dir=$tpmdir"
          . " --ftp_dir=/var/tmp --arch=all --patterns=auto"
@@ -109,8 +104,14 @@ $SETUP = "$tools/tpm-factory.pl --master=$M --tpm_dir=$tpmdir"
             . " $tools/tpm2list.xsl $M/$Root/tpm/$package.tpm");
 
 
+# add tpm and lists files after they are created.
+if ($newpackage) {
+  &add_file ($listsfile);
+  &add_file ("$tpmdir/$package.tpm");
+}
+
 # these two dirs will essentially always change, so just list them.
-$dirs{"$M/$Root/tpm"}++;
+$dirs{$tpmdir}++;
 $dirs{"$M/texmf/lists"}++;
 
 # print dirs with changed files, for svn commit purposes.
@@ -146,6 +147,7 @@ sub buildfilelist
     return @files;
 }
 
+
 sub files
 {
   if (-f) {
@@ -155,6 +157,7 @@ sub files
  }
 }
 
+
 # add a file to the repository.  for svn, we also have to add the
 # containing dir, if it is new.
 # 
@@ -169,9 +172,12 @@ sub add_file
   }
   
   &my_system ("svn add $newfile");
+  
+  # remember that we changed this directory.
   $dirs{$newdir}++;
 }
 
+
 sub xchdir
 {
   my ($dir) = @_;
@@ -179,6 +185,7 @@ sub xchdir
   print "place: chdir($dir)\n";
 }
 
+
 sub my_system
 {
   my ($cmd) = @_;