In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/9f4fa7ee8c033d7f6eb68fbc58ee707b221817ee?hp=bdba2fe9e3256f8806a5facb73d1f427775783ba>

- Log -----------------------------------------------------------------
commit 9f4fa7ee8c033d7f6eb68fbc58ee707b221817ee
Author: Craig A. Berry <[email protected]>
Date:   Sat Sep 3 10:59:55 2016 -0500

    Try harder to clean up %ENV in 140_proxy.t.
    
    While the localization earlier in the test *should* leave the
    relevent %ENV entries in a good state for the final test, for
    some reason this is not happening on VMS.  It may have something
    to do with the fact that %ENV has all upper case keys but the
    test has previously localized both upper and lower case versions.
    
    In any case, even though it isn't this test's fault, the easiest
    and safest way to get it passing is to just do another clean-up.
    
    Awaiting upstream application at:
    
    https://github.com/chansen/p5-http-tiny/pull/95
-----------------------------------------------------------------------

Summary of changes:
 cpan/HTTP-Tiny/t/140_proxy.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cpan/HTTP-Tiny/t/140_proxy.t b/cpan/HTTP-Tiny/t/140_proxy.t
index c57977d..dd38462 100644
--- a/cpan/HTTP-Tiny/t/140_proxy.t
+++ b/cpan/HTTP-Tiny/t/140_proxy.t
@@ -68,6 +68,10 @@ for my $var ( qw/http_proxy https_proxy all_proxy/ ) {
 
 # ignore HTTP_PROXY with REQUEST_METHOD
 {
+    # in case previous clean-up failed for some reason
+    delete local @ENV{'http_proxy', 'https_proxy', 'all_proxy',
+                      'HTTP_PROXY', 'HTTPS_PROXY', 'ALL_PROXY'};
+
     local $ENV{HTTP_PROXY} = "http://localhost:8080";;
     local $ENV{REQUEST_METHOD} = 'GET';
     my $c = HTTP::Tiny->new();

--
Perl5 Master Repository

Reply via email to