summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-14 00:26:50 +0000
committerKarl Berry <karl@freefriends.org>2008-07-14 00:26:50 +0000
commitb506d3bdd35a3fcbbfd9b7a2c31c04791438598c (patch)
tree8df83f207e24ddffa1d319e20f01a5df613f83db /Master
parent23491f58364839c6d0d9bdd02e2682c5799dea5a (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')
-rwxr-xr-xMaster/tlpkg/bin/place10
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");