port crunch dispatcher from whjobmanager to crunch-job

[arvados.git] / sdk / perl / lib / Arvados / Request.pm

diff --git a/sdk/perl/lib/Arvados/Request.pm b/sdk/perl/lib/Arvados/Request.pm
index 4902b75c37455c7c55a3cdb4b0ef525b134b1944..0faed28d1a41925fc58efc805d9059197a890b0b 100644 (file)
--- a/sdk/perl/lib/Arvados/Request.pm
+++ b/sdk/perl/lib/Arvados/Request.pm
@@ -18,7 +18,7 @@ sub _init
 {
     my $self = shift;
     $self->{'ua'} = new LWP::UserAgent(@_);
-    $self->{'ua'}->agent ("libarvados-perl/".$Warehouse::VERSION);
+    $self->{'ua'}->agent ("libarvados-perl/".$Arvados::VERSION);
     $self;
 }
 
@@ -35,6 +35,7 @@ sub process_request
     $req{$self->{'method'}} = $self->{'uri'};
     $self->{'req'} = new HTTP::Request (%req);
     $self->{'req'}->header('Authorization' => ('OAuth2 ' . $self->{'authToken'})) if $self->{'authToken'};
+    $self->{'req'}->header('Accept' => 'application/json');
     my %content;
     my ($p, $v);
     while (($p, $v) = each %{$self->{'queryParams'}}) {