svn commit: r109737 - /perl/modperl/trunk/lib/ModPerl/Manifest.pm

[gozer]

Author: gozer
Date: Fri Dec  3 16:58:44 2004
New Revision: 109737

URL: http://svn.apache.org/viewcvs?view=rev&rev=109737
Log:
When building MANIFEST, we need to use svn now

Modified:
   perl/modperl/trunk/lib/ModPerl/Manifest.pm

Modified: perl/modperl/trunk/lib/ModPerl/Manifest.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/Manifest.pm?view=diff&rev=109737&p1=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r1=109736&p2=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r2=109737
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/Manifest.pm  (original)
+++ perl/modperl/trunk/lib/ModPerl/Manifest.pm  Fri Dec  3 16:58:44 2004
@@ -34,32 +34,19 @@
     Apache-Test/META.yml
 };
 
-sub get_cvs_files {
+sub get_svn_files {
     my @files;
 
-    my $cwd = Cwd::cwd();
-
-    finddepth({ follow => 1, wanted => sub {
-        return unless $_ eq 'Entries';
-
-        my $dir = dirname $File::Find::dir;
-        $dir =~ s,^$cwd/?,,;
-
-        open my $fh, $_ or die "open $_: $!";
-        while (my $line = <$fh>) {
-            my $file = (split '/', $line)[1];
-            next if !$file or -d "../$file" or $file =~ /^\./;
-
-            push @files, $dir ? "$dir/$file" : $file;
-        }
-        close $fh;
-    }}, $cwd);
+    foreach my $ent (`svn ls -R`) {
+        chomp($ent);
+        push @files, $ent if -f $ent;
+    }
 
     return @files;
 }
 
 sub mkmanifest {
-    my @files = (@add_files, get_cvs_files());
+    my @files = (@add_files, get_svn_files());
 
     my $matches = maniskip();
     open my $fh, '>', 'MANIFEST' or die "open MANIFEST: $!";