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