summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-02-08 01:34:12 +0000
committerKarl Berry <karl@freefriends.org>2006-02-08 01:34:12 +0000
commit100eda25cd2e9fc385a8ea28f77cb8c444ac9da3 (patch)
treef1682085560d5c463fc42431ba1f63302aceee36
parentf999434e429137246e6c0c59cd697ad0f1a3b0e6 (diff)
(globexpand_push, walk_dir): ignore .svn along
with . and .., to avoid recursing into them (only to be ignored later). git-svn-id: svn://tug.org/texlive/trunk@1511 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/Tools/FileUtils.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/Tools/FileUtils.pm b/Master/Tools/FileUtils.pm
index 99e777aa17f..84d070bd8fd 100644
--- a/Master/Tools/FileUtils.pm
+++ b/Master/Tools/FileUtils.pm
@@ -204,7 +204,7 @@ sub walk_dir {
opendir (DIR, $dir) || die "opendir($dir) failed: $!";
while (my $d = readdir (DIR)) {
# do not forget to remove "." and ".."
- next if $d =~ /^\.\.?$/;
+ next if $d =~ /^\.(\.?|svn)$/;
push (@l, $d);
}
closedir (DIR) || warn "closedir($dir) failed: $!";
@@ -588,7 +588,7 @@ sub globexpand_push {
my ($file);
$dir =~ s@\\@/@g;
foreach $file (@l) {
- next if $file =~ /^\.\.?$/;
+ next if $file =~ /^\.(\.?|svn)$/;
my $path = "$dir/$file";
next if $path =~ m/^${Tpm::IgnoredFiles}$/;
if (-f $path) {