r68909 - in /trunk/libhttp-tiny-perl: Changes META.json META.yml Makefile.PL README debian/changelog lib/HTTP/Tiny.pm t/110_mirror.t t/Util.pm
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Thu Feb 17 16:29:32 UTC 2011
Author: ghedo-guest
Date: Thu Feb 17 16:29:03 2011
New Revision: 68909
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68909
Log:
new upstream release
Modified:
trunk/libhttp-tiny-perl/Changes
trunk/libhttp-tiny-perl/META.json
trunk/libhttp-tiny-perl/META.yml
trunk/libhttp-tiny-perl/Makefile.PL
trunk/libhttp-tiny-perl/README
trunk/libhttp-tiny-perl/debian/changelog
trunk/libhttp-tiny-perl/lib/HTTP/Tiny.pm
trunk/libhttp-tiny-perl/t/110_mirror.t
trunk/libhttp-tiny-perl/t/Util.pm
Modified: trunk/libhttp-tiny-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/Changes?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/Changes (original)
+++ trunk/libhttp-tiny-perl/Changes Thu Feb 17 16:29:03 2011
@@ -1,4 +1,18 @@
Release notes for HTTP-Tiny
+
+0.010 2011-02-04 02:45:31 EST5EDT
+
+ [BUG FIXES]
+
+ - Fixed test errors on VMS (RT#65430) [Craig Berry]
+
+0.009 2011-01-17 16:29:22 EST5EDT
+
+ - Added workaround for IO::Socket::SSL certificate verification bug
+
+ - Minor documentation improvements
+
+ - POST example added to the eg/ directory in the distribution tarball
0.008 2011-01-14 06:34:55 EST5EDT
Modified: trunk/libhttp-tiny-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/META.json?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/META.json (original)
+++ trunk/libhttp-tiny-perl/META.json Thu Feb 17 16:29:03 2011
@@ -5,7 +5,7 @@
"David Golden <dagolden at cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.102400",
+ "generated_by" : "Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.110330",
"license" : [
"perl_5"
],
@@ -46,6 +46,7 @@
"Exporter" : 0,
"File::Basename" : 0,
"File::Find" : 0,
+ "File::Spec" : 0,
"File::Temp" : 0,
"IO::Dir" : 0,
"IO::File" : 0,
@@ -57,15 +58,19 @@
"provides" : {
"HTTP::Tiny" : {
"file" : "lib/HTTP/Tiny.pm",
- "version" : "0.008"
+ "version" : "0.010"
},
"HTTP::Tiny::Handle" : {
"file" : "lib/HTTP/Tiny.pm",
- "version" : "0.008"
+ "version" : "0.010"
}
},
"release_status" : "stable",
"resources" : {
+ "bugtracker" : {
+ "mailto" : "bug-http-tiny at rt.cpan.org",
+ "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=HTTP-Tiny"
+ },
"homepage" : "http://github.com/dagolden/p5-http-tiny/tree",
"repository" : {
"type" : "git",
@@ -73,6 +78,6 @@
"web" : "http://github.com/dagolden/p5-http-tiny/tree"
}
},
- "version" : "0.008"
+ "version" : "0.010"
}
Modified: trunk/libhttp-tiny-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/META.yml?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/META.yml (original)
+++ trunk/libhttp-tiny-perl/META.yml Thu Feb 17 16:29:03 2011
@@ -8,6 +8,7 @@
Exporter: 0
File::Basename: 0
File::Find: 0
+ File::Spec: 0
File::Temp: 0
IO::Dir: 0
IO::File: 0
@@ -16,7 +17,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.102400'
+generated_by: 'Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.110330'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -33,10 +34,10 @@
provides:
HTTP::Tiny:
file: lib/HTTP/Tiny.pm
- version: 0.008
+ version: 0.010
HTTP::Tiny::Handle:
file: lib/HTTP/Tiny.pm
- version: 0.008
+ version: 0.010
requires:
Carp: 0
Errno: 0
@@ -44,6 +45,7 @@
Time::Local: 0
perl: 5.006
resources:
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=HTTP-Tiny
homepage: http://github.com/dagolden/p5-http-tiny/tree
repository: git://github.com/dagolden/p5-http-tiny.git
-version: 0.008
+version: 0.010
Modified: trunk/libhttp-tiny-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/Makefile.PL?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/Makefile.PL (original)
+++ trunk/libhttp-tiny-perl/Makefile.PL Thu Feb 17 16:29:03 2011
@@ -16,6 +16,7 @@
'Exporter' => '0',
'File::Basename' => '0',
'File::Find' => '0',
+ 'File::Spec' => '0',
'File::Temp' => '0',
'IO::Dir' => '0',
'IO::File' => '0',
@@ -35,7 +36,7 @@
'IO::Socket' => '0',
'Time::Local' => '0'
},
- 'VERSION' => '0.008',
+ 'VERSION' => '0.010',
'test' => {
'TESTS' => 't/*.t'
}
Modified: trunk/libhttp-tiny-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/README?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/README (original)
+++ trunk/libhttp-tiny-perl/README Thu Feb 17 16:29:03 2011
@@ -2,7 +2,7 @@
HTTP::Tiny - A small, simple, correct HTTP/1.1 client
VERSION
- version 0.008
+ version 0.010
SYNOPSIS
use HTTP::Tiny;
@@ -95,10 +95,10 @@
$response = $http->request($method, $url);
$response = $http->request($method, $url, \%options);
- Executes an HTTP request of the given method type ('GET', 'HEAD', 'PUT',
- etc.) on the given URL. The URL must have unsafe characters escaped and
- international domain names encoded. A hashref of options may be appended
- to modify the request.
+ Executes an HTTP request of the given method type ('GET', 'HEAD',
+ 'POST', 'PUT', etc.) on the given URL. The URL must have unsafe
+ characters escaped and international domain names encoded. A hashref of
+ options may be appended to modify the request.
Valid options are:
@@ -214,6 +214,21 @@
SEE ALSO
* LWP::UserAgent
+SUPPORT
+ Bugs / Feature Requests
+ Please report any bugs or feature requests on the bugtracker website
+ <http://rt.cpan.org/Public/Dist/Display.html?Name=HTTP-Tiny> or by email
+ to 'bug-http-tiny at rt.cpan.org'. I will be notified, and then you'll
+ automatically be notified of progress on your bug as I make changes.
+
+ Source Code
+ This is open source software. The code repository is available for
+ public review and contribution under the terms of the license.
+
+ <http://github.com/dagolden/p5-http-tiny/tree>
+
+ git clone git://github.com/dagolden/p5-http-tiny.git
+
AUTHORS
* Christian Hansen <chansen at cpan.org>
Modified: trunk/libhttp-tiny-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/debian/changelog?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/debian/changelog (original)
+++ trunk/libhttp-tiny-perl/debian/changelog Thu Feb 17 16:29:03 2011
@@ -1,3 +1,9 @@
+libhttp-tiny-perl (0.010-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Alessandro Ghedini <al3xbio at gmail.com> Thu, 17 Feb 2011 17:26:48 +0100
+
libhttp-tiny-perl (0.008-1) unstable; urgency=low
* Initial Release. (Closes: #609901)
Modified: trunk/libhttp-tiny-perl/lib/HTTP/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/lib/HTTP/Tiny.pm?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/lib/HTTP/Tiny.pm (original)
+++ trunk/libhttp-tiny-perl/lib/HTTP/Tiny.pm Thu Feb 17 16:29:03 2011
@@ -9,7 +9,7 @@
#
package HTTP::Tiny;
BEGIN {
- $HTTP::Tiny::VERSION = '0.008';
+ $HTTP::Tiny::VERSION = '0.010';
}
use strict;
use warnings;
@@ -325,6 +325,12 @@
}, $class;
}
+my $ssl_verify_args = {
+ check_cn => "when_only",
+ wildcards_in_alt => "anywhere",
+ wildcards_in_cn => "anywhere"
+};
+
sub connect {
@_ == 4 || croak(q/Usage: $handle->connect(scheme, host, port)/);
my ($self, $scheme, $host, $port) = @_;
@@ -353,8 +359,9 @@
if ( $scheme eq 'https') {
IO::Socket::SSL->start_SSL($self->{fh});
ref($self->{fh}) eq 'IO::Socket::SSL'
- and $self->{fh}->verify_hostname( $host, 'http' )
- or croak(qq/SSL connection failed for $host\n/);
+ or die(qq/SSL connection failed for $host\n/);
+ $self->{fh}->verify_hostname( $host, $ssl_verify_args )
+ or die(qq/SSL certificate not valid for $host\n/);
}
$self->{host} = $host;
@@ -752,7 +759,7 @@
=head1 VERSION
-version 0.008
+version 0.010
=head1 SYNOPSIS
@@ -866,8 +873,8 @@
$response = $http->request($method, $url);
$response = $http->request($method, $url, \%options);
-Executes an HTTP request of the given method type ('GET', 'HEAD', 'PUT', etc.)
-on the given URL. The URL must have unsafe characters escaped and
+Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
+'PUT', etc.) on the given URL. The URL must have unsafe characters escaped and
international domain names encoded. A hashref of options may be appended to
modify the request.
@@ -1044,6 +1051,23 @@
=back
+=for :stopwords CPAN AnnoCPAN RT CPANTS Kwalitee diff IRC
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests on the bugtracker website L<http://rt.cpan.org/Public/Dist/Display.html?Name=HTTP-Tiny> or by email to 'bug-http-tiny at rt.cpan.org'. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
+
+=head2 Source Code
+
+This is open source software. The code repository is available for
+public review and contribution under the terms of the license.
+
+L<http://github.com/dagolden/p5-http-tiny/tree>
+
+ git clone git://github.com/dagolden/p5-http-tiny.git
+
=head1 AUTHORS
=over 4
Modified: trunk/libhttp-tiny-perl/t/110_mirror.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/t/110_mirror.t?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/t/110_mirror.t (original)
+++ trunk/libhttp-tiny-perl/t/110_mirror.t Thu Feb 17 16:29:03 2011
@@ -17,11 +17,12 @@
set_socket_source sort_headers $CRLF $LF];
use HTTP::Tiny;
use File::Temp qw/tempdir/;
+use File::Spec;
BEGIN { monkey_patch() }
my $tempdir = tempdir( TMPDIR => 1, CLEANUP => 1 );
-my $tempfile = $tempdir . "/tempfile.txt";
+my $tempfile = File::Spec->catfile( $tempdir, "tempfile.txt" );
my $known_epoch = 760233600;
my $day = 24*3600;
@@ -32,7 +33,7 @@
);
for my $file ( dir_list("t/cases", qr/^mirror/ ) ) {
- unlink $tempfile;
+ 1 while unlink $tempfile;
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
Modified: trunk/libhttp-tiny-perl/t/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-tiny-perl/t/Util.pm?rev=68909&op=diff
==============================================================================
--- trunk/libhttp-tiny-perl/t/Util.pm (original)
+++ trunk/libhttp-tiny-perl/t/Util.pm Thu Feb 17 16:29:03 2011
@@ -11,7 +11,7 @@
use strict;
use warnings;
-use IO::File q[SEEK_SET];
+use IO::File qw(SEEK_SET SEEK_END);
use IO::Dir;
BEGIN {
@@ -72,12 +72,16 @@
sub slurp (*) {
my ($fh) = @_;
+ seek($fh, 0, SEEK_END)
+ || die(qq/Couldn't navigate to EOF on file handle: '$!'/);
+
+ my $exp = tell($fh);
+
rewind($fh);
binmode($fh)
|| die(qq/Couldn't binmode file handle: '$!'/);
- my $exp = -s $fh;
my $buf = do { local $/; <$fh> };
my $got = length $buf;
More information about the Pkg-perl-cvs-commits
mailing list