From e8a144ec60ab67e0b8825bdffd87bc6aedda0193 Mon Sep 17 00:00:00 2001 From: "Heiko Schlittermann (HS12-RIPE)" Date: Tue, 4 Jul 2017 12:52:28 +0200 Subject: [PATCH] Copy the proxy scheme from the target scheme. --- EximBuild/WebTxn.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/EximBuild/WebTxn.pm b/EximBuild/WebTxn.pm index 27c9cbe..1605fb9 100644 --- a/EximBuild/WebTxn.pm +++ b/EximBuild/WebTxn.pm @@ -8,10 +8,10 @@ See accompanying License file for license details Most of this code is imported from the older standalone script run_web_txn.pl -which is now just a shell that calls the function below. It is now only +which is now just a shell that calls the function below. It is now only needed on older Msys installations (i.e. things running perl < 5.8). -=cut +=cut use strict; use URI::Escape; @@ -115,7 +115,9 @@ sub run_web_txn $ua->agent("Exim Build Farm Reporter"); if (my $proxy = $ENV{BF_PROXY}) { - $ua->proxy('http',$proxy); + # untested. Please notify hs@schlittermann.de, if you + # encounter any problem here: + $ua->proxy(URI->new($target)->scheme, $proxy); } my $request=HTTP::Request->new(POST => "$target/$sig"); -- 2.30.2