Hello community,
here is the log from the commit of package perl-HTTP-Tiny for openSUSE:Factory
checked in at 2013-11-26 19:25:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Tiny (Old)
and /work/SRC/openSUSE:Factory/.perl-HTTP-Tiny.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Tiny"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-HTTP-Tiny/perl-HTTP-Tiny.changes
2013-10-21 15:13:49.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-HTTP-Tiny.new/perl-HTTP-Tiny.changes
2013-11-26 19:25:34.000000000 +0100
@@ -1,0 +2,14 @@
+Mon Nov 25 07:39:43 UTC 2013 - co...@suse.com
+
+- updated to 0.038
+ [FIXED]
+ - Fixed a bug where authentication parameters in the URL would override
+ an existing Authorization header
+ - Basic authentication in the URL is now unescaped before being encoded
+ into the authentication header
+
+ [DOCUMENTED]
+ - Added HTTP::Tiny::UA to SEE ALSO and suggested it as the appropriate
+ place for new features
+
+-------------------------------------------------------------------
Old:
----
HTTP-Tiny-0.036.tar.gz
New:
----
HTTP-Tiny-0.038.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTTP-Tiny.spec ++++++
--- /var/tmp/diff_new_pack.UvwLFw/_old 2013-11-26 19:25:34.000000000 +0100
+++ /var/tmp/diff_new_pack.UvwLFw/_new 2013-11-26 19:25:34.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-HTTP-Tiny
-Version: 0.036
+Version: 0.038
Release: 0
%define cpan_name HTTP-Tiny
Summary: A small, simple, correct HTTP/1.1 client
@@ -28,7 +28,6 @@
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
-BuildRequires: perl-doc
BuildRequires: perl-macros
BuildRequires: perl(IPC::Cmd)
BuildRequires: perl(Test::More) >= 0.96
++++++ HTTP-Tiny-0.036.tar.gz -> HTTP-Tiny-0.038.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/Changes new/HTTP-Tiny-0.038/Changes
--- old/HTTP-Tiny-0.036/Changes 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/Changes 2013-11-18 18:56:36.000000000 +0100
@@ -1,5 +1,24 @@
Release notes for HTTP-Tiny
+0.038 2013-11-18 12:56:26 America/New_York
+
+ [FIXED]
+
+ - Fixed a bug where authentication parameters in the URL would override
+ an existing Authorization header
+
+0.037 2013-10-28 13:26:21 America/New_York
+
+ [FIXED]
+
+ - Basic authentication in the URL is now unescaped before being encoded
+ into the authentication header
+
+ [DOCUMENTED]
+
+ - Added HTTP::Tiny::UA to SEE ALSO and suggested it as the appropriate
+ place for new features
+
0.036 2013-09-25 12:10:06 America/New_York
[FIXED]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/MANIFEST new/HTTP-Tiny-0.038/MANIFEST
--- old/HTTP-Tiny-0.036/MANIFEST 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/MANIFEST 2013-11-18 18:56:36.000000000 +0100
@@ -13,7 +13,6 @@
eg/post.pl
lib/HTTP/Tiny.pm
perlcritic.rc
-t/00-compile.t
t/00-report-prereqs.t
t/000_load.t
t/001_api.t
@@ -47,6 +46,8 @@
t/cases/auth-01.txt
t/cases/auth-02.txt
t/cases/auth-03.txt
+t/cases/auth-04.txt
+t/cases/auth-05.txt
t/cases/cookies-01.txt
t/cases/cookies-02.txt
t/cases/cookies-03.txt
@@ -102,6 +103,7 @@
t/cases/redirect-07.txt
t/cases/redirect-08.txt
t/cases/redirect-09.txt
+xt/author/00-compile.t
xt/author/critic.t
xt/author/pod-spell.t
xt/release/distmeta.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/META.json
new/HTTP-Tiny-0.038/META.json
--- old/HTTP-Tiny-0.036/META.json 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/META.json 2013-11-18 18:56:36.000000000 +0100
@@ -5,7 +5,7 @@
"David Golden <dagol...@cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300039, CPAN::Meta::Converter
version 2.132660",
+ "generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version
2.132830",
"license" : [
"perl_5"
],
@@ -33,8 +33,17 @@
},
"develop" : {
"requires" : {
+ "Dist::Zilla" : "5.006",
+ "Dist::Zilla::Plugin::Prereqs" : "0",
+ "Dist::Zilla::Plugin::RemovePrereqs" : "0",
+ "Dist::Zilla::PluginBundle::DAGOLDEN" : "0.053",
+ "File::Spec" : "0",
+ "File::Temp" : "0",
+ "IO::Handle" : "0",
+ "IPC::Open3" : "0",
"Pod::Coverage::TrustPod" : "0",
"Test::CPAN::Meta" : "0",
+ "Test::More" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
}
@@ -61,6 +70,10 @@
}
},
"test" : {
+ "recommends" : {
+ "CPAN::Meta" : "0",
+ "CPAN::Meta::Requirements" : "0"
+ },
"requires" : {
"Data::Dumper" : "0",
"Exporter" : "0",
@@ -71,10 +84,8 @@
"File::Temp" : "0",
"IO::Dir" : "0",
"IO::File" : "0",
- "IO::Handle" : "0",
"IO::Socket::INET" : "0",
"IPC::Cmd" : "0",
- "IPC::Open3" : "0",
"List::Util" : "0",
"Test::More" : "0.96",
"open" : "0"
@@ -84,7 +95,7 @@
"provides" : {
"HTTP::Tiny" : {
"file" : "lib/HTTP/Tiny.pm",
- "version" : "0.036"
+ "version" : "0.038"
}
},
"release_status" : "stable",
@@ -99,7 +110,7 @@
"web" : "https://github.com/chansen/p5-http-tiny";
}
},
- "version" : "0.036",
+ "version" : "0.038",
"x_authority" : "cpan:DAGOLDEN",
"x_contributors" : [
"Alan Gardner <gard...@pythian.com>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/META.yml new/HTTP-Tiny-0.038/META.yml
--- old/HTTP-Tiny-0.036/META.yml 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/META.yml 2013-11-18 18:56:36.000000000 +0100
@@ -13,17 +13,15 @@
File::Temp: 0
IO::Dir: 0
IO::File: 0
- IO::Handle: 0
IO::Socket::INET: 0
IPC::Cmd: 0
- IPC::Open3: 0
List::Util: 0
Test::More: 0.96
open: 0
configure_requires:
ExtUtils::MakeMaker: 6.17
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300039, CPAN::Meta::Converter version
2.132660'
+generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version
2.132830'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -40,7 +38,7 @@
provides:
HTTP::Tiny:
file: lib/HTTP/Tiny.pm
- version: 0.036
+ version: 0.038
recommends:
HTTP::CookieJar: 0.001
IO::Socket::SSL: 1.42
@@ -59,7 +57,7 @@
bugtracker: https://github.com/chansen/p5-http-tiny/issues
homepage: https://github.com/chansen/p5-http-tiny
repository: https://github.com/chansen/p5-http-tiny.git
-version: 0.036
+version: 0.038
x_authority: cpan:DAGOLDEN
x_contributors:
- 'Alan Gardner <gard...@pythian.com>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/Makefile.PL
new/HTTP-Tiny-0.038/Makefile.PL
--- old/HTTP-Tiny-0.036/Makefile.PL 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/Makefile.PL 2013-11-18 18:56:36.000000000 +0100
@@ -38,45 +38,48 @@
"File::Temp" => 0,
"IO::Dir" => 0,
"IO::File" => 0,
- "IO::Handle" => 0,
"IO::Socket::INET" => 0,
"IPC::Cmd" => 0,
- "IPC::Open3" => 0,
"List::Util" => 0,
"Test::More" => "0.96",
"open" => 0
},
- "VERSION" => "0.036",
+ "VERSION" => "0.038",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
- my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
- my $br = $WriteMakefileArgs{BUILD_REQUIRES};
- for my $mod ( keys %$tr ) {
- if ( exists $br->{$mod} ) {
- $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
- }
- else {
- $br->{$mod} = $tr->{$mod};
- }
- }
-}
+my %FallbackPrereqs = (
+ "Carp" => 0,
+ "Data::Dumper" => 0,
+ "Exporter" => 0,
+ "ExtUtils::MakeMaker" => 0,
+ "File::Basename" => 0,
+ "File::Spec" => 0,
+ "File::Spec::Functions" => 0,
+ "File::Temp" => 0,
+ "IO::Dir" => 0,
+ "IO::File" => 0,
+ "IO::Socket" => 0,
+ "IO::Socket::INET" => 0,
+ "IPC::Cmd" => 0,
+ "List::Util" => 0,
+ "MIME::Base64" => 0,
+ "Test::More" => "0.96",
+ "Time::Local" => 0,
+ "bytes" => 0,
+ "open" => 0,
+ "strict" => 0,
+ "warnings" => 0
+);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/README new/HTTP-Tiny-0.038/README
--- old/HTTP-Tiny-0.036/README 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/README 2013-11-18 18:56:36.000000000 +0100
@@ -2,7 +2,7 @@
HTTP::Tiny - A small, simple, correct HTTP/1.1 client
VERSION
- version 0.036
+ version 0.038
SYNOPSIS
use HTTP::Tiny;
@@ -161,6 +161,11 @@
$http->request('GET', 'http://Aladdin:open ses...@example.com/');
+ If the "user:password" stanza contains reserved characters, they must be
+ percent-escaped:
+
+ $http->request('GET',
'http://john%40example.com:passw...@example.com/');
+
A hashref of options may be appended to modify the request.
Valid options are:
@@ -369,7 +374,13 @@
* There is no support for IPv6 of any kind.
+ Despite the limitations listed above, HTTP::Tiny is considered nearly
+ feature-complete. If there are enhancements unrelated to the underlying
+ transport, please consider them for HTTP::Tiny::UA instead.
+
SEE ALSO
+ * HTTP::Tiny::UA — Higher level UA features for HTTP::Tiny
+
* HTTP::Thin - HTTP::Tiny wrapper with HTTP::Request/HTTP::Response
compatibility
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/cpanfile new/HTTP-Tiny-0.038/cpanfile
--- old/HTTP-Tiny-0.036/cpanfile 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/cpanfile 2013-11-18 18:56:36.000000000 +0100
@@ -22,22 +22,34 @@
requires "File::Temp" => "0";
requires "IO::Dir" => "0";
requires "IO::File" => "0";
- requires "IO::Handle" => "0";
requires "IO::Socket::INET" => "0";
requires "IPC::Cmd" => "0";
- requires "IPC::Open3" => "0";
requires "List::Util" => "0";
requires "Test::More" => "0.96";
requires "open" => "0";
};
+on 'test' => sub {
+ recommends "CPAN::Meta" => "0";
+ recommends "CPAN::Meta::Requirements" => "0";
+};
+
on 'configure' => sub {
requires "ExtUtils::MakeMaker" => "6.17";
};
on 'develop' => sub {
+ requires "Dist::Zilla" => "5.006";
+ requires "Dist::Zilla::Plugin::Prereqs" => "0";
+ requires "Dist::Zilla::Plugin::RemovePrereqs" => "0";
+ requires "Dist::Zilla::PluginBundle::DAGOLDEN" => "0.053";
+ requires "File::Spec" => "0";
+ requires "File::Temp" => "0";
+ requires "IO::Handle" => "0";
+ requires "IPC::Open3" => "0";
requires "Pod::Coverage::TrustPod" => "0";
requires "Test::CPAN::Meta" => "0";
+ requires "Test::More" => "0";
requires "Test::Pod" => "1.41";
requires "Test::Pod::Coverage" => "1.08";
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/dist.ini new/HTTP-Tiny-0.038/dist.ini
--- old/HTTP-Tiny-0.036/dist.ini 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/dist.ini 2013-11-18 18:56:36.000000000 +0100
@@ -7,6 +7,7 @@
[@DAGOLDEN]
:version = 0.053
stopwords = CA
+stopwords = UA
[RemovePrereqs]
remove = Errno
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/lib/HTTP/Tiny.pm
new/HTTP-Tiny-0.038/lib/HTTP/Tiny.pm
--- old/HTTP-Tiny-0.036/lib/HTTP/Tiny.pm 2013-09-25 18:10:16.000000000
+0200
+++ new/HTTP-Tiny-0.038/lib/HTTP/Tiny.pm 2013-11-18 18:56:36.000000000
+0100
@@ -3,7 +3,7 @@
use strict;
use warnings;
# ABSTRACT: A small, simple, correct HTTP/1.1 client
-our $VERSION = '0.036'; # VERSION
+our $VERSION = '0.038'; # VERSION
use Carp ();
@@ -309,7 +309,7 @@
}
# if we have Basic auth parameters, add them
- if ( length $auth && ! defined $request->{headers}{authentication} ) {
+ if ( length $auth && ! defined $request->{headers}{authorization} ) {
require MIME::Base64;
$request->{headers}{authorization} =
"Basic " . MIME::Base64::encode_base64($auth, "");
@@ -393,6 +393,8 @@
$authority = (length($authority)) ? $authority : 'localhost';
if ( $authority =~ /@/ ) {
($auth,$host) = $authority =~ m/\A([^@]*)@(.*)\z/; # user:pass@host
+ # userinfo might be percent escaped, so recover real auth info
+ $auth =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
}
else {
$host = $authority;
@@ -1000,7 +1002,7 @@
=pod
-=encoding utf-8
+=encoding UTF-8
=head1 NAME
@@ -1008,7 +1010,7 @@
=head1 VERSION
-version 0.036
+version 0.038
=head1 SYNOPSIS
@@ -1189,6 +1191,11 @@
$http->request('GET', 'http://Aladdin:open ses...@example.com/');
+If the "user:password" stanza contains reserved characters, they must
+be percent-escaped:
+
+ $http->request('GET', 'http://john%40example.com:passw...@example.com/');
+
A hashref of options may be appended to modify the request.
Valid options are:
@@ -1473,12 +1480,20 @@
=back
+Despite the limitations listed above, HTTP::Tiny is considered nearly
+feature-complete. If there are enhancements unrelated to the underlying
+transport, please consider them for L<HTTP::Tiny::UA> instead.
+
=head1 SEE ALSO
=over 4
=item *
+L<HTTP::Tiny::UA> — Higher level UA features for HTTP::Tiny
+
+=item *
+
L<HTTP::Thin> - HTTP::Tiny wrapper with L<HTTP::Request>/L<HTTP::Response>
compatibility
=item *
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/t/00-compile.t
new/HTTP-Tiny-0.038/t/00-compile.t
--- old/HTTP-Tiny-0.036/t/00-compile.t 2013-09-25 18:10:15.000000000 +0200
+++ new/HTTP-Tiny-0.038/t/00-compile.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,49 +0,0 @@
-use strict;
-use warnings;
-
-# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.033
-
-use Test::More tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
-
-
-
-my @module_files = (
- 'HTTP/Tiny.pm'
-);
-
-
-
-# fake home for cpan-testers
-use File::Temp;
-local $ENV{HOME} = File::Temp::tempdir( CLEANUP => 1 );
-
-
-use File::Spec;
-use IPC::Open3;
-use IO::Handle;
-
-my @warnings;
-for my $lib (@module_files)
-{
- # see L<perlfaq8/How can I capture STDERR from an external command?>
- open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
- my $stderr = IO::Handle->new;
-
- my $pid = open3($stdin, '>&STDERR', $stderr, $^X, '-Mblib', '-e', "require
q[$lib]");
- binmode $stderr, ':crlf' if $^O eq 'MSWin32';
- my @_warnings = <$stderr>;
- waitpid($pid, 0);
- is($? >> 8, 0, "$lib loaded ok");
-
- if (@_warnings)
- {
- warn @_warnings;
- push @warnings, @_warnings;
- }
-}
-
-
-
-is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/t/00-report-prereqs.t
new/HTTP-Tiny-0.038/t/00-report-prereqs.t
--- old/HTTP-Tiny-0.036/t/00-report-prereqs.t 2013-09-25 18:10:16.000000000
+0200
+++ new/HTTP-Tiny-0.038/t/00-report-prereqs.t 2013-11-18 18:56:36.000000000
+0100
@@ -3,6 +3,8 @@
use strict;
use warnings;
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.010
+
use Test::More tests => 1;
use ExtUtils::MakeMaker;
@@ -10,6 +12,8 @@
use List::Util qw/max/;
my @modules = qw(
+ CPAN::Meta
+ CPAN::Meta::Requirements
Carp
Data::Dumper
Exporter
@@ -21,12 +25,10 @@
HTTP::CookieJar
IO::Dir
IO::File
- IO::Handle
IO::Socket
IO::Socket::INET
IO::Socket::SSL
IPC::Cmd
- IPC::Open3
List::Util
MIME::Base64
Mozilla::CA
@@ -40,20 +42,46 @@
warnings
);
+my %exclude = map {; $_ => 1 } qw(
+
+);
+
+my ($source) = grep { -f $_ } qw/MYMETA.json MYMETA.yml META.json/;
+$source = "META.yml" unless defined $source;
+
# replace modules with dynamic results from MYMETA.json if we can
# (hide CPAN::Meta from prereq scanner)
my $cpan_meta = "CPAN::Meta";
-if ( -f "MYMETA.json" && eval "require $cpan_meta" ) { ## no critic
- if ( my $meta = eval { CPAN::Meta->load_file("MYMETA.json") } ) {
+my $cpan_meta_req = "CPAN::Meta::Requirements";
+my $all_requires;
+if ( -f $source && eval "require $cpan_meta" ) { ## no critic
+ if ( my $meta = eval { CPAN::Meta->load_file($source) } ) {
+
+ # Get ALL modules mentioned in META (any phase/type)
my $prereqs = $meta->prereqs;
- delete $prereqs->{develop};
+ delete $prereqs->{develop} if not $ENV{AUTHOR_TESTING};
my %uniq = map {$_ => 1} map { keys %$_ } map { values %$_ } values
%$prereqs;
$uniq{$_} = 1 for @modules; # don't lose any static ones
- @modules = sort keys %uniq;
+ @modules = sort grep { ! $exclude{$_} } keys %uniq;
+
+ # If verifying, merge 'requires' only for major phases
+ if ( 1 ) {
+ $prereqs = $meta->effective_prereqs; # get the object, not the hash
+ if (eval "require $cpan_meta_req; 1") { ## no critic
+ $all_requires = $cpan_meta_req->new;
+ for my $phase ( qw/configure build test runtime/ ) {
+ $all_requires->add_requirements(
+ $prereqs->requirements_for($phase, 'requires')
+ );
+ }
+ }
+ }
}
}
my @reports = [qw/Version Module/];
+my @dep_errors;
+my $req_hash = defined($all_requires) ? $all_requires->as_string_hash : {};
for my $mod ( @modules ) {
next if $mod eq 'perl';
@@ -65,9 +93,29 @@
my $ver = MM->parse_version( catfile($prefix, $file) );
$ver = "undef" unless defined $ver; # Newer MM should do this anyway
push @reports, [$ver, $mod];
+
+ if ( 1 && $all_requires ) {
+ my $req = $req_hash->{$mod};
+ if ( defined $req && length $req ) {
+ if ( ! defined eval { version->parse($ver) } ) {
+ push @dep_errors, "$mod version '$ver' cannot be parsed (version
'$req' required)";
+ }
+ elsif ( ! $all_requires->accepts_module( $mod => $ver ) ) {
+ push @dep_errors, "$mod version '$ver' is not in required range
'$req'";
+ }
+ }
+ }
+
}
else {
push @reports, ["missing", $mod];
+
+ if ( 1 && $all_requires ) {
+ my $req = $req_hash->{$mod};
+ if ( defined $req && length $req ) {
+ push @dep_errors, "$mod is not installed (version '$req' required)";
+ }
+ }
}
}
@@ -75,7 +123,17 @@
my $vl = max map { length $_->[0] } @reports;
my $ml = max map { length $_->[1] } @reports;
splice @reports, 1, 0, ["-" x $vl, "-" x $ml];
- diag "Prerequisite Report:\n", map {sprintf(" %*s
%*s\n",$vl,$_->[0],-$ml,$_->[1])} @reports;
+ diag "\nVersions for all modules listed in $source (including optional
ones):\n",
+ map {sprintf(" %*s %*s\n",$vl,$_->[0],-$ml,$_->[1])} @reports;
+}
+
+if ( @dep_errors ) {
+ diag join("\n",
+ "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
***\n",
+ "The following REQUIRED prerequisites were not satisfied:\n",
+ @dep_errors,
+ "\n"
+ );
}
pass;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/t/200_live_local_ip.t
new/HTTP-Tiny-0.038/t/200_live_local_ip.t
--- old/HTTP-Tiny-0.036/t/200_live_local_ip.t 2013-09-25 18:10:16.000000000
+0200
+++ new/HTTP-Tiny-0.038/t/200_live_local_ip.t 2013-11-18 18:56:36.000000000
+0100
@@ -23,9 +23,14 @@
my ($tiny, $response);
-# default local address should work
+# default local address should work; try three times since the test url
+# can have intermittent failures
$tiny = HTTP::Tiny->new;
-$response = $tiny->get($test_url);
+for (1 .. 3) {
+ $response = $tiny->get($test_url);
+ last if $response->{success};
+ sleep 2;
+}
isnt( $response->{status}, '599', "Request to $test_url completed (default
local address)" );
# bad local IP should fail
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/t/cases/auth-04.txt
new/HTTP-Tiny-0.038/t/cases/auth-04.txt
--- old/HTTP-Tiny-0.036/t/cases/auth-04.txt 1970-01-01 01:00:00.000000000
+0100
+++ new/HTTP-Tiny-0.038/t/cases/auth-04.txt 2013-11-18 18:56:36.000000000
+0100
@@ -0,0 +1,18 @@
+url
+ http://rjbs%40cpan.org:passw...@example.com/index.html
+expected
+ abcdefghijklmnopqrstuvwxyz1234567890abcdef
+----------
+GET /index.html HTTP/1.1
+Host: example.com
+Connection: close
+User-Agent: HTTP-Tiny/VERSION
+Authorization: Basic cmpic0BjcGFuLm9yZzpwYXNzd29yZA==
+
+----------
+HTTP/1.1 200 OK
+Date: Thu, 03 Feb 1994 00:00:00 GMT
+Content-Type: text/plain
+Content-Length: 42
+
+abcdefghijklmnopqrstuvwxyz1234567890abcdef
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/t/cases/auth-05.txt
new/HTTP-Tiny-0.038/t/cases/auth-05.txt
--- old/HTTP-Tiny-0.036/t/cases/auth-05.txt 1970-01-01 01:00:00.000000000
+0100
+++ new/HTTP-Tiny-0.038/t/cases/auth-05.txt 2013-11-18 18:56:36.000000000
+0100
@@ -0,0 +1,20 @@
+url
+ http://foo:b...@example.com/index.html
+headers
+ authorization: Whatever
+expected
+ abcdefghijklmnopqrstuvwxyz1234567890abcdef
+----------
+GET /index.html HTTP/1.1
+Host: example.com
+Connection: close
+User-Agent: HTTP-Tiny/VERSION
+Authorization: Whatever
+
+----------
+HTTP/1.1 200 OK
+Date: Thu, 03 Feb 1994 00:00:00 GMT
+Content-Type: text/plain
+Content-Length: 42
+
+abcdefghijklmnopqrstuvwxyz1234567890abcdef
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/xt/author/00-compile.t
new/HTTP-Tiny-0.038/xt/author/00-compile.t
--- old/HTTP-Tiny-0.036/xt/author/00-compile.t 1970-01-01 01:00:00.000000000
+0100
+++ new/HTTP-Tiny-0.038/xt/author/00-compile.t 2013-11-18 18:56:36.000000000
+0100
@@ -0,0 +1,51 @@
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037
+
+use Test::More tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+
+
+
+my @module_files = (
+ 'HTTP/Tiny.pm'
+);
+
+
+
+# fake home for cpan-testers
+use File::Temp;
+local $ENV{HOME} = File::Temp::tempdir( CLEANUP => 1 );
+
+
+my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
+
+use File::Spec;
+use IPC::Open3;
+use IO::Handle;
+
+my @warnings;
+for my $lib (@module_files)
+{
+ # see L<perlfaq8/How can I capture STDERR from an external command?>
+ open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
+ my $stderr = IO::Handle->new;
+
+ my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e',
"require q[$lib]");
+ binmode $stderr, ':crlf' if $^O eq 'MSWin32';
+ my @_warnings = <$stderr>;
+ waitpid($pid, 0);
+ is($?, 0, "$lib loaded ok");
+
+ if (@_warnings)
+ {
+ warn @_warnings;
+ push @warnings, @_warnings;
+ }
+}
+
+
+
+is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Tiny-0.036/xt/author/pod-spell.t
new/HTTP-Tiny-0.038/xt/author/pod-spell.t
--- old/HTTP-Tiny-0.036/xt/author/pod-spell.t 2013-09-25 18:10:16.000000000
+0200
+++ new/HTTP-Tiny-0.038/xt/author/pod-spell.t 2013-11-18 18:56:36.000000000
+0100
@@ -11,6 +11,7 @@
all_pod_files_spelling_ok( qw( bin lib ) );
__DATA__
CA
+UA
Christian
Hansen
chansen
--
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
