Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 1c288b6eda9ea8a4fb4621a2628c623a43cfc93e 1 parent 4c1c8e3
Lincoln Stein lstein authored
16 lib/Bio/Graphics/Browser2/RegionSearch.pm
View
@@ -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);
2  lib/Bio/Graphics/Browser2/RenderPanels.pm
View
@@ -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,
Please sign in to comment.
Something went wrong with that request. Please try again.