diff options
| author | Andreas Koenig <andk@cpan.org> | 2009-10-02 08:36:23 +0200 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2009-10-02 08:05:07 -0400 |
| commit | 87e4a48e2588120328fce8ec0972cf7f1fdf452a (patch) | |
| tree | 890ba30f6af055ee777ec0f0811a143ad7216019 | |
| parent | 1cb9da9d366800830079fb7431f015174024a623 (diff) | |
| download | perl-87e4a48e2588120328fce8ec0972cf7f1fdf452a.tar.gz | |
CPAN.pm post-1.94_51 fix in upstream repository
| -rw-r--r-- | cpan/CPAN/lib/CPAN/FTP.pm | 7 |
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; |