Updated HTTP::Tiny to CPAN version 0.010

Includes VMS test fixes by Craig Berry

3 files changed, 28 insertions, 6 deletions

diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
index 4686fe8db0..55912ff7d0 100644
--- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
+++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
@@ -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
diff --git a/cpan/HTTP-Tiny/t/110_mirror.t b/cpan/HTTP-Tiny/t/110_mirror.t
index 34e0c90666..7f10ff1dbf 100644
--- a/cpan/HTTP-Tiny/t/110_mirror.t
+++ b/cpan/HTTP-Tiny/t/110_mirror.t
@@ -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
diff --git a/cpan/HTTP-Tiny/t/Util.pm b/cpan/HTTP-Tiny/t/Util.pm
index f6c5f321de..d049487451 100644
--- a/cpan/HTTP-Tiny/t/Util.pm
+++ b/cpan/HTTP-Tiny/t/Util.pm
@@ -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;