From: Chris Williams Date: Sat, 14 Nov 2009 23:22:32 +0000 (+0000) Subject: Updated File::Fetch to cpan version 0.22 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4192a60ab85c903bbbe3c8cb5b7e2afc0b34760c;p=p5sagit%2Fp5-mst-13.2.git Updated File::Fetch to cpan version 0.22 Changes for 0.22 Sat Nov 14 23:13:16 2009 ================================================= * Bumped to stable version --- diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index c16ff6a..de8c33c 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -660,7 +660,7 @@ use File::Glob qw(:case); 'File::Fetch' => { 'MAINTAINER' => 'kane', - 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.21_02.tar.gz', + 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.22.tar.gz', 'FILES' => q[cpan/File-Fetch], 'CPAN' => 1, 'UPSTREAM' => 'cpan', diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm index 9f1d0b6..d90232f 100644 --- a/cpan/File-Fetch/lib/File/Fetch.pm +++ b/cpan/File-Fetch/lib/File/Fetch.pm @@ -22,7 +22,7 @@ use vars qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT $FTP_PASSIVE $TIMEOUT $DEBUG $WARN ]; -$VERSION = '0.21_02'; +$VERSION = '0.22'; $VERSION = eval $VERSION; # avoid warnings with development releases $PREFER_BIN = 0; # XXX TODO implement $FROM_EMAIL = 'File-Fetch@example.com'; diff --git a/cpan/File-Fetch/t/01_File-Fetch.t b/cpan/File-Fetch/t/01_File-Fetch.t index 652c10c..b057fcb 100644 --- a/cpan/File-Fetch/t/01_File-Fetch.t +++ b/cpan/File-Fetch/t/01_File-Fetch.t @@ -116,7 +116,9 @@ push @map, ( ### sanity tests -{ like( $File::Fetch::USER_AGENT, qr/$File::Fetch::VERSION/, +{ + no warnings; + like( $File::Fetch::USER_AGENT, qr/$File::Fetch::VERSION/, "User agent contains version" ); like( $File::Fetch::FROM_EMAIL, qr/@/, q[Email contains '@'] );