newinfra goes lives

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

1 files changed, 2 insertions, 33 deletions

diff --git a/Build/tools/ctan2tl b/Build/tools/ctan2tl
index 24973d47cfa..5d8b43cba55 100755
--- a/Build/tools/ctan2tl
+++ b/Build/tools/ctan2tl
@@ -111,40 +111,9 @@ printf "\n\f cooked\n"
 find -depth -type d | xargs rmdir 2>/dev/null
 find $pkg \! -type d -printf "%TY%Tm%Td.%TH%TM %p\n" | sort -r +1
 
-# compare to tpm.
-Master=../../../Master
-tpmfile=`ls $Master/texmf*/tpm/$pkg.tpm 2>/dev/null`
-if test -z "$tpmfile"; then
-  echo "$0: no tpm file for $pkg in `cd $Master; pwd`." >&2
-else
-  printf "\n\f new vs. present $tpmfile\n"
-  rm -f /tmp/pkgfiles.*
-  # remove leading text in case of lines starting with texmf.
-  # Then assume all actual files do start with texmf.
-  sed -n -e '/TPM:.*Files/,$s,^texmf,./texmf,p' $tpmfile \
-  | grep -v '\.tpm$' \
-  | sort >/tmp/pkgfiles.tpm
-  #
-  # list of files in the new package we've just cooked.
-  (cd $pkg && find \! -type d -print) | grep -v '/cooked/' \
-  | sort >/tmp/pkgfiles.new
-  #
-  comm -3 /tmp/pkgfiles.new /tmp/pkgfiles.tpm
-  #
-  comm -12 /tmp/pkgfiles.new /tmp/pkgfiles.tpm >/tmp/tldiff.com
-  #
-  for common_file in `cat /tmp/tldiff.com`; do
-    diff --ignore-all-space -u0 $Master/$common_file $pkg/$common_file
-  done >/tmp/tldiff
-  diff_lines=`wc -l </tmp/tldiff`
-  diff_lines=`expr $diff_lines / 2`
-  printf "%d common files, ~%d lines different (/tmp/tldiff)\n" \
-    `wc -l </tmp/tldiff.com` $diff_lines
-fi
-
-printf "\n\f place $place_chicken\n"
+printf "\n\f place.newinfra $place_chicken\n"
 rm -rf $pkg.done
-../place $place_chicken $pkg
+../place.newinfra $place_chicken $pkg
 status=$?
 
 rm -rf ../raw/$pkg