From: Vincent Pit <vince@profvince.com>
Date: Sun, 21 Dec 2008 10:56:05 +0000 (+0100)
Subject: PORTDIR_OVERLAY is supposed to be a space-delimited list
X-Git-Tag: v0.05~9
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=b59e187dfbf5005ed791836f59ac18e0111bcbd4

PORTDIR_OVERLAY is supposed to be a space-delimited list
---

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);