commit | f89fb4caa2268b26866bd9cc1db869166ac23128 | [log] [tgz] |
---|---|---|
author | Geoffrey Young <geoff@apache.org> | Tue Mar 22 03:48:51 2005 +0000 |
committer | Geoffrey Young <geoff@apache.org> | Tue Mar 22 03:48:51 2005 +0000 |
tree | 5686b700603350304ab07d416cd89f4183776d93 | |
parent | 831c599f9ca8a2c6c9fe35792c71c806cc60322c [diff] |
work around svn:this_dir foo git-svn-id: https://svn.apache.org/repos/asf/perl/modperl/branches/apache2-rename-unstable@158532 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/ModPerl/Manifest.pm b/lib/ModPerl/Manifest.pm index 9d3c7f6..bd63c18 100644 --- a/lib/ModPerl/Manifest.pm +++ b/lib/ModPerl/Manifest.pm
@@ -50,6 +50,7 @@ while (my $line = <$fh>) { if ($line =~ /name\s*=\s*"([^"]*)"/) { my $file = $1; + next if $file eq 'svn:this_dir'; next if !$file or -d "../$file" or $file =~ /^\./; push @files, $dir ? "$dir/$file" : $file; }