diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-09-03 10:59:55 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-09-03 10:59:55 -0500 |
| commit | 9f4fa7ee8c033d7f6eb68fbc58ee707b221817ee (patch) | |
| tree | c23272b2ec2f61b052dbc5ac6ef289db90fd32fb | |
| parent | bdba2fe9e3256f8806a5facb73d1f427775783ba (diff) | |
| download | perl-9f4fa7ee8c033d7f6eb68fbc58ee707b221817ee.tar.gz | |
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
| -rw-r--r-- | cpan/HTTP-Tiny/t/140_proxy.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/cpan/HTTP-Tiny/t/140_proxy.t b/cpan/HTTP-Tiny/t/140_proxy.t index c57977db8c..dd38462824 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(); |