>>>>> On Fri, 26 Jun 2009 10:41:50 -0400, Asif Iqbal <vad...@gmail.com> said:

  > On Wed, Jun 24, 2009 at 10:50 PM, Andreas J.
  > Koenig<andreas.koenig.7os6v...@franz.ak.mind.de> wrote:
 >> What is in /var/spool/cpan/ ? If it is looks like being left over by
 >> CPAN.pm please send it to me. As a workaround I suggest removing "it"
 >> if possible.

  > # ls -al /var/spool/cpan/
  > total 11652
  > drwxr-xr-x 7 root root     4096 2009-06-26 10:40 .
  > drwxr-xr-x 5 root root     4096 2009-06-23 17:56 ..
  > drwxr-xr-x 5 root root     4096 2009-06-24 14:53 
CPAN-DistnameInfo-0.08-EIEXh8
  > -rw-r--r-- 1 root root     1257 2009-06-24 14:53
  > CPAN-DistnameInfo-0.08-EIEXh8.yml
  > -rw-r--r-- 1 root root     3718 2009-06-26 10:40 FTPstats.yml

Thank you, this is it. It's not expected to have unrelated yaml files
in the build directory. You can try to get away with the patch below
or isolate the build directory from other directories within ~/.cpan/.
I would expect that not having a dedicated build directory has more
inherent risks, so better you run

  o conf init build_dir

and choose a new, empty build directory instead of the old one.

Something like this patch will eventually be applied to the sources to
prevent future accidents like yours.

--- a/lib/CPAN/Index.pm
+++ b/lib/CPAN/Index.pm
@@ -146,7 +146,7 @@ sub reanimate_build_dir {
             next DISTRO;
         }
         my $c = $y->[0];
-        if ($c && CPAN->_perl_fingerprint($c->{perl})) {
+        if ($c && $c->{perl} && CPAN->_perl_fingerprint($c->{perl})) {
             my $key = $c->{distribution}{ID};
             for my $k (keys %{$c->{distribution}}) {
                 if ($c->{distribution}{$k}


Thanks for the report,
-- 
andreas

Reply via email to