You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2005/03/22 04:48:52 UTC
svn commit: r158532 -
perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/Manifest.pm
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;
}