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

[gozer]

Author: gozer
Date: Fri Dec  3 21:00:51 2004
New Revision: 109770

URL: http://svn.apache.org/viewcvs?view=rev&rev=109770
Log:
svn ls isn't recursive across externals, so we need to grab these too
when generating a MANIFEST


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=109770&p1=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r1=109769&p2=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r2=109770
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/Manifest.pm  (original)
+++ perl/modperl/trunk/lib/ModPerl/Manifest.pm  Fri Dec  3 21:00:51 2004
@@ -34,14 +34,20 @@
     Apache-Test/META.yml
 };
 
+my @repos = qw(
+    Apache-Test
+    docs
+);
+
 sub get_svn_files {
     my @files;
-
-    foreach my $ent (`svn ls -R`) {
-        chomp($ent);
-        push @files, $ent if -f $ent;
+    foreach my $repos ('', @repos) {
+        foreach my $ent (`svn ls -R $repos`) {
+            chomp($ent);
+            $ent = File::Spec->catfile($repos, $ent) if $repos;
+            push @files, $ent if -f $ent;
+        }
     }
-
     return @files;
 }