From b506d3bdd35a3fcbbfd9b7a2c31c04791438598c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 14 Jul 2008 00:26:50 +0000 Subject: perception update + place case-insensitive check git-svn-id: svn://tug.org/texlive/trunk@9538 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/place | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/bin') diff --git a/Master/tlpkg/bin/place b/Master/tlpkg/bin/place index 970ec0250c3..08fdd9b28a2 100755 --- a/Master/tlpkg/bin/place +++ b/Master/tlpkg/bin/place @@ -139,9 +139,13 @@ if (!defined($tlpold)) { #`rm -f $TMP/tlplace.new $TMP/tlplace.old $TMP/tlplace.diff`; } - &xchdir ("$cooked/$package"); -find (\&files,"."); + +print "place: checking for case-insensitive clashes\n"; +print `find . '(' -name .svn ')' -prune -o -print | sort | uniq -i -d`; +print "\n"; + +find (\&files, "."); foreach $file (sort keys %Old) { my $status = $New{$file} ? "retained" : "removed"; print "* $file\t[$status]\n"; @@ -170,7 +174,7 @@ foreach $file (sort keys %New) { } } -xchdir ($cooked); +&xchdir ($cooked); &my_system ("mv $package $package.done"); -- cgit v1.2.3