summaryrefslogtreecommitdiff
path: root/Build/cdbuild
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-05-08 00:17:03 +0000
committerKarl Berry <karl@freefriends.org>2006-05-08 00:17:03 +0000
commit4a29eda5d0e2a34941c068fef808675ae18dda45 (patch)
tree5f3b0267b4415fda2c28605c27ec0af9266d0fc4 /Build/cdbuild
parent43eb693e2ae21ee4f917a27c625aad510ab5e2c1 (diff)
add tpm and lists file after they are created
git-svn-id: svn://tug.org/texlive/trunk@1574 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/cdbuild')
-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) = @_;