Show
Ignore:
Timestamp:
07/14/08 12:04:01 (4 months ago)
Author:
charsbar
Message:

Acme-CPANAuthors: try harder to find 01mailrc when there's a local CPAN mirror

Location:
lang/perl/Acme-CPANAuthors/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Acme-CPANAuthors/trunk/Changes

    r13053 r15782  
    11Revision history for Acme-CPANAuthors 
    22 
    3 0.04 not yet released 
     30.04 2008/07/14 
    44  - bumped up the version req of Parse::CPAN::Authors to 2.27 
     5  - try harder to find 01mailrc file when there's a local CPAN 
     6    mirror in the urllist of CPAN::Config 
    57 
    680.03 2008/05/30 

  • lang/perl/Acme-CPANAuthors/trunk/lib/Acme/CPANAuthors/Utils.pm

    r11299 r15782  
    4848  my $source_dir = $CPAN::Config->{keep_source_where}; 
    4949  my $file = _catfile( $source_dir, '/', $dir, '/', $basename ); 
     50  unless ( -f $file ) { 
     51    require URI::file; 
     52    foreach my $url ( @{ $CPAN::Config->{urllist} || [] } ) { 
     53      next unless $url =~ s{^file://}{/}; 
     54      $file = URI::file->new(join '/', $url, $dir, $basename )->file; 
     55      last if -f $file; 
     56    } 
     57  } 
     58  unless ( -f $file ) { 
     59    $file = _catfile( $source_dir, '/', $dir, '/', "$basename.bak" ); 
     60  } 
    5061  unless ( -f $file ) { 
    5162    $file = _catfile( $source_dir, '/', $basename );