diff options
author | Richard Leach <richardleach@users.noreply.github.com> | 2021-11-19 22:43:32 +0000 |
---|---|---|
committer | Richard Leach <richardleach@users.noreply.github.com> | 2021-11-19 22:43:32 +0000 |
commit | b80b9f7fc6d09dfbec9460c291b313623f8560f0 (patch) | |
tree | 4d680166ad772bfbc8acb970105e3efac2227355 /cpan | |
parent | c02b2058115e2dd2f49623e910dfa9d870d131a5 (diff) | |
download | perl-b80b9f7fc6d09dfbec9460c291b313623f8560f0.tar.gz |
Update HTTP::Tiny to v0.080
0.080 2021-11-05 08:15:46-04:00 America/New_York
- No changes from 0.079-TRIAL.
0.079 2021-11-04 12:33:43-04:00 America/New_York (TRIAL RELEASE)
[FIXED]
- Fixed uninitialized value warnings on older Perls when the
REQUEST_METHOD environment variable is set and CGI_HTTP_PROXY
is not.
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 6 | ||||
-rw-r--r-- | cpan/HTTP-Tiny/t/140_proxy.t | 5 | ||||
-rw-r--r-- | cpan/HTTP-Tiny/t/141_no_proxy.t | 1 |
3 files changed, 7 insertions, 5 deletions
diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index 7954b25094..83ca06d18c 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -4,7 +4,7 @@ use strict; use warnings; # ABSTRACT: A small, simple, correct HTTP/1.1 client -our $VERSION = '0.078'; +our $VERSION = '0.080'; sub _croak { require Carp; Carp::croak(@_) } @@ -155,7 +155,7 @@ sub _set_proxies { # http proxy if (! exists $self->{http_proxy} ) { # under CGI, bypass HTTP_PROXY as request sets it from Proxy header - local $ENV{HTTP_PROXY} = $ENV{CGI_HTTP_PROXY} if $ENV{REQUEST_METHOD}; + local $ENV{HTTP_PROXY} = ($ENV{CGI_HTTP_PROXY} || "") if $ENV{REQUEST_METHOD}; $self->{http_proxy} = $ENV{http_proxy} || $ENV{HTTP_PROXY} || $self->{proxy}; } @@ -1704,7 +1704,7 @@ HTTP::Tiny - A small, simple, correct HTTP/1.1 client =head1 VERSION -version 0.078 +version 0.080 =head1 SYNOPSIS diff --git a/cpan/HTTP-Tiny/t/140_proxy.t b/cpan/HTTP-Tiny/t/140_proxy.t index bd558e6bce..5f190339c0 100644 --- a/cpan/HTTP-Tiny/t/140_proxy.t +++ b/cpan/HTTP-Tiny/t/140_proxy.t @@ -17,8 +17,9 @@ BEGIN { # Require a true value for my $proxy (undef, "", 0){ - local $ENV{all_proxy} = undef; - local $ENV{ALL_PROXY} = undef; + no warnings 'uninitialized'; + local $ENV{all_proxy}; + local $ENV{ALL_PROXY}; local $ENV{http_proxy} = $proxy; my $c = HTTP::Tiny->new(); ok(!defined $c->http_proxy); diff --git a/cpan/HTTP-Tiny/t/141_no_proxy.t b/cpan/HTTP-Tiny/t/141_no_proxy.t index f12a268d1d..7d7788e756 100644 --- a/cpan/HTTP-Tiny/t/141_no_proxy.t +++ b/cpan/HTTP-Tiny/t/141_no_proxy.t @@ -55,6 +55,7 @@ for my $c (@cases) { } else { { + no warnings 'uninitialized'; local $ENV{no_proxy} = $no_proxy; my $ht = HTTP::Tiny->new(); is_deeply( $ht->no_proxy, $c->{expect}, "\$ENV{no_proxy} = $label" ); |