diff options
| author | David Mitchell <davem@iabyn.com> | 2009-08-05 17:24:58 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-08-05 17:29:32 +0100 |
| commit | 5e454cb158774548ce8e92ba408099db9f17bf3d (patch) | |
| tree | 016af203b18a2fcc970bae1e5b2294c5e41fc8ef | |
| parent | 02784d74952049f63fc33e0ce922ee6aa93bf665 (diff) | |
| download | perl-5e454cb158774548ce8e92ba408099db9f17bf3d.tar.gz | |
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)
| -rw-r--r-- | lib/CPAN/FTP.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/CPAN/FTP.pm b/lib/CPAN/FTP.pm index e4e462a7a8..fab3d123ef 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; |