diff options
Diffstat (limited to 'cpan/File-Fetch')
| -rw-r--r-- | cpan/File-Fetch/lib/File/Fetch.pm | 2 | ||||
| -rw-r--r-- | cpan/File-Fetch/t/01_File-Fetch.t | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm index 9f1d0b6120..d90232f413 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 652c10ce36..b057fcb13e 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 '@'] ); |