/[gentoo-perl]/g-cpan/trunk/lib/Gentoo/CPAN.pm
Gentoo

Diff of /g-cpan/trunk/lib/Gentoo/CPAN.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 89 Revision 90
376 my $filename = $name; 376 my $filename = $name;
377 my($modpath, $filenamever, $fileext); 377 my($modpath, $filenamever, $fileext);
378 $fileext = $1 if $filename =~ s/\.($re_ext)$//; 378 $fileext = $1 if $filename =~ s/\.($re_ext)$//;
379 $modpath = $1 if $filename =~ s/^($re_path)\///; 379 $modpath = $1 if $filename =~ s/^($re_path)\///;
380 $filenamever = $1 if $filename =~ s/-($re_ver$re_suf$re_rev)$//; 380 $filenamever = $1 if $filename =~ s/-($re_ver$re_suf$re_rev)$//;
381
382 # Alphanumeric version numbers? (http://search.cpan.org/~pip/)
383 if ($filename =~ s/-(\d\.\d\.\d)([A-Za-z0-9]{6})$//) {
384 $filenamever = $1;
385 $filenamever .= ('.'.ord($_)) foreach split(//, $2);
386 }
381 387
382 # remove underscores 388 # remove underscores
383 return unless ($filename); 389 return unless ($filename);
384 unless ($filename) { print STDERR "$name yielded $filename\n"; sleep(4); } 390 unless ($filename) { print STDERR "$name yielded $filename\n"; sleep(4); }
385 $filename =~ tr/A-Za-z0-9\./-/c; 391 $filename =~ tr/A-Za-z0-9\./-/c;

Legend:
Removed from v.89  
changed lines
  Added in v.90

  ViewVC Help
Powered by ViewVC 1.1.20