From 100eda25cd2e9fc385a8ea28f77cb8c444ac9da3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 8 Feb 2006 01:34:12 +0000 Subject: (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 --- Master/Tools/FileUtils.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/Tools') 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) { -- cgit v1.2.3