diff options
author | Karl Berry <karl@freefriends.org> | 2006-05-29 17:38:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-05-29 17:38:41 +0000 |
commit | c28dae85551ce4087ed76d233cc201f84d6fde72 (patch) | |
tree | 55549827a23caec6b4948ae46741bfb6ed81ea55 /Build | |
parent | 0fa508b270dee7a028a8ad97bf2482b6ab09b983 (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-x | Build/cdbuild/place | 13 |
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); |