This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updated HTTP::Tiny to CPAN version 0.010
authorDavid Golden <dagolden@cpan.org>
Fri, 4 Feb 2011 07:51:14 +0000 (02:51 -0500)
committerDavid Golden <dagolden@cpan.org>
Fri, 4 Feb 2011 07:51:14 +0000 (02:51 -0500)
Includes VMS test fixes by Craig Berry

Porting/Maintainers.pl
cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
cpan/HTTP-Tiny/t/110_mirror.t
cpan/HTTP-Tiny/t/Util.pm
pod/perldelta.pod

index 71fd082..ec0c275 100755 (executable)
@@ -768,7 +768,7 @@ use File::Glob qw(:case);
     'HTTP::Tiny' =>
        {
        'MAINTAINER'    => 'dagolden',
-       'DISTRIBUTION'  => 'DAGOLDEN/HTTP-Tiny-0.009.tar.gz',
+       'DISTRIBUTION'  => 'DAGOLDEN/HTTP-Tiny-0.010.tar.gz',
        'FILES'         => q[cpan/HTTP-Tiny],
        'EXCLUDED'      => [
                                't/200_live.t',
index 4686fe8..55912ff 100644 (file)
@@ -9,7 +9,7 @@
 #
 package HTTP::Tiny;
 BEGIN {
-  $HTTP::Tiny::VERSION = '0.009';
+  $HTTP::Tiny::VERSION = '0.010';
 }
 use strict;
 use warnings;
@@ -759,7 +759,7 @@ HTTP::Tiny - A small, simple, correct HTTP/1.1 client
 
 =head1 VERSION
 
-version 0.009
+version 0.010
 
 =head1 SYNOPSIS
 
@@ -1051,6 +1051,23 @@ L<LWP::UserAgent>
 
 =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
index 34e0c90..7f10ff1 100644 (file)
@@ -17,11 +17,12 @@ use t::Util    qw[tmpfile rewind slurp monkey_patch dir_list parse_case
                   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 @@ my %timestamp = (
 );
 
 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
index f6c5f32..d049487 100644 (file)
@@ -11,7 +11,7 @@ package t::Util;
 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 dir_list {
 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;
 
index 6d2fe1d..b52960a 100644 (file)
@@ -134,6 +134,10 @@ C<IPC::Cmd> has been upgraded from version 0.68 to 0.70
 
 =item *
 
+C<HTTP::Tiny> has been upgraded from version 0.009 to 0.010
+
+=item *
+
 C<Module::Build> has been upgraded from version 0.3607 to 0.3622.
 
 A notable change is the deprecation of several modules.