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.
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 ?
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;
}
--
------------------------------------------------------------------------
Philip M. Gollucci ([EMAIL PROTECTED]) 323.219.4708
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com
1024D/A79997FA F357 0FDD 2301 6296 690F 6A47 D55A 7172 A799 97F
I never had a dream come true
'Til the day that I found you.
Even though I pretend that I've moved on
You'll always be my baby.
I never found the words to say
You're the one I think about each day
And I know no matter where life takes me to
A part of me will always be...
A part of me will always be with you.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
