summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xBuild/cdbuild/place21
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) = @_;