/[gentoo-perl]/g-cpan/trunk/bin/g-cpan
Gentoo

Diff of /g-cpan/trunk/bin/g-cpan

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

Revision 120 Revision 121
606 606
607sub scanTree { 607sub scanTree {
608 my ($module) = @_; 608 my ($module) = @_;
609 $module or return; 609 $module or return;
610 610
611 if ($module =~ /pathtools/gimx) { $module = "File-Spec" }
611 foreach my $portage_root (keys %{$gcpan_run->{portage_bases}}) { 612 foreach my $portage_root (keys %{$gcpan_run->{portage_bases}}) {
612 $verbose and print_info($prog, "Looking at $portage_root"); 613 $verbose and print_info($prog, "Looking at $portage_root");
613 if (-d $portage_root) { 614 if (-d $portage_root) {
614 $verbose and print_ok($prog, "Scanning $portage_root for $module"); 615 $verbose and print_ok($prog, "Scanning $portage_root for $module");
615 $gcpan_run->getAvailableVersions($portage_root, $module); 616 $gcpan_run->getAvailableVersions($portage_root, $module);

Legend:
Removed from v.120  
changed lines
  Added in v.121

  ViewVC Help
Powered by ViewVC 1.1.20