In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cd3be6b2cf24e3d227b2dbd94aa64f40d21675d2?hp=02784d74952049f63fc33e0ce922ee6aa93bf665>
- Log ----------------------------------------------------------------- commit cd3be6b2cf24e3d227b2dbd94aa64f40d21675d2 Author: David Mitchell <[email protected]> Date: Wed Aug 5 17:31:06 2009 +0100 document CPAN::FTP hack M pod/perl5101delta.pod commit 5e454cb158774548ce8e92ba408099db9f17bf3d Author: David Mitchell <[email protected]> Date: Wed Aug 5 17:24:58 2009 +0100 The current CPAN is very noisy on download failure; it's showing a full perl stack trace. temporary fix for now. (cherry picked from commit 039dab98824ab37144e8e9a1c62c6a4cbd4a8012) M lib/CPAN/FTP.pm ----------------------------------------------------------------------- Summary of changes: lib/CPAN/FTP.pm | 6 +++--- pod/perl5101delta.pod | 3 ++- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/CPAN/FTP.pm b/lib/CPAN/FTP.pm index e4e462a..fab3d12 100644 --- a/lib/CPAN/FTP.pm +++ b/lib/CPAN/FTP.pm @@ -13,7 +13,7 @@ use vars qw($connect_to_internet_ok $Ua $Thesite $ThesiteURL $Themethod); use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5001"; #-> sub CPAN::FTP::ftp_statistics # if they want to rewrite, they need to pass in a filehandle @@ -832,9 +832,9 @@ No success, the file that lynx has downloaded is an empty file. } # host require Carp; if ($some_dl_success) { - Carp::cluck("Warning: doesn't seem we had substantial success downloading '$aslocal'. Don't know how to proceed."); + Carp::carp("Warning: doesn't seem we had substantial success downloading '$aslocal'. Don't know how to proceed."); } else { - Carp::cluck("Warning: no success downloading '$aslocal'. Giving up on it."); + Carp::carp("Warning: no success downloading '$aslocal'. Giving up on it."); } $CPAN::Frontend->mysleep(5); return; diff --git a/pod/perl5101delta.pod b/pod/perl5101delta.pod index 23f7972..4c882d2 100644 --- a/pod/perl5101delta.pod +++ b/pod/perl5101delta.pod @@ -403,7 +403,8 @@ Upgraded from version 2.008 to 2.020. =item C<CPAN> -Upgraded from version 1.9205 to 1.9402. +Upgraded from version 1.9205 to 1.9402. C<CPAN::FTP> has a local fix to +stop it being too verbose on download failure. =item C<CPANPLUS> -- Perl5 Master Repository
