summaryrefslogtreecommitdiff
path: root/cpan/CPAN/lib
diff options
context:
space:
mode:
authorAndreas Koenig <andk@cpan.org>2009-10-02 08:36:23 +0200
committerDavid Golden <dagolden@cpan.org>2009-10-02 08:05:07 -0400
commit87e4a48e2588120328fce8ec0972cf7f1fdf452a (patch)
tree890ba30f6af055ee777ec0f0811a143ad7216019 /cpan/CPAN/lib
parent1cb9da9d366800830079fb7431f015174024a623 (diff)
downloadperl-87e4a48e2588120328fce8ec0972cf7f1fdf452a.tar.gz
CPAN.pm post-1.94_51 fix in upstream repository
Diffstat (limited to 'cpan/CPAN/lib')
-rw-r--r--cpan/CPAN/lib/CPAN/FTP.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/cpan/CPAN/lib/CPAN/FTP.pm b/cpan/CPAN/lib/CPAN/FTP.pm
index b5f51e2875..412f8d7d08 100644
--- a/cpan/CPAN/lib/CPAN/FTP.pm
+++ b/cpan/CPAN/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.5002";
#-> sub CPAN::FTP::ftp_statistics
# if they want to rewrite, they need to pass in a filehandle
@@ -830,11 +830,10 @@ No success, the file that lynx has downloaded is an empty file.
return if $CPAN::Signal;
} # download/transfer programs (DLPRG)
} # 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.");
+ $CPAN::Frontend->mywarn("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.");
+ $CPAN::Frontend->mywarn("Warning: no success downloading '$aslocal'. Giving up on it.");
}
$CPAN::Frontend->mysleep(5);
return;