Show
Ignore:
Timestamp:
10/02/07 21:15:01 (14 months ago)
Author:
charsbar
Message:

lang/perl/Acme-JapaneseCPANAuthors: just do as CPAN does

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Acme-JapaneseCPANAuthors/trunk/lib/Acme/JapaneseCPANAuthors.pm

    r341 r347  
    4747  $checksumfile[1] = join '', @checksumfile[0,1]; 
    4848  $checksumfile[2] = join '', @checksumfile[1,2]; 
     49 
     50  { 
     51    my @items = $author->dir_listing([$checksumfile[0], 'CHECKSUMS'], 0, 1); 
     52    # directory not found 
     53    return unless grep { $_->[2] eq $checksumfile[1] } @items; 
     54  } 
     55  { 
     56    my @items = $author->dir_listing([@checksumfile[0,1], 'CHECKSUMS'], 0, 1); 
     57    # directory not found 
     58    return unless grep { $_->[2] eq $checksumfile[2] } @items; 
     59  } 
    4960 
    5061  my @items = $author->dir_listing([@checksumfile, 'CHECKSUMS'], 1, 1 );