diff options
| author | Karl Berry <karl@freefriends.org> | 2006-02-08 01:34:12 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2006-02-08 01:34:12 +0000 |
| commit | 100eda25cd2e9fc385a8ea28f77cb8c444ac9da3 (patch) | |
| tree | f1682085560d5c463fc42431ba1f63302aceee36 /Master/Tools | |
| parent | f999434e429137246e6c0c59cd697ad0f1a3b0e6 (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
Diffstat (limited to 'Master/Tools')
| -rw-r--r-- | Master/Tools/FileUtils.pm | 4 |
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) { |