Permalink
Browse files

Don't follow symlinks when indexing the CPAN

distros. CPAN::DistnameInfo, which used by Parse::CPAN::Packages,
can't handle old-style paths (authors/id/DMR). Those are all just
symlinks to the modern style (authors/id/D/DM/DMR) anyway.
  • Loading branch information...
autarch committed Jul 6, 2009
1 parent 6274dab commit d5079141dc9223ccf92d74cbc65046ffc8688439
Showing with 1 addition and 1 deletion.
  1. +1 −1 tmp/index.pl
View
@@ -64,7 +64,7 @@
sub scan_releases
{
- my $file_it = File::Next::files( $cpan_base->subdir( qw( authors id ) ) );
+ my $file_it = File::Next::files( { follow_symlinks => 0 }, $cpan_base->subdir( qw( authors id ) ) );
print "Scanning Files...\n";
my $count = 0;

0 comments on commit d507914

Please sign in to comment.