summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/libexec/place11
1 files changed, 10 insertions, 1 deletions
diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place
index 4f8c3c2ae08..ea0dd1b807e 100755
--- a/Master/tlpkg/libexec/place
+++ b/Master/tlpkg/libexec/place
@@ -261,7 +261,8 @@ sub add_file {
# "not working copy" error.
my $newdir = $dir = dirname ($newfile);
my $needed_dirs = "";
- until (-d "$dir/.svn") {
+ #until (-d "$dir/.svn") {
+ until (&is_svn_dir($dir)) {
$needed_dirs = "$dir $needed_dirs"; # parents first
$dirs{$dir}++;
$dir = dirname ($dir);
@@ -444,6 +445,14 @@ sub xchdir {
}
+sub is_svn_dir {
+ my ($dir) = @_;
+
+ my $ret = system ("svn info $dir 2>/dev/null >/dev/null");
+ $ret /= 256;
+ return !$ret;
+}
+
sub xsystem {
my ($cmd) = @_;