commit 8ab86c3303a8157ecfed6ff588d71e6e13dd7017
author Finn Colman <finn.colman@modicagroup.com> Tue Mar 01 15:59:34 2022 +1300
committer Jens Geyer <Jens-G@users.noreply.github.com> Tue Mar 01 23:20:50 2022 +0100
tree 12f00b1da5ee4372ba7527cd519cdd1a63a31ff9
parent 79f89e0cec046ae7e6ed4a31ccfadd907be8baed

Fix headers bug in Thrift/HttpClient.pm

lib/perl/lib/Thrift/HttpClient.pm

diff --git a/lib/perl/lib/Thrift/HttpClient.pm b/lib/perl/lib/Thrift/HttpClient.pm
index 40ec9ce..3513a08 100644
--- a/lib/perl/lib/Thrift/HttpClient.pm
+++ b/lib/perl/lib/Thrift/HttpClient.pm
@@ -186,7 +186,8 @@
     $out->setpos(0); # rewind
     my $buf = join('', <$out>);
 
-    my $request = HTTP::Request->new(POST => $self->{url}, ($self->{headers} || undef), $buf);
+    my $request = HTTP::Request->new(POST => $self->{url}, undef, $buf);
+    map { $request->header($_ => $self->{headers}->{$_}) } keys %{$self->{headers}};
     my $response = $ua->request($request);
     my $content_ref = $response->content_ref;