Author: geoff
Date: Mon Mar 21 19:48:51 2005
New Revision: 158532
URL: http://svn.apache.org/viewcvs?view=rev&rev=158532
Log:
work around svn:this_dir foo
Modified:
perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm
Modified: perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm?view=diff&r1=158531&r2=158532
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm
(original)
+++ perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm Mon
Mar 21 19:48:51 2005
@@ -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;
}