Hello Andreas,
Andreas Koenig wrote:
Show quoted text> What could be the reason for this message? Is it indicating a problem?
>
> t/02internals......25/53 CPANPLUS currently only supports one
> CPANPLUS::Backend object per running program
> CPANPLUS currently only supports one CPANPLUS::Backend object per
> running program
> CPANPLUS currently only supports one CPANPLUS::Backend object per
> running program
> CPANPLUS currently only supports one CPANPLUS::Backend object per
> running program
> t/02internals......ok
I had searched for the cause of this, but was unable to understand
why they happen.
»
http://rt.cpan.org/Public/Bug/Display.html?id=24706
Show quoted text> As far as I can tell, there is no other process running with CPANPLUS.
Looking at this again, I wonder why I didn't find the problem back
then. It seems that CPANPLUS::Backend is a singleton, but decides to
noisily notify the user of this:
$ perl -wMCPANPLUS::Backend -le 'print$c=CPANPLUS::Backend->new;
undef $c; print$c=CPANPLUS::Backend->new'
CPANPLUS::Backend=HASH(0x19e192c)
CPANPLUS currently only supports one CPANPLUS::Backend object per
running program
CPANPLUS::Backend=HASH(0x19e192c)
So I've splitted t/02internals.t into several script in order to
avoid these warnings. But I think CPANPLUS::Backend should not be so
noisy and just document that ->new gives access to a singleton, like
Test::Builder does.
Show quoted text> But I had to kill a t/02internals.t process earlier today that
> seemed to
> hang for more than 15 minutes. Maybe it was running into a timeout.
> Here
> is what I gathered before killing it:
>
>> sand@k75:~/CPAN-SVN% ps -A -o user,pid,ppid,start_time,cmd | grep
> '^sand'|grep 3533
> sand 3533 3527 12:26
> /home/src/perl/repoperls/installed-perls/perl/pXTMoRe/
> perl-5.10.0@33401/bin/perl
> -w t/02internals.t
> sand 7509 27737 12:42 grep 3533
>> sand@k75:~/CPAN-SVN% strace -p 3533
> Process 3533 attached - interrupt to quit
> select(8, [4], NULL, NULL, {278, 608000} <unfinished ...>
> Process 3533 detached
>> sand@k75:~/CPAN-SVN% kill 3533
>> sand@k75:~/CPAN-SVN%
>
>
> Maybe it was connecting with ftp without passive mode?
>
> A bit more feedback from the tests would be helpful and also a way to
> specify net-less testing would be nice.
Probably but OTOH, as I stated in the module documentation, I wrote
it back in 1995 to answer some questions Andy Lester had asked back
then for the Phalanx Project. I think there are currently better
alternatives than this module.
Regarding the tests that use CPANPLUS, I can try to skip them if the
source list does not begins with a local mirror (file:///... or
http://localhost/...)
[ reading the docs ] Ah yes, I can get the list of mirrors from
CPANPLUS::Configure:
@sources = @{ CPANPLUS::Configure->new->get_conf("hosts") }
Currently adding this in the tests.
Thanks for taking the time to fill this ticket, and also for the RT
spam you took care of.
--
Sébastien Aperghis-Tramoni
Close the world, txEn eht nepO.
