diff options
author | Karl Berry <karl@freefriends.org> | 2008-07-14 00:26:50 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-07-14 00:26:50 +0000 |
commit | b506d3bdd35a3fcbbfd9b7a2c31c04791438598c (patch) | |
tree | 8df83f207e24ddffa1d319e20f01a5df613f83db /Master/tlpkg | |
parent | 23491f58364839c6d0d9bdd02e2682c5799dea5a (diff) |
perception update + place case-insensitive check
git-svn-id: svn://tug.org/texlive/trunk@9538 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/bin/place | 10 |
1 files changed, 7 insertions, 3 deletions
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"); |