X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo.pm;h=f2a12085e98e0ff3efdd7f26b2f0b328d77f37d2;hp=bcdc7282fb46c5267aba7b4ca37c8ad18cee84e9;hb=b59e187dfbf5005ed791836f59ac18e0111bcbd4;hpb=94d4cd2d24e105bf0d2c8117e2b5d469ccd13581 diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm index bcdc728..f2a1208 100644 --- a/lib/CPANPLUS/Dist/Gentoo.pm +++ b/lib/CPANPLUS/Dist/Gentoo.pm @@ -75,7 +75,7 @@ sub format_available { my $o = $1; $o =~ s/^["']*//; $o =~ s/["']*$//; - $overlays = [ map abs_path($_), grep length, split /:/, $o ]; + $overlays = [ map abs_path($_), split ' ', $o ]; } if (/^ACCEPT_KEYWORDS=(.*)$/m) { my $k = $1; @@ -244,11 +244,11 @@ sub prepare { my $portdir_overlay; for (@$overlays) { if ($_ eq $overlay or File::Spec::Functions::abs2rel($overlay, $_) eq $cur) { - $portdir_overlay = join ':', @$overlays; + $portdir_overlay = join ' ', @$overlays; last; } } - $portdir_overlay = join ':', @$overlays, $overlay + $portdir_overlay = join ' ', @$overlays, $overlay unless defined $portdir_overlay; $stat->portdir_overlay($portdir_overlay);