Philip M. Gollucci wrote:
Like um, are you kidding me?

SVN switches the .svn dir's entries file to a binary format which IMHO is a good thing(tm) its much faster.

Yay, that's fantastic!

Obviously, I swap some paths to get a 1.3.x and re-checkout to roll -rc2, but is there any reason a simple find . -type f (not quite that simple) or similar won't work. I guess we could do a 'svn status' if you really want to get SVN involved. Or we could actually write out a MANIFEST file once and for all and then just update it like most other CPAN type projects.

Thoughts ?

If you don't mind the delay, the following will do the same job as the code below:

   svn list -R https://svn.apache.org/repos/asf/perl/modperl/trunk


sub get_svn_files {
    my @files;

    my $cwd = Cwd::cwd();

    finddepth({ follow => 1, wanted => sub {
        return unless $_ eq 'entries';
        return unless $File::Find::dir =~ /\.svn$/;

        my $dir = dirname $File::Find::dir;
        $dir =~ s,^$cwd/?,,;

        open my $fh, $_ or die "open $_: $!";
        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;
             }
        }
        close $fh;

    }}, $cwd);

    # files to add which aren't under svn
    push @files, qw(lib/ModPerl/DummyVersions.pm);

    return @files;
}




--
_____________________________________________________________
Stas Bekman    mailto:[EMAIL PROTECTED] http://stason.org/
MailChannels: Reliable Email Delivery http://mailchannels.com
The "Practical mod_perl" book         http://modperlbook.org/
http://www.linkedin.com/in/stasbekman http://perl.apache.org/
http://stason.org/photos/gallery/     [* best photos here *]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to