The current CPAN is very noisy on download failure;
authorDavid Mitchell <davem@iabyn.com>
Wed, 5 Aug 2009 16:24:58 +0000 (17:24 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 5 Aug 2009 16:29:32 +0000 (17:29 +0100)
it's showing a full perl stack trace. temporary fix for now.

(cherry picked from commit 039dab98824ab37144e8e9a1c62c6a4cbd4a8012)

lib/CPAN/FTP.pm

index e4e462a..fab3d12 100644 (file)
@@ -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;