perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject Modperl/Manifest.pm -- SVN 1.4.x breaks !!
Date Wed, 08 Nov 2006 10:21:43 GMT
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 (pgollucci@p6m7g8.com) 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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message