Permalink
Browse files

speculative fix for t/03 error "no object for FETCH"

  • Loading branch information...
lstein committed Sep 18, 2012
1 parent 4c1c8e3 commit 1c288b6eda9ea8a4fb4621a2628c623a43cfc93e
Showing with 9 additions and 9 deletions.
  1. +8 −8 lib/Bio/Graphics/Browser2/RegionSearch.pm
  2. +1 −1 lib/Bio/Graphics/Browser2/RenderPanels.pm
@@ -537,20 +537,20 @@ sub fetch_remote_features {
my @tracks = keys %{$self->remote_dbs->{$url}};
my $request = POST ($url,
- [ operation => 'search_features',
- settings => $s_set,
- datasource => $s_dsn,
- tracks => nfreeze(\@tracks),
- env => nfreeze(\%env),
- searchargs => $s_args,
+ Content_Type => 'form-data',
+ Content => [ operation => 'search_features',
+ settings => $s_set,
+ datasource => $s_dsn,
+ tracks => nfreeze(\@tracks),
+ env => nfreeze(\%env),
+ searchargs => $s_args,
]);
-
+
my $ua = LWP::UserAgent->new();
my $timeout = $self->source->global_setting('slave_timeout')
|| $self->source->global_setting('global_timeout') || 30;
$ua->timeout($timeout);
-
$request->uri($url);
my $response = $ua->request($request);
@@ -833,7 +833,7 @@ sub run_remote_requests {
FETCH: {
my $request = POST ($url,
- Content_Type => 'multipart/form-data',
+ Content_Type => 'form-data',
Content => [
operation => 'render_tracks',
panel_args => $s_args,

0 comments on commit 1c288b6

Please sign in to comment.