summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-05-29 17:38:41 +0000
committerKarl Berry <karl@freefriends.org>2006-05-29 17:38:41 +0000
commitc28dae85551ce4087ed76d233cc201f84d6fde72 (patch)
tree55549827a23caec6b4948ae46741bfb6ed81ea55 /Build
parent0fa508b270dee7a028a8ad97bf2482b6ab09b983 (diff)
write dir list to a separate file, too.
git-svn-id: svn://tug.org/texlive/trunk@1612 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/cdbuild/place13
1 files changed, 11 insertions, 2 deletions
diff --git a/Build/cdbuild/place b/Build/cdbuild/place
index da645cb025d..38ba6fd3c71 100755
--- a/Build/cdbuild/place
+++ b/Build/cdbuild/place
@@ -56,7 +56,7 @@ else {
xchdir ("$mydir/$package");
find (\&files,".");
-foreach $file (keys %Old) {
+foreach $file (sort keys %Old) {
print "* $file: [retained=$New{$file}]\n";
# don't remove tpm or lists file, they won't be in the new package
if (! $New{$file} && $file !~ /\.tpm$/ && $file !~ m,/lists/[^/]+$,) {
@@ -69,7 +69,8 @@ foreach $file (keys %Old) {
my $Job = "tar cf - . | (cd $M && tar xf - )";
&my_system ($Job);
-foreach $file (keys %New) {
+# sort so dirs will be added before subdirs.
+foreach $file (sort keys %New) {
if (! $Old{$file}) {
&add_file ("$M/$file");
}
@@ -120,9 +121,17 @@ $dirs{"$M/texmf/lists"}++;
# won't detect it. It would be better to list exactly the *files* which
# should be committed, but ... lazy.
#
+# also write dir list to a separate file, for easy passing to a commit.
+#
+$DIRLIST = ">" . ($ENV{"TEMPDIR"} || "/tmp") . "/tlplace.dirs";
+open (DIRLIST) || die "open($DIRLIST) failed: $!";
+#
for my $dir (sort keys %dirs) {
print "$dir\n";
+ print DIRLIST "$dir\n";
}
+#
+close (DIRLIST) || warn "close($DIRLIST) failed: $!";
exit (0);